當前位置:首頁 ? 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.cojdcn.tw/post/69.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

贊助商鏈接

湘公網安備 43011102000514號 - ICP備08100508號

黑龙江福彩22选5开奖果