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