在窗体上画2个文本框,名称分别为TEXT1和text2;然后画2个标签,标题分别为“操作数1”“操作数2”

画一个命令按钮,名称为command 1,标题为计算。再建立一个含有4个单选按钮,标题为+—*/的控件按钮,名称为OPTION1;
再建立两个标签,名为label3和label4,标题为运算结果和空白
在text1 text2中输入2个数值,选中一个单选按钮后,单击命令按钮后,项应的计算结果显示在LABEL4处
代码如下
Private Sub Command1_Click()
For i = 0 To 3
if ? =true then
opt = option1(i).Caption
End If
selsect case ?
Case "+"
result = Val(text1.Text) + Val(text2.Text)
Case "-"
result = Val(text1.Text) - Val(text2.Text)
Case "*"
result = Val(text1.Text) * Val(text2.Text)
Case "/"
result = Val(text1.Text) / Val(text2.Text)
End Select
?=result
End Sub
问号处填什么代码????

第1个回答  2010-09-12
Private Sub Command1_Click()
For i = 0 To 3
If Option1(i).Value = True Then
opt = Option1(i).Caption
End If
Select Case opt
Case "+"
result = Val(text1.Text) + Val(text2.Text)
Case "-"
result = Val(text1.Text) - Val(text2.Text)
Case "*"
result = Val(text1.Text) * Val(text2.Text)
Case "/"
result = Val(text1.Text) / Val(text2.Text)
End Select
label4.Caption = result
End Sub本回答被网友采纳
相似回答