男人可以用妇炎洁:怎么设计计算器程序

很简单,
private sub form_load()
on error goto err
dim a as double,b as double,c as double
dim sign as string
a=inputbox ("输入第1个数:")
b=inputbox ("输入第2个数:")
sign=inputbox ("输入运算符号:")
select case sign
case "+"
c=a+b
case "-"
c=a-b
case "*"
c=a*b
case "/"
c=a/b
end select
msgbox "答案为"&c
exit sub
err:
msgbox "出错啦!请检查输入数值的正确性."
end sub
还有问题加我qq272572007,还有vb初级问题都可以问我.

private sub form_load()
on error goto err
dim a as double,b as double,c as double
dim sign as string
a=inputbox ("输入第1个数:")
b=inputbox ("输入第2个数:")
sign=inputbox ("输入运算符号:")
select case sign
case "+"
c=a+b
case "-"
c=a-b
case "*"
c=a*b
case "/"
c=a/b
end select
msgbox "答案为"&c
exit sub
err:
msgbox "出错private sub form_load()
on error goto err
dim a as double,b as double,c as double
dim sign as string
a=inputbox ("输入第1个数:")
b=inputbox ("输入第2个数:")
sign=inputbox ("输入运算符号:")
select case sign
case "+"
c=a+b
case "-"
c=a-b
case "*"
c=a*b
case "/"
c=a/b
end select
msgbox "答案为"&c
exit sub
err:
msgbox "出错啦."
end sub
end sub