一个简单的vb问题 菜鸟求救

来源:百度知道 编辑:UC知道 时间:2024/05/17 01:15:15
输入两个数值和一个加减乘除运算符 输出运算结果
谢谢 不过还有一点我没说清楚 就是运算符要求输入 加减乘除 都可以输入 能改一下么 谢谢 两道题都是

'四个Text控件,num1,num2,result和ope,一个按钮command1
'两个num为操作数,result存放结果,ope存放运算符
Private Sub command1_Click()
select case ope.text
case "+"
result.text=val(num1.text)+val(num2.text)
case "-"
result.text=val(num1.text)-val(num2.text)
case "*"
result.text=val(num1.text)*val(num2.text)
case "/"
result.text=val(num1.text)/val(num2.text)
case else
msgbox "运算符错误!"
end select
end sub
'程序我没有调试过,你自己调试一下吧,
'思路没有问题。
'可以改变运算符啊,加减乘除都可以,
'三个文本框,num1中输入第一个数,num2中输入
'第二个数,
'ope中输入运算符(加减乘除符号其中之一)。

Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 1
b = 2
c = a + b
Print c
End Sub