当前位置:首页 » 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://www.wb98.com/post/69.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

湘公网安备 43011102000514号 - ICP备08100508号