簡易計算機

執行畫面 :

程式碼:

'這只有簡單的計算機畫無法真正計算

Private Sub Command1_Click()
Text1.Text = Text1 & "1"
End Sub

Private Sub Command10_Click()
Text1.Text = Text1 & "0"
End Sub

Private Sub Command11_Click()
Text1.Text = Text1 & "+"
End Sub

Private Sub Command12_Click()
Text1.Text = Text1 & "-"
End Sub

Private Sub Command13_Click()
Text1.Text = Text1 & "*"
End Sub

Private Sub Command14_Click()
Text1.Text = Text1 & "/"
End Sub

Private Sub Command15_Click()
Text1.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = Text1 & "2"
End Sub

Private Sub Command3_Click()
Text1.Text = Text1 & "3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1 & "4"
End Sub


Private Sub Command5_Click()
Text1.Text = Text1 & "5"
End Sub

Private Sub Command6_Click()
Text1.Text = Text1 & "6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1 & "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1 & "8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1 & "9"
End Sub