計算機二級考試VB上機練習(xí)題.doc

第1題程序填空(1分)(題號:532)【程序填空】題目：輸入n個數(shù)，n由用戶輸入。 程序的功能是將輸入的n個數(shù)反向輸出?請在【】處填入正確的Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show Dim a(100) As Single n = Val(InputBox(輸入個數(shù)n) Print 處理前數(shù)據(jù) : *SPACE* For k = 1 To 【?】 a(k) = Val(InputBox(請輸入第 & k & 個數(shù)) Print a(k); Next k Print *SPACE* m = Int(【?】) For k = 1 To m h = n - k + 1 *SPACE* t = a(h): 【?】: a(k) = t Next k Print 處理的結(jié)果 : For k = 1 To n Print a(k); Next kEnd Sub答案：1). n 2). n / 2 3). a(h) = a(k)第2題程序填空(1分)(題號:498)【程序填空】題目：本程序執(zhí)行功能為，命令按鈕單擊一次后，窗體上輸出結(jié)果為：3625169請在【】處填入正確的內(nèi)容Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & al.dat For Output As #1 For I = 1 To 6 *SPACE* j = 【?】 Print #1, j Next I Close #1 Open App.Path & a1.dat For Input As #2 k = 0 Do While Not EOF(2) *SPACE* k = 【?】 Input #2, xx(k) Loop Close #2 *SPACE* For I = k To k / 2 Step【?】 Form1.Print xx(I) Next IEnd Sub答案： 1). I * I 2). k + 1 或 1 + k 3). -1第3題程序填空(1分)(題號:501)【程序填空】題目：本程序執(zhí)行后，最終在窗體上打印數(shù)字7。請在【】處填入正確的內(nèi)容Private Sub Command1_Click() Dim a As String *SPACE* Open App.Path & abc.bat For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 *SPACE* Open App.Path & abc.bat For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then *SPACE* Print CInt(a) + 【?】 End If Next I Close #1End Sub答案： 1). Output 2). Input 3). 1第4題程序填空(1分)(題號:46)【程序填空】題目：從鍵盤輸入學(xué)生分數(shù)，統(tǒng)計學(xué)生總?cè)藬?shù)和各分數(shù)段人數(shù)， 即優(yōu)秀（90-100）、良好（80-89）、中等（70-79）、 及格（60-69）、不及格（60以下）的人數(shù)。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = 請輸入分數(shù)（-1結(jié)束）msgtitile = 輸入數(shù)據(jù)score = Val(InputBox(msg, msgtitle)*SPACE*While 【?】 total = total + 1*SPACE* Select Case 【?】 Case Is = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5 + 1*SPACE* 【?】score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案： 1). score =0 And score = 100 或 0=score And score = 100 或 0=score 或 score =0 And 100=score 2). score 3). End Select第5題程序填空(1分)(題號:503)【程序填空】題目：用戶界面如圖所示，用實現(xiàn)左右兩個組合框中數(shù)據(jù)的左移和右移功能。 程序開始運行時，在左邊組合框中生成10個由小到大排列的隨機三位 正整數(shù) (假設(shè)在設(shè)計階段該組合框的Sorted屬性值已設(shè)置為True), 現(xiàn)要求完成: （1）單擊鈕，左邊組合框中的10個數(shù)全部移動到右邊組合框，并由大到 小排列，同時使鈕能響應(yīng)，鈕不能響應(yīng)。 （2）單擊鈕，右邊組合框中的10個數(shù)全部移到左邊的組合框，并由小到 大排列，同時使鈕能響應(yīng)，鈕不能響應(yīng)； （3）單擊結(jié)束按鈕，結(jié)束程序運行。請在【】處填入正確的內(nèi)容Private Sub cmdLeft_Click() Dim i As Integer For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i comboRight.Clear *SPACE* 【?】= False *SPACE* 【?】 = True End SubPrivate Sub cmdRight_Click() Dim i As Integer *SPACE* For i = 0 To 【?】 - 1 comboRight.AddItem comboLeft.List(i) Next i *SPACE* 【?】.Clear cmdRight.Enabled = False cmdLeft.Enabled = TrueEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Dim i As Integer Label1.Caption = 組合框1 Label2.Caption = 組合框2 cmdRight.Caption = cmdRight.Enabled = True cmdLeft.Caption = cmdLeft.Enabled = False cmdExit.Caption = 結(jié)束 comboLeft.Text = For i = 1 To 10 comboLeft.AddItem Int(Rnd * 900) + 100 Next i comboRight.Text = End Sub答案： 1). cmdLeft.Enabled 2). cmdRight.Enabled 3). comboLeft.ListCount 4). comboLeft第6題程序填空(1分)(題號:511)【程序填空】題目：程序輸出結(jié)果為：n=3 x=42 y=9請在【】處填入正確的內(nèi)容Private Sub Command1_Click() Dim n, x, y As Integer *SPACE* n = 0: x =【?】: y = 0 Do While x max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c max 或 max c第8題程序填空(1分)(題號:507)【程序填空】題目： 本程序?qū)崿F(xiàn)功能：將順序文本文件 “MYFILE.TXT” 的 內(nèi)容一個字符一個字符地讀入文本框txtTest中請在【】處填入正確的內(nèi)容Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = *SPACE* Open App.Path & MYFILE.TXT For 【?】 As #1 *SPACE* Do While 【?】 EOF(1) Input #1, InputData *SPACE* txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub答案： 1). Input 2). Not 3). InputData第9題程序填空(1分)(題號:50)【程序填空】題目：從鍵盤上輸入一串字符，以?結(jié)束，統(tǒng)計輸入字符中的 大、小寫字母和數(shù)字的個數(shù)。Private Sub Form_Click()Dim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox(請輸入一個字符)*SPACE*While 【?】 Select Case ch Case a To z n1 = n1 + 1*SPACE* Case 【?】 n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Selectch = InputBox(請輸入一個字符)*SPACE*【?】Print n1, n2, n3End Sub答案： 1). ch ? 2). A To Z 3). Wend第10題程序填空(1分)(題號:62)【程序填空】題目：輸入任何一個英文字母x,若x的值 為a,c,d-f ,則 顯示x的大寫字母；若x的值為m,o,p-z,則顯示x的 小寫字母；若為其它的值,則顯示xa（如輸入的X的值是 g，則顯示ga）。Private Sub Command1_Click()x = Text1.Text*SPACE* 【?】 Case a, c, d To f Label1.Caption = UCase(x)*SPACE* Case 【?】 Label1.Caption = LCase(x)*SPACE* 【?】 Label1.Caption = Trim(x) + a End SelectEnd Sub答案： 1). Select Case x 2). m, o, p To z 3). Case Else第11題程序填空(1分)(題號:65)【程序填空】題目：根據(jù)輸入的學(xué)習(xí)成績,分別顯示優(yōu)秀(90分以上), 良好(75 分以上),及格(60分以上),不及格幾個等級。Private Sub Command1_Click()x = Val(Text1.Text)If x = 90 Then Print 優(yōu)秀*SPACE*【?】 Print 良好ElseIf x = 60 Then*SPACE* 【?】*SPACE*【?】 Print 優(yōu)秀End IfEnd Sub答案： 1). ElseIf x = 75 Then 或 ElseIf 75 F，a -f，B-G.Y-D,Z-E.程序段如下：請在【】處填兡正確的內(nèi)容Private Sub Form_Click() Dil strInput As String * 70 輸入字符串 Dim Code AS String * 70 加密結(jié)果 Dim strTemp As String * 1 當(dāng)前處理的字符 Dim i As Intager Dim Length As Integer 字符串長度 Dim iAsc As Inege2 第i個字Ascii碼 *SPACE*(* 【?】 叆字符串 i = 1 Code = *SPACE* 【?】 去掉字符串右邊的空格，求真正的長度 Do While (i = A And strTemp Asc(Z) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) ElseIf (strTemp = a And strTemp Asc(z) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) Else Code = Left$(Code, i - 1) + strTemp End If i = i + 1 Loop *SPACE* 【?】 顯示加密結(jié)果End Sub答案:strInput = txtInput.Text Length = Len(RTrim(strInput) strTemp = Mid(strInput, i, 1) txtCode.Text = Code txtCode = Code 答案： 1). strInput=txtInput 或 strInput=txtInput.Text 2). Length = Len(RTrim(strInput) 3). strTemp = Mid(strInput, i, 1) 4). txtCode.Text = Code 或 txtCode = Code第14題程序填空(1分)(題號:531)【程序填空】題目：打印出 100-999 之間的所有水仙花數(shù) 如果一個數(shù)的 百位，十位，個位數(shù)的立方和等于這個數(shù)本身 則這個數(shù)為水仙花數(shù)請在【】處填入正確的內(nèi)容Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer *SPACE* For i = 100 To 【?】 *SPACE* a = Int(i / 【?】) b = Int(i - 100 * a) / 10) *SPACE* c = i - 100 * a - 【?】 If a * a * a + b * b * b + c * c * c = i Then Print i End If Next iEnd Sub答案： 1). 999 2). 100 3). 10 * b 或 b * 10第15題程序填空(1分)(題號:36)【程序填空】題目：以下程序的功能如(圖1)。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(請輸入a的值)b = InputBox(請輸入b的值)c = InputBox(請輸入c的值)d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*SPACE* If 【?】 Then r = Sqr(d) /(2 * a) x1 p + r x2 = p - r Else x1 = p x2 = p*SPACE* 【?】 Print x1=: x1, x2=; x2*SPACE*【?】 q = Sqr(-d) / (2 *a) Print x1=; p; +; q; i, x2=; p; -; q; iEnd IfEnd Sub答案： 1). d 0 或 0 d 2). End If 3). Else第16題程序填空(1分)(題號:47)【程序填空】題目：以下程序段用于實現(xiàn)：輸入兩個正整數(shù)m和n，求其最大 公因數(shù)和最小公倍數(shù)。 Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox(請輸入一個正整數(shù))num2 = InputBox(請輸入一個正整數(shù))*SPACE*If 【?】 Then temp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num2*SPACE*While 【?】 temp = a Mod b a = b*SPACE* 【?】WendPrint 最大公因數(shù)為：; aPrint 最小公倍數(shù)為：; num1 * num2 / aEnd Sub答案： 1). num1 num1 2). b 0 3). b = temp第17題程序填空(1分)(題號:520)【程序填空】題目：完成程序，使程序輸出值為 15請在【】處填入正確的內(nèi)容Private Sub Command1_Click() *SPACE* Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 *SPACE* For 【?】 = 1 To 2 *SPACE* x = x + 【?】 Next k Next j Next i Print x End Sub答案： 1). k 2). k 3). 6第18題程序填空(1分)(題號:539)【程序填空】題目： 隨機生成10個數(shù)存入數(shù)組中，并將數(shù)組排序后輸出請在【】處填入正確的內(nèi)容Private Sub Command1_Click() Dim a(10) As Integer Dim i, j, t As Integer For i = 1 To 10 *SPACE* a(i) = CInt(10 【?】 Rnd + 1) Next For i = 1 To 9 *SPACE* For j = 【?】 To 10 *SPACE* If a(i) 【?】 Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next End Sub答案： 1). * 2). i + 1 或 1 + i 3). a(j)第19題程序填空(1分)(題號:537)【程序填空】題目：窗體中有Text1-Text7共7個文本框，單擊按鈕Command1在 Text7中顯示前6個文本框中的數(shù)值的最大數(shù)請在【】處填入正確的內(nèi)容Private Sub Command1_Click() Dim a, b, c, d, e, f, m As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = Val(Text4.Text): e = Val(Text5.Text): f = Val(Text6.Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) *SPACE* Text7.Text = 【?】 End Sub*SPACE*Sub max(x, y, z, 【?】) If x y Then m = x Else m = y End If *SPACE* If m n;(2) m除以n得余數(shù)r;(3) 若r=0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)(4) m-n，n-r再重復(fù)執(zhí)行(2)原兩數(shù)相乘除以最大公約數(shù)即為最小公倍數(shù)，程序如下:請在【】處填入正確的內(nèi)容Private Sub Form_Click() Dim m%, n%, mn% n = Val(InputBox(n=) m = Val(InputBox(n=) If n = 0 Or m m 或 mn 3). n 0 或 0 n 4). r = m Mod n第23題程序填空(1分)(題號:53)【程序填空】題目：下面的程序?qū)崿F(xiàn)：從鍵盤輸入一個數(shù)字，將其插入一個 有序數(shù)組中，插入后的數(shù)組仍保持有序。Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 8 a(i) = 2 * i - 1 Print a(i);Next iPrintx = InputBox(請輸入要插入的整數(shù))*SPACE*【?】i = 8Do While a(i) x*SPACE* 【?】 i = i - 1Loop*SPACE*If i 0 Then 【?】For i = 1 To 9 Print a(i);Next iEnd Sub答案： 1). a(0) = x 2). a(i + 1) = a(i) 3). a(i + 1) = x第24題程序填空(1分)(題號:518)【程序填空】題目：將字符串S1反向輸出請在【】處填入正確的內(nèi)容Private Sub Command1_Click() Dim s1 As String, s2 As String s1 = abcdef *SPACE* Call Invert(【?】, s2) Print s2End SubPrivate Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String Dim i As Integer *SPACE* i = 【?】 Do While i = 1 tempstr = tempstr + Mid(xstr, i, 1) i = i - 1 *SPACE* 【?】 ystr = tempstrEnd Sub答案： 1). s1 2). Len(xstr) 3). Loop第25題程序填空(1分)(題號:38)【程序填空】題目：下面的程序段，用于實現(xiàn)在一個nXm的矩陣中，找出值最 大的元素所在的行和列，并輸出其值及行號和列號。Private Sub Form_Click()Dim mat() As IntegerDim n, m As Integern = Val(InputBox(請輸入矩陣的行數(shù))m = Val(InputBox(請輸入矩陣的列數(shù))*SPACE*【?】For i = 1 To n For j = 1 To m mat(i, j) = InputBox(請輸入數(shù)組元素值) mat(i, j) = Val(mat(i, j) Next jNext iPrint 所建立的矩陣為For i = 1 To n For j = 1 To m Print mat(i, j); Next j PrintNext iMax = mat(1, 1)For i = 1 To n For j = 1 To m*SPACE* If 【?】 Then Max = mat(i, j) col = j*SPACE* 【?】 End If Next jNext iPrintPrint 矩陣最大的元素的值為：; mat(row, col)Print 它所在的行號為：; row; 列號為：; colEnd Sub答案： 1). ReDim mat(n, m) As Integer 2). Max Max 3). row = I第26題程序填空(1分)(題號:529)-【程序填空】題目：窗體上建立了兩個文本框Text1(輸入字符串)及 Text2(轉(zhuǎn)換結(jié)果)，一個命令按鈕Co