當前位置:首頁 ? VB程序題 ? 正文

VB程序題:輸入一個合法的3位正整數,測試其數值合法性后,逆序輸出并顯示。龔沛曾

2017-05-27 10:56:12  分類: VB程序題  參與:

VB程序題:輸入一個合法的3位正整數,測試其數值合法性后,逆序輸出并顯示。
例如,輸入“734”,輸出是“437”,如圖2.2.2所示。

提示:
1.利用Text1_LostFocus事件,輸入數據合法性檢查調用IsNumeric函數,參閱教學篇例2.5;若有錯利用MsgBox顯示出錯信息,如圖2.2.3所示;清除文本框內輸入的非法數據,通過SetFocus定位于文本框處,重新輸入。
2.利用“MOD”和“\”運算符將一個3位數分離出3個1位數,然后利用乘法和加法運算將3個1位數連接成一個逆序的3位數。

解題:按要求先在窗體上畫1個按鈕,1個文本框控件(用于接收輸入),2個標簽控件(其中標簽2用于接收輸出)。相應的代碼如下:

Private Sub Command1_Click()
    Dim x%, x1%, x2%, x3% ’先分解這個3位數
    x = Val(Text1)
    x1 = x Mod 10
    x2 = (x Mod 100) \ 10
    x3 = x \ 100
    Label2 = x1 * 100 + x2 * 10 + x3’再重新組成逆序數字
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then '擊回車鍵
        If Not IsNumeric(Text1.Text) Then Text1.Text = "" '如果文本框中不是數字,就清空
    End If
End Sub

Private Sub Text1_LostFocus()
    If Not IsNumeric(Text1.Text) Then '文本框失去焦點,也檢查數據合法法
        MsgBox "輸入非數值數據,請重新輸入", , "數據檢驗"
        Text1.Text = ""
        Text1.SetFocus '讓文本框再次獲得焦點
    End If
End Sub

程序運行效果圖如下:圖2.2.2

Visual Basic程序設計教程(第四版) (龔沛曾等編)課后實驗源碼

來源:濟亨網

本文鏈接:http://www.cojdcn.tw/post/135.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

贊助商鏈接

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

黑龙江福彩22选5开奖果