VB自制計算器

使用visual basic編寫。
繪制如下的按鈕界面：

然后代碼如下：

Dim a, temp, ans As Integer
Dim op As String


Sub showans()
    Text1.Text = a
End Sub

Sub clearans()
    Text1.Text = " "
End Sub


Private Sub Command1_Click()
'按鈕1

a = a * 10 + 1
Call showans
End Sub

Private Sub Command10_Click()
'按鈕0
a = a * 10
Call showans

End Sub

Private Sub Command11_Click()
'按鈕=
If op = "+" Then
a = temp + a
ElseIf op = "-" Then
a = temp - a
ElseIf op = "*" Then
a = temp * a
ElseIf op = "/" Then
If a <> 0 Then
a = temp / a
Else
MsgBox ("Divisor can't be zero!")
End If
End If
Call showans
temp = a
End Sub

Private Sub Command12_Click()
'按鈕CE
a = 0
Call showans
End Sub

Private Sub Command13_Click()
'按鈕+
temp = a
a = 0
op = "+"
Call clearans
End Sub

Private Sub Command14_Click()
'按鈕-
temp = a
a = 0
op = "-"
Call clearans
End Sub

Private Sub Command15_Click()
'按鈕*
temp = a
a = 0
op = "*"
Call clearans
End Sub

Private Sub Command16_Click()
'按鈕/
temp = a
a = 0
op = "/"
Call clearans
End Sub

Private Sub Command2_Click()
'按鈕2
a = a * 10 + 2
Call showans
End Sub

Private Sub Command3_Click()
'按鈕3
a = a * 10 + 3
Call showans
End Sub

Private Sub Command4_Click()
'按鈕4
a = a * 10 + 4
Call showans
End Sub

Private Sub Command5_Click()
'按鈕5
a = a * 10 + 5
Call showans
End Sub

Private Sub Command6_Click()
'按鈕6
a = a * 10 + 6
Call showans
End Sub

Private Sub Command7_Click()
'按鈕7
a = a * 10 + 7
Call showans
End Sub

Private Sub Command8_Click()
'按鈕8
a = a * 10 + 8
Call showans
End Sub

Private Sub Command9_Click()
'按鈕9
a = a * 10 + 9
Call showans
End Sub

Private Sub Form_Load()
a = 0
temp = 0
ans = 0

End Sub

解釋說明：
a表示當前的結果，temp表示上一個運算數
例如：
1+2，依次按下1，+，2，按下加號后temp=1,a=2，執行=鍵的運算時temp+a就是1+2=3
因為之后還要使用3進行計算，所以，需要將temp=a，這時再輸入+2，就是3+2=5

效果展示：