急找VB高手（悬赏积分20，运行成功在给5分）

来源：百度知道 编辑：UC知道 时间：2024/06/10 04:06:44
VB题：编一模拟袖珍计算器的完整程序，界面如图（图片另行发过去）要求：输入两个操作数和一个操作符，根据操作决定所做的运算。
提示：1.为了使程序运行正确，对存放操作的文本框Text3,应使用Trim(Text)函数，去除运算符两边的空格。2.对于存放操作符的文本框Text3,利用Select Case语句实现相应的运算 （需代码完整，如运行成功在赏5分）

虽然简单，不过25分也不值去做，你到网上直接下载个源码吧。

看不到你的图……控件说明：
text1：第一个操作数
text2：运算符
text3：第二个操作数
text4：输出
command1：控制计算开始

以下是代码，创建好控件直接粘贴到代码窗口即可：
Private Sub Command1_Click()
Select Case Text2.Text
Case "+"
Text4.Text = Val(Trim(Text1.Text)) + Val(Trim(Text3.Text))
Case "-"
Text4.Text = Val(Trim(Text1.Text)) - Val(Trim(Text3.Text))
Case "*"
Text4.Text = Val(Trim(Text1.Text)) * Val(Trim(Text3.Text))
Case "/"
Text4.Text = Val(Trim(Text1.Text)) / Val(Trim(Text3.Text))
Case "\"
Text4.Text = Val(Trim(Text1.Text)) / Val(Trim(Text3.Text))
End Select
End Sub

让别人代写程序，就得多加分