计算器的vb代码

来源：百度知道 编辑：UC知道 时间：2024/09/20 09:25:01
功能要和电脑上（开始－程序－附件－计算器）的一样哈．．．但MR．MS．MC．M+这四个不要．．要具体点哈．．谢谢
建议你参考一下windows的计算器，输入与输入结果都显示在一个文本框内
输入第一个数值后再按下运算符按扭的时候，把这个值传给你定义的变量，再考虑把运算符加进计算式.当输入第二个数值，按第二个运算符或者等号后直接得出前面的计算结果. 当输入第三个或更多的数时也要有这样的效果.

自己做不到这样的效果请各位帮个忙..谢谢

Option Explicit
Dim a As Double, b As Double
Dim c As String
Dim clear As Boolean

Private Sub Command17_Click() 'C按扭
Text1.Text = ""
End Sub

Private Sub Digits_click(index As Integer) '0-9十个command的名称均为 Digits
If clear Then
Text1.Text = ""
clear = False
End If
Text1.Text = Text1.Text + Digits(index).Caption
End Sub

Private Sub Command10_Click() '+
a = Val(Text1.Text)
c = "+"
Text1.Text = ""
End Sub

Private Sub Command11_Click() '-
a = Val(Text1.Text)
c = "-"
Text1.Text = ""
End Sub

Private Sub Command12_Click() '*
a = Val(Text1.Text)
c = "*"
Text1.Text = ""
End Sub

Private Sub Command13_Click()