VB为什么报错

来源：百度知道 编辑：UC知道 时间：2024/07/04 16:45:36
Dim opt As Double

Private Sub Command1_Click()
opt = "+"
End Sub

Private Sub Command2_Click()
opt "-"
End Sub

Private Sub Command3_Click()
opt = "*"
End Sub

Private Sub Command4_Click()
opt = "/"
End Sub

Private Sub Command5_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
Select Case opt
Case "+"
result = Val(a) + Val(b)
Case "-"
result = Val(a) - Val(b)
Case "*"
result = Val(a) * Val(b)
Case "/"
result = Val(a) / Val(b)
End Select
Text3.Text = result

End Sub

Dim opt As String
Private Sub Command1_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
Select Case opt
Case "+"
result = Val(a) + Val(b)
Case "-"
result = Val(a) - Val(b)
Case "*"
result = Val(a) * Val(b)
Case "/"
result = Val(a) / Val(b)
End Select
Text3.Text = result
End Sub

Private Sub Form_Load()
Option1.Caption = "加"
Option2.Caption = "减"
Option3.Caption = "乘"
Option4.Caption = "除"
End Sub

Private Sub Option1_Click()
opt = "+"
End Sub

Private Sub Option2_Click()
opt = "-"
End Sub

Private Sub Option3_Click()
opt = "*"
End Sub

Private Sub Option4_Click()
opt = "/"
End Sub

opt定义类型错误~ 四则运算事件也错误~
添加4个单选控件 一个按钮 3个text