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版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/69.html