第一段:
Private Sub Command1_Click()
Dim a, b, c As String
a = Text4.Text
b = Text5.Text
c = Text6.Text
If Text7.Text = "+" Then
a = Val(Val(b) + Val(c))
End If
If Text7.Text = "-" Then
a = Val(Val(b) - Val(c))
End If
If Text7.Text = "*" Then
a = Val(Val(b) * Val(c))
End If
If Text7.Text = "/" And c"0" Then
a = Val(Val(b) / Val(c))
End If
If Text7.Text = "/" And c = 0 Then
MsgBox "除数不能为0"
End If
End Sub
第二段:
Private Sub Text7_Change()
If Text7.Text"+" Or "-" Or "*" Or "/" Then MsgBox "请输入正确的运算符"
End Sub
第一段
运行后没有效果
第二段
当text7=7 之类的时候,就提示类型不匹配
该怎样修改,原因是什么