Question

VB单选怎么用来控制按钮

例如：一个小计算器我t1、t2与t3 当单选1选中时点击计算按钮时t3=t1+t2、当单选2选中时点击计算按钮时是t3=t1-t2 代码要怎么写

Answer 1

Dim t1, t2, t3
Private Sub Form_Load()
t1 = 9
t2 = 5
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
t3 = t1 + t2
Me.Caption = t3
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
t3 = t1 - t2
Me.Caption = t3
End If
End Sub

追问

如图  怎么写功能区的代码   

追答

留个QQ我传你个简单的计算器代码，我自己做的

追问

Private Sub Command1_Click()
If Option1 = True Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1 = "+"
End If
If Option2 = True Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1 = "-"
End If
。。。
End Sub
计算按钮上我是这样写的╯﹏╰

Answer 2

Private Sub Command1_Click()
Dim t1 As Double, t2 As Double, t3 As Double
t1 = 9
t2 = 5
t3 = IIf(Option1.Value, t1 + t2, t1 - t2)
Me.Caption = t3
End Sub