VB冒泡排序法的问题OptionBase1Dima(1To10)AsIntegerPrivateSubFormclick()DimiAsIntegerDimjAsIntegerDimtFori=1To10a(i)=Int(Rnd*10)Printa(i);NextiFori=1To9Forj=2To9Ifa(j)>a(j-1)Thent=a(j

Question

VB冒泡排序法的问题Option Base 1 Dim a(1 To 10) As Integer Private Sub Form_click() Dim i As Integer Dim j As Integer Dim t For i = 1 To 10 a(i) = Int(Rnd * 10) Print a(i); Next i For i = 1 To 9 For j = 2 To 9 If a(j) > a(j - 1) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next j Next i Print For i = 1 To 10 Print a(i); Next i End Sub 这段运行了不能达到排序效果，请大家帮我看看排序循环哪错了，谢谢~

Answer 1

Option Base 1 Dim a(1 To 10) As Integer Private Sub Form_click() Dim i As Integer Dim j As Integer Dim t For i = 1 To 10 a(i) = Int(Rnd * 10) Print a(i); Next i For i = 1 To 9 For j = 2 To 10 If a(j - 1) < a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next j Next i Print For i = 1 To 10 Print a(i); Next i End Sub 测试通过