我是一个中专生，刚学VB没几天，老师留了一个作业，我做不出来，想请大家帮忙给看看。
编制一个模拟计算程序，能进行两个操作数算术运算，同时能对输入的操作数及运算符具有合法性判断，并利用MSGBOX显示出错误信息。
界面要求：四个文本框分别为数1、运算符、数2、结果，一个按钮：计算。

自己动手吧

dim a!,b!,c&
a=val(text1.text)
b=val(text3.text)
c=text2.text
if not isnumeric(text1) or not isnumeric(text3) then
msgbox"输入有误!请重新输入!"
text1=""
text2=""
text3=""
end if
select case c
case "+"
text4.text=a+b
case "-"
text4.text=a-b
case "×"
text4.text=a*b
case "÷"
text4.text=a/b
end select
end sub



不知道对否，请高手指点一下`````