不知道是不是你要的样子!
在窗体上画:三个文本框,一个标签,一个按钮,一个组合框控件.
然后在按钮的单击事件里写:
Private Sub Command1_Click()
'判断文本框1和2的内容是否为数值型数据
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
Select Case Combo1.Text
Case "+"
Text3.Text = CDbl(Text1.Text) + CDbl(Text2.Text)
Case "-"
Text3.Text = CDbl(Text1.Text) - CDbl(Text2.Text)
Case "*"
Text3.Text = CDbl(Text1.Text) * CDbl(Text2.Text)
Case "/"
If Text2.Text = 0 Then '这里是判断除数不能为零
MsgBox "除数不能为零!", 64, "提示"
Else
Text3.Text = CDbl(Text1.Text) / CDbl(Text2.Text)
End If
End Select
Else
'如果文本框1和2有一个不是数字的话,弹出错误警告信息
MsgBox "只能输入数字!", 16, "提示"
End If
End Sub
一定要多练习!!!