9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷及答案visualbasic語(yǔ)言程序設(shè)計(jì)-資料下載頁(yè)
2025-01-14 20:49本頁(yè)面
【正文】 = 【10】 End IfEnd Sub（9）下面的程序執(zhí)行時(shí)，可以從鍵盤(pán)輸入一個(gè)正整數(shù)，然后把該數(shù)的每位數(shù)字按逆序輸出。例如：輸入7685，則輸出 5 8 6 7；輸入1000，則輸出 0 0 0 1。請(qǐng)?zhí)羁?。Private Sub Command1_Click() Dim x As Integer x = InputBox(請(qǐng)輸入一個(gè)正整數(shù)) While x 【11】 Print x Mod 10。 x = x \ 10 Wend Print 【12】 End Sub（10）有如圖所示的窗體。程序執(zhí)行時(shí)先在Text1文本框中輸入編號(hào)，當(dāng)焦點(diǎn)試圖離開(kāi)Text1時(shí)，程序檢查編號(hào)的合法性，若編號(hào)合法，則焦點(diǎn)可以離開(kāi)Text1文本框；否則，顯示相應(yīng)錯(cuò)誤信息，并自動(dòng)選中錯(cuò)誤的字符，且焦點(diǎn)不能離開(kāi)Text1文本框（見(jiàn)圖）。合法編號(hào)的組成是：前2個(gè)字符是大寫(xiě)英文字母，第3個(gè)字符是“”，后面是數(shù)字字符（至少1個(gè)）。下面程序可實(shí)現(xiàn)此功能，請(qǐng)?zhí)羁?。Private Sub Text1_LostFocus() Dim k%, n% n = Len( 【13】 ) For k = 1 To IIf(n 3, n, 4) c = Mid(, k, 1) Select Case k Case 1, 2 If c A Or c Z Then MsgBox (第 amp。 k amp。 個(gè)字符必須是大寫(xiě)字母！) SetPosition k Exit For End If Case 3 If c Then MsgBox (第 amp。 k amp。 個(gè)字符必須是字符 ) SetPosition k Exit For End If Case Else If c 0 Or c 9 Then MsgBox (第 amp。 k amp。 個(gè)字符必須是數(shù)字！) SetPosition k Exit For End If End Select Next kEnd SubPrivate Sub SetPosition(pos As Integer) = pos 1 = 【14】 Text1. 【15】 End Sub2007年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷答案Visual Basic語(yǔ)言程序設(shè)計(jì)本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 201 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 2010本文來(lái)自網(wǎng)絡(luò)，請(qǐng)不要使用盜版，謝謝閱讀 版權(quán)所有 我愛(ài)朱丹老婆 我愛(ài)朱丹老婆 網(wǎng)絡(luò)賺錢(qián)：40635958 二級(jí)Visual Basic語(yǔ)言程序設(shè)計(jì)試卷 第31頁(yè) （共31頁(yè)）
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1