Private Sub Form_Click() "單擊窗體時執行下面程式碼
Dim i As Integer, row As Integer "定義i、row為整形變數
Cls "清除窗體上原來的文字
Print "100-200之間不能被3整除的數有：" "在窗體上大印出引號內的文字
Print "空一行
row = 0 "給整形變數row賦值0
For i = 100 To 200 "i的值在100至200範圍內以此變化
If i Mod 3 0 Then "如果i除以3的餘數不等於0，則執行下面語句
row = row + 1 "變數row的值增加1
Print i & " "; "在窗體上列印i的值，後面跟幾個空格，但不換行
End If "
If row Mod 12 = 0 Then Print "如果變數row的值是12的倍數（row除以12的餘數為0），則換行
Next i "
End Sub
"1.倒數第三行用完If...Then後怎麼沒有語句或語句組？也沒有End If？
"Then後面的Print就是語句。If...Then單行時不能加End If。
"2.還是這一行，最後那個Print是幹什麼的？為什麼沒了它，系統會提示“Next沒有For”？
"Print是列印的意思，後面沒有變數或字串就表示什麼也不列印，一般用於換行
"如果沒有它，那麼在Then後面沒有語句，就表示這是If...Then的多行塊用法，下一行的Next i系統認為是在下面塊用法中間
"If 條件語句 Then
"結論語句
"Else
"Endif
"所以，系統會提示“Next沒有For”
"3.請為每一句程式碼加上註釋
"
"4.順便問一下，是什麼意思？是不等於嗎？
"就是不等於
Private Sub Form_Click() "單擊窗體時執行下面程式碼
Dim i As Integer, row As Integer "定義i、row為整形變數
Cls "清除窗體上原來的文字
Print "100-200之間不能被3整除的數有：" "在窗體上大印出引號內的文字
Print "空一行
Print "空一行
row = 0 "給整形變數row賦值0
For i = 100 To 200 "i的值在100至200範圍內以此變化
If i Mod 3 0 Then "如果i除以3的餘數不等於0，則執行下面語句
row = row + 1 "變數row的值增加1
Print i & " "; "在窗體上列印i的值，後面跟幾個空格，但不換行
End If "
If row Mod 12 = 0 Then Print "如果變數row的值是12的倍數（row除以12的餘數為0），則換行
Next i "
End Sub
"1.倒數第三行用完If...Then後怎麼沒有語句或語句組？也沒有End If？
"Then後面的Print就是語句。If...Then單行時不能加End If。
"2.還是這一行，最後那個Print是幹什麼的？為什麼沒了它，系統會提示“Next沒有For”？
"Print是列印的意思，後面沒有變數或字串就表示什麼也不列印，一般用於換行
"如果沒有它，那麼在Then後面沒有語句，就表示這是If...Then的多行塊用法，下一行的Next i系統認為是在下面塊用法中間
"If 條件語句 Then
"結論語句
"Else
"結論語句
"Endif
"所以，系統會提示“Next沒有For”
"3.請為每一句程式碼加上註釋
"
"4.順便問一下，是什麼意思？是不等於嗎？
"就是不等於