Dim sz As Integer ＆#39;用來記錄進行何種運算
Dim x As Single, y As Single ＆#39;用來記錄進行運算的兩個數
＆#39;從第壹個命令按鈕到第十個是用來輸入0至9十個數字的
Private Sub Command1_Click()
Text1.Text = Text1.Text & "1"
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text & "2"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & "3"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & "5"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & "7"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & "8"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & "9"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text & "0"
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text & "." ＆#39;輸入小數點
End Sub
Private Sub Command12_Click()
x = CSng(Text1.Text) ＆#39;將輸入的數轉換成單精度型的
sz = 1 ＆#39;設置即將進行的是加法運算
Text1.Text = "" ＆#39;將文本框清空，以便輸入第二個數
End Sub
Private Sub Command13_Click()
x = CSng(Text1.Text)
sz = 2
Text1.Text = ""
End Sub
Private Sub Command14_Click()
x = CSng(Text1.Text)
sz = 3
Text1.Text = ""
End Sub
Private Sub Command15_Click()
x = CSng(Text1.Text)
sz = 4
Text1.Text = ""
End Sub
Private Sub Command16_Click()
x = CSng(Text1.Text)
sz = 5
Text1.Text = ""
End Sub
Private Sub Command17_Click()
x = CSng(Text1.Text)
Text1.Text = Sqr(x) ＆#39;因為求平方根只需壹個運算對象，因此在此就給出結果
End Sub
Private Sub Command18_Click()
On Error GoTo ex ＆#39;設置如果遇到錯誤就退出此過程
y = CSng(Text1.Text)
Select Case sz ＆#39;根據sz的值來決定進行何種運算
Case 1
Text1.Text = x + y ＆#39;進行加法運算並將結果顯示在文本框中
Case 2
Text1.Text = x - y
Case 3
Text1.Text = x * y
Case 4
Text1.Text = x / y
Case 5
Text1.Text = x Mod y
End Select
ex:
End Sub
Private Sub Command19_Click()
Text1.Text = "" ＆#39;將文本框清空，以便輸入新的數字
End Sub