Question

新手求助，帮忙编一个VB程序

利用select case，编写一模拟袖珍计算机的完整程序
要求：输入两个操作数和一个操作符，根据操作符决定所作的运算。

例：输入Text1（7） Text2（12） Text3（+）
按command1 后， Text4 输出 （19）
按command2 ，程序结束

提示:对存放操作符的文本框Text3，使用Trim（Text），去除运算符两边的空格。

--------
我自己搞了一个下午没搞出来，哭死~~~~晕过去。。。。
不好意思，再加一个。。。

用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根，立方和立方根，每个数保留三位小数，其间有间隔。

谢谢哪位再做一下这个，我会再给分的，拜托了。。。

Answer 1

修改除数为0情况
Private Sub Command1_Click()
Select Case (Trim(Text3.Text))
Case "+"
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text4.Text = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Case "/"
if val(text2.text)=0 then msgbox "除数不能为0":exit sub
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
Case Else
MsgBox "运算符有错，请检查"
End Select
End Sub

Private Sub Command2_Click()
End
End Sub

补充题
Private Sub Command1_Click()
a = InputBox("输入数")
If a >= 0 Then MsgBox "请输入正实数": Exit Sub
b = Format(a ^ 2, "0.000")
c = Format(a ^ (1 / 2), "0.000")
d = Format(a ^ 3, "0.000")
e = Format(a ^ (1 / 3), "0.000")
Print b; Spc(3); c; Spc(3); d; Spc(3); e
End Sub

Answer 2

2楼正解，作个补充
将
Case "/"
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
改为
Case "/"
if val(text2)=0 then
msgbox "除数不能为0"
else
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
end if

'---------------
Private Sub Command2_Click()
dim t as integer
t=inputbox("输入正整数")
print format(t^2,"0.000");
print format(t^0.5,"0.000");
print format(t^3,"0.000");
print format(t^(1/3),"0.000")
end sub

Answer 3

可以这里去看看,VB6做的一个简单的四则运算的计算器.
http://club.163.com/viewElite.m?catalogId=25183&eliteId=25183_100ea21a1ae001e

Answer 4

学习了~~~