Question

求17键的计算器VB代码 尽量容易看懂

1.窗体中只包含一个标签和17个命令按钮
2. 要求用窗体中唯一的一个标签显示运算数据及运算结果。初始状态显示0（或显示空白）。
3. 要求用命令按钮输入运算数据。窗体中包含0-9、+、-、*、/、=、C、小数点等17个命令按钮。
4. 当单击数字 和小数点按钮时，能在标签上显示多位的运算数据。
5. 当单击+、-、*、/按钮时，将第一个运算数取出，并清除标签显示0（或显示空白）。
6. 当单击“=”按钮时，将第二个运算数取出， 并计算出运算结果之后显示到标签上。
7. 当单击“C”按钮时，清除两个运算数及标签并显示0（或显示空白）。

Answer 1

百度下 关键字 很多计算器代码
如果你需要原创，易懂，有注解的 可以私信我

Answer 2

Dim a, b, c As Double
Dim f As String
声明代码
Private Sub Commandx_Click()
Text1.Text = Text1.Text + "1"
End Sub
‘此为0~9数字按键代码。
Private Sub Commandx_Click()
a = Val(Text1.Text)
f = "+"
Text1.Text = ""
End Sub
Private Sub Commandx_Click()
a = Val(Text1.Text)
f = "-"
Text1.Text = ""
End Sub
Private Sub Commandx_Click()
a = Val(Text1.Text)
f = "*"
Text1.Text = ""
End Sub
Private Sub Commandx_Click()
a = Val(Text1.Text)
f = "/"
Text1.Text = ""
End Sub
此为加减乘除代码
Private Sub Commandx_Click()
If f = "+" Then
c = a + b
ElseIf f = "-" Then
c = a - b
ElseIf f = "*" Then
c = a * b
ElseIf f = "/" And b = 0 Then
MsgBox ("除数不能为零")
ElseIf f = "/" Then
c = a / b
End If
Text1.Text = CStr(c)
此为等于号代码
Private Sub Commandx_Click()
text1.text = ""
此为C键代码