请教一个关于VB四则运算的问题!

来源：百度知道 编辑：UC知道 时间：2024/05/13 03:54:15
在运算数1和运算数2所对应的文本框输入运算数,然后选择运算符的单选按钮,最后单击=,在运算结果所对应的文本输出运算结果.

我已经在窗体弄好了那些控件.可是我不知道那个cammond1=,就是怎样按=才显示出结果.请帮助下我这个初学者,下面我写的程序,有错了.请问怎样改才行??不要笑偶哦..

Private Sub Option1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = A + B
End Sub

Private Sub Option2_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = A - B
End Sub

Private Sub Option3_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = A * B
End Sub

Private Sub Option4_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
If B <> 0 Then
C = A / B
Else
C = "输入操作数错误"
End If
End Sub

Private Sub Command1_Click()
Text6.Text = C
End Sub

按=,可是结果那个文本框没有数据出来.

谢谢了.
梦想种子 - 同进士出身 六级的方法也是不行啊.这次结果的框是有东西,不过不是正确答案,而是0,全部都是0.

'添加3个TEXT，1个Command(=),4个OPTION（+-*/）
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
If Option1.Value = True Then
Text3 = a + b
ElseIf Option2.Value = True Then
Text3 = a - b
ElseIf Option3.Value = True Then
Text3 = a * b
End If
If Option4.Value = True And b <> 0 Then
Text3 = a / b
ElseIf Option4.Value = True And b = 0 Then
MsgBox "出错"
End If
End Sub

在代码框最开头声明：
Dim C as Single

这样就可以使C这个变量在窗口一直用。
否则就像你所说的什么都没有。
当每个Option中的事件执行完后，C会扔掉，所以必须声明。