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
我不明白如何出错了？？
新手