Private Sub Command1_Click()
Dim s() As Integer
 s = Array(0, 55, 44, 888)
 For i = 1 To 4
  For j = (i + 1) To 4
  If s(i) > s(j) Then t = s(i): s(i) = s(j): s(j) = t:
  
  Next j
Next i
For i = 1 To 4
Print s(i)
Next i
End Sub
我不明白如何出错了？？
新手

建议先找到例子看看。

数组的下标是从0开始计算的，所以应该是：

Private Sub Command1_Click()
Dim s() As Integer
s = Array(0, 55, 44, 888)
For i = 0 To 3
  For j = (i + 1) To 3
      If s(i) > s(j) Then
        t = s(i): s(i) = s(j): s(j) = t    '没事别把代码整到单行上，那样你写的累，别人看的也累。编译器也不会提高几毛钱的效率
      End if
  Next j
Next i
For i = 0 To 3
Print s(i)
Next i
End Sub

Dim s as variant
s = Array(0, 55, 44, 888) ' type variant()

Private Sub Command1_Click()
 Dim s as variant
 s = Array(0, 55, 44, 888)
 For i = 0 To 2
   For j = (i + 1) To 3
   If s(i) > s(j) Then t = s(i): s(i) = s(j): s(j) = t
   
   Next j
 Next i
 For i = 0 To 3
 Print s(i)  

 Next i
 End Sub