有谁能帮我看一下这段vb排序的代码错在哪里?

来源:百度知道 编辑:UC知道 时间:2024/05/19 18:32:33
Private Sub Form_Click()
b = "74 85 96 36 25 14 46 58"
m = Split(b, " ")
For i = 0 To UBound(m)
For j = i To UBound(m)
If m(i) > m(j) Then
c = m(i)
m(i) = m(j)
m(j) = c
Next j
Next i
For i = 0 To UBound(m)
Print m(i)
Next i
End Sub

它显示 编译错误:Next没有For

系统随那样提示,你的循环没有错误。问题在于你用了个if块语句,必须使用Endif 。解决方法:在next j之前加一行EndIf

汗~ 你的if 没又结束语句啊 endif 加上就行了