ex_p4_5

Private Sub Form_Click()

10 Dim a As Integer
20 For a = 1 To 10 Step 2
30 Print a '列印變數a
40 Next a

End Sub

ex_p4_6

21 i = 1
22 sum = 0

30 For i = 1 To 50 Step 1
40 sum = sum + i
50 Next i
60 MsgBox "1加至50之和為:" & sum, vbOKOnly, "級數和"

End Sub

'''ex_p4-22if_then

Private Sub Form_Load()

10 Dim a As String

20 a = InputBox("您是否要退出此程式? 按 Y 退出 按 N 繼續", "確認視窗")

30 If a = "Y" Then MsgBox "謝謝您的使用!", , "確認視窗"
40 If a = "N" Then MsgBox "請繼續使用!", , "確認視窗"
'50 If a <> "Y" And a <> "N" Then MsgBox "請重新輸入!", , "確認視窗" '此行在沒有教3-5前，先不管

60 MsgBox "程式結束", , "程式結束視窗" '不管輸入為何都會執行至此行

End Sub

'''exp4-25if_then_else

Private Sub Form_Load()

10 Dim a As Integer '''請注意變數資料型別

20 a = InputBox("要使用VB6嗎? 按(1)表示要，其他數字表示不要", "選擇視窗") '''改變變數資料型別

If a = 1 Then
MsgBox "歡迎使用VB6", vbInformation + vbOKOnly, "使用VB6" '''若a=1為真(a等於1)則執行此區塊

Else
MsgBox "不使用VB6", vbInformation + vbOKOnly, "不使用VB6" '''若a=1為假(a不等於1)則執行此區塊

End If
MsgBox "程式結束", vbInformation + vbOKOnly, "程式結束" '''以上的if then else 執行結束後，由此繼續執行

End Sub