ex_2-3

Private Sub Form_Load()
10 Dim str As String '行號以及註解不影響執行順序，只是參考用。變數名稱可換，但變數之資料型別需慎選。
2001 str = InputBox("我的第一個輸入函數", "輸入函數的標題", "預設值為999") '請注意空格、與" "號、不分大小寫。
30 MsgBox "有點困難", vbOKCancel + vbInformation, "開始寫程式" '程式會依行序執行。將"有點困難"換為str再換成"str"。
End Sub

ex_p2-14_Integer與Long

Private Sub Form_Click() '''事件為click'''

10 Dim a As Integer '''宣告資料型別'''
20 Dim b%
30 Dim c As Long
40 Dim d&

50 a = 11 '''將a改成一個很大的整數，再將之改成浮點數'''
60 b% = 32
70 c = 9999999 '''若將c改成一個很小的整數，會浪費記憶體空間'''
80 d& = 4145532

90 Print a '''將a,b,c,d之值列出'''
100 Print b
110 Print c
120 Print d

End Sub

ex_p2-17_Single與Double

Private Sub Form_Click()
Dim a As Single
Dim b As Double
a = 123456789.123456 '''a與b的數值相同，但不同的宣告，結果不同'''
b = 123456789.123456
Print a, b
End Sub

ex_p2-21字串

Private Sub Form_Load()

10 Dim user As String * 6 '''限制了字元數為6'''
20 Dim pass As String

30 user = InputBox("請輸入帳號", "必需少於6個字")
40 pass = InputBox("請輸入密碼", "沒有字數限制")

50 MsgBox user, vbOKOnly + vbInformation, "帳號視窗" '請注意:user是「字串變數」，不是「字串」，故不需加" "，若是加了…
60 MsgBox pass, vbOKOnly + vbInformation, "密碼視窗"
End Sub