全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)vb上機(jī)試題及答案十一(編輯修改稿)
2025-07-16 20:45 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 已設(shè)置完畢，現(xiàn)使用KeyPress事件編寫(xiě)一個(gè)口令程序，程序運(yùn)行后，在文本框中輸入口令，如果正確，則顯示相應(yīng)的信息，單擊確定按鈕后，將顯示一行信息；如果口令不正確，則要求重新輸入。3次輸入的口令都不正確，則停止輸入，并結(jié)束程序。程序運(yùn)行的畫(huà)面如圖所示。要求：題目中所給的程序不完整，請(qǐng)讀懂程序后將其補(bǔ)充完整，以原文件名保存。試題源程序：1 Private Sub Form_Load()2 = 3 = 104 = 125 = True6 = 隸書(shū)7 = 請(qǐng)輸入口令...8 End Sub9 Private Sub Text1_KeyPress(KeyAscii As Integer)10 Static PWord As String11 Static Counter As Integer12 Static Numberftries As Integer13 Numberftries = Numberftries + 114 39。If ? Then End15 Counter = Counter + 116 39。PWord = PWord + ?17 KeyAscii = 018 = String$(Counter, *)19 If LCase$(PWord) = abcd Then20 = 21 PWord = 022 MsgBox 口令正確，繼續(xù)...23 Counter = 024 Print continue...25 39。ElseIf ?Then26 Counter = 027 PWord = 28 = 29 MsgBox 口令不對(duì)，請(qǐng)重新輸入30 End If31 End Sub****************************************************************參考答案與分析（1）【解析】本題主要考查了鼠標(biāo)左鍵以及右鍵的使用，即鼠標(biāo)的Button屬性。Button為1時(shí)，表示鼠標(biāo)的左鍵，為2時(shí)，表示鼠標(biāo)的右鍵，為4時(shí)，表示鼠標(biāo)的中鍵，故在第一個(gè)?處填入1，表示按下鼠標(biāo)的左鍵，第二個(gè)?處填入2，表示鼠標(biāo)的右鍵?！敬鸢浮浚?）啟動(dòng)VB。（2）雙擊窗體的任何位置，進(jìn)入代碼編輯窗口，補(bǔ)充程序如下：第一個(gè)?處填入1第二個(gè)?處填入2
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1