VB问题Next没有For

------------------------------------------------------------
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 Then
Print
end if
next '这个地方要加next,对应前面的for i
End Sub

if 与 end if一一对应
for 与 next 一一对应

有if就必须以end if结尾
有for就必须以next结尾