数组：8个数从小到大排序：-10，75，-88，0，5，63，100，76

代码如下：

Option Explicit

Private Sub form_click()
Dim a(8) As Integer
Dim i%, j%, q%
a(1) = -10: a(2) = 75: a(3) = -88: a(4) = 0: a(5) = 5: a(6) = 63: a(7) = 100: a(8) = 76
For i = 1 To 7
For j = i + 1 To 8
If a(i) > a(j) Then
q = a(i)
a(i) = a(j)
a(j) = q
End If
Next j
Next i
For i = 1 To 8
Print a(i);
Next
End Sub

期待被采纳！