Question

VB程序设计代码 在线等待！！！速度

要有3个TEXT TEXT分别为 操作数1 和 操作数2 和结果 要有4个OP OP 分别为 加减乘除 还要有3个 command 分别为 计算 清除 结果 在线等待！！
要求有具体代码！！！！

Answer 1

'将单选按钮做成控件数组：op1(0),op1(1),op1(2),op1(3)
'方法是先添加一个OptionButton控件，将其名称改成“op1”、Caption改成“+”，
'然后复制这个op1，粘贴3次到窗体，当询问“是否要创建控件数组？”时，选择是。
'最后将新粘贴的3个op1的Caption分别改为“-”，“*”，“/” 即可。
Dim Operator As String

Private Sub Command1_Click()
Select Case Operator
Case "+"
Text3 = Val(Text1) + Val(Text2)
Case "-"
Text3 = Val(Text1) - Val(Text2)
Case "*"
Text3 = Val(Text1) * Val(Text2)
Case "/"
Text3 = Val(Text1) / Val(Text2)
End Select
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub op1_Click(Index As Integer)
Operator = op1(Index).Caption
End Sub

Answer 2

这个容易做。