求用VB编写一个简单计算器

来源：百度知道 编辑：UC知道 时间：2024/05/12 18:12:28
只要能运行简单的加减乘除功能，有操作数1和2，对应TEXTBOX1和TEXTBOX2，让人输入运算数，操作符TEXTBOX3，输入加减乘除号，结果TEXTBOX4，输出运算结果，有两个按钮，分别为计算和退出。不要求连算。

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = "+"
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-"
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = "*"
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) \ Val(Text2.Text)
Label1.Caption = "\"
End Sub

Private Sub Command5_Click()
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
End Sub

只用一个文本框，也很简单啊
利用控件数组
控件拖四个按所钮 一个文本框
并把COMMAND1 和COMMAND3 的 INDEX属性改为0 ，不然会出错
Dim sign, flag, a, b As Long '标记输入的数字
Private Sub Command1_Click(Index As Integer) '运算符
flag = Index
If IsNumeric(Text1.Text) Then
If sign = 0 Then
a = CLng(Text1.Text)
Else