VB问题Next没有For

来源：百度知道 编辑：UC知道 时间：2024/06/06 05:13:59
有以下代码,冒泡排序法
------------------------------------------------------------
Private Sub Command4_Click()
Dim j As Integer, temp As Integer,i As Integer
Dim b(i) As Integer
For j = 1 To n
For i = 1 To n
If b(i) > b(i + 1) Then
temp = b(i): b(i) = b(i + 1): b(i + 1) = b(i)

Next i
Next j
For i = 1 To 20
Picture1.Print b(i)
If i Mod 5 = 0 Then Print

End Sub
------------------------------------------------------
VB提示Next没有For,在Next i 前面添上End ifVB提示For没有Next

------------------------------------------------------------
Private Sub Command4_Click()
Dim j As Integer, temp As Integer,i As Integer
Dim b(i) As Integer
For j = 1 To n
For i = 1 To n
If b(i) > b(i + 1) Then
temp = b(i): b(i) = b(i + 1): b(i + 1) = b(i)
End if ' 这个地方要加end if ,对应前面的IF
Next i
Next j
For i = 1 To 20
Picture1.Print b(i)
If i Mod 5 = 0 Then Print
next '这个地方要加next,对应前面的for
End Sub
------------------------------------------------------

Private Sub Command4_Click()

Dim j As Integer, temp As Integer,i As Integer
Dim b(i) As Integer

For j = 1 To n
For i = 1 To n
If b(i) > b(i + 1) Then
temp = b(i): b(i) = b(i + 1): b(i + 1) = b(i)
end if ' 这个地方要加end if ,对应前面的if
Next '对应for j
Next '对应for i

For i = 1 To 20
Picture1.Print b(i)
If i Mod 5 = 0