Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    j = 0
    For i = 1 To 1000
        If i Mod 11 = 0 Then
           j = j + 1
           Print i;
        If j Mod 11 = 0 Then Print       
           
        End If
     Next i
    Print
    Print "Ò»¹²ÓÐ" & j & "¸öÊý¿ÉÒÔ±»11Õû³ý"
End Sub


Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    j = 0
    For i = 1 To 1000
        If i Mod 11 = 0 Then
           j = j + 1
           Print i;
        If j Mod 11 = 0 Then 
         Print    
        End If
     Next i
    Print
    Print "Ò»¹²ÓÐ" & j & "¸öÊý¿ÉÒÔ±»11Õû³ý"
End Sub
为什么PRINT的位置变一下第2个程序就错了!