袖珍计算器c语言设计源码,VB程序题：编一模拟袖珍计算器的完整程序，界面如下图所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 VB源码 龚沛曾...

VB程序题：编一模拟袖珍计算器的完整程序，界面如下图所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 VB源码 龚沛曾

提示：

1.为了程序运行正确，对存入操作符的文本框Text3,应该使用Trim(Text)函数，去除运算符两边的空格。

2.对于存放操作符的文本符 Text3 ,利用Select Case 语句实现相应的运算。

解题：

先在窗体上画1个标签，Caption属性设置为："输入数1       输入数2       输入操作符     计算结果"

再画4个文本框，2个按钮。

代码如下：

Private Sub Command1_Click()

Select Case Trim(Text3)

Case "+"

Text4 = Val(Text1) + Val(Text2)

Case "-"

Text4 = Val(Text1) - Val(Text2)

Case "*"

Text4 = Val(Text1) * Val(Text2)

Case "/"

If Val(Text2) = 0 Then

MsgBox "分母为零，请重新输入"

Text2 = ""

Text2.SetFocus

Else

Text4 = Val(Text1) / Val(Text2)

End If

End Select

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源：济亨网