1、vb實驗教程答案集團(tuán)標(biāo)準(zhǔn)化工作小組 #Q8QGGQT-GX8G08Q8-GNQGJ8-MHHGN#答案：一、單項選擇題2. C 3.D二、判斷題 第二章一、單項選擇題IB2.D8.D3. A9.D4.D10. A5.B7.D11.A12. A13. C14. C15. A16. C17. A l&D19. A20. D21.B22. C23. B 24. A25. B26. A27. C28. D 29. D30. B31.C32. D33. B 34. C35. C36. C37. C38. D 39. C40. A41.D二、判斷題l.Tnie 2. True 3. False 4

2、. False 5. False 6. False 7. False第三章、單項選擇題二、判斷題第四章一、單項選擇題二、判斷題三、操作題1 參考代碼：Private Sub Command 1 _Click()Dini i As Integer, j As Integer, k As IntegerDim sum As IntegerFori = 2To 10000sum = 0For j = 1 Toi/2k = i Mod jIf 0 = k Thensum = sum +jEnd IfNext jIf i = sum ThenPrint iEnd IfNext iEnd Sub2參考代碼

3、：Private Sub Command l_CIick()Dim n%, i%n = InputBoxC'請輸入天數(shù):")X = 1For i = n - 1 To 1 Step-1x = (x + 1) * 2NextPrint xEnd Sub第五章一、單項選擇題：I. B3. C 4. C 5. D6. B 7. A 8. D 9. DII. D二. 多項選擇題2. ABD 3. ABC BC 5. BCD三. 判斷題1. (F)2.(T)3.(T)4.(T)5.(T)6. (F) 7. (F) 8. (F) 9. (F) 10. (T)11. (F) 12. (F)

4、 13. (T) 14. (F) 15. (F)四、填空題1數(shù)學(xué)曰期時間 字符串2. Str (x) Vai (x) Asc (x)3. Sin(30*180)4. 05. 26. 167. Right (x, 5)8. 123 123 12 09. Mid(S, 6, 4)10. Int(Rnd * 900) + 100Mid, 3, 1) & Mid, 2, 1) & Mid, 1, 1)或 Reverse五、操作題1、求Sn=n+nn+nnn+nnnn+nnnnnn.n(a個n)的和，其中a和n分別由隨機(jī)函數(shù)產(chǎn)生的19之間的正整數(shù)，現(xiàn)假設(shè)n=5, a=3,則Sn=5+55

5、+555,求Sn。Private Sub Form_Click()Dim a As Integer, n As Integer, s As Long, sn As Long, i As IntegerCisRandomizen二Int (Rnd *9 + 1)'產(chǎn)生9之間的整數(shù)Print a= ; a, n= ; nFor i = 1 To ns = s + a * 10 " (i - 1)sn 二 sn + sPrint sn'輸出前i項之和，輸出的最后一個數(shù)據(jù)為所求Next iEnd Sub2 .利用shall函數(shù)調(diào)用“寫完板”程序。界面設(shè)計如下圖：Option

6、ExplicitPrivate Sub Command 1_C 1 ick () 打開寫字板Shell "c:winntsystem32", vbNormalFocus '打開寫字板正常程序大小窗口End Sub第6章數(shù)組一、單項選擇題1 . B2. B3.D4. C5. B6. C7. D8.D9. D二、多選題1 . ABC 2. BCD 3. ACD 4. ABD 5. BCD三、判斷題1.(F)2.(F)3.(T)4.(F)5.(F)8. 169. 310. 33四、填空題1.字符型2 ReDim 3. 24.45.二公司6. 12347.第一次第二次第二次

7、1 11 21 31 11 21 31 11 21 36.(T)7.(T)&(F)9.(T)10.(T)五.操作題:1. 編寫程序，建立并輸出一個10*10矩陣，該矩陣兩條對角線元素為1.其它元素均為0。Option Base 1Option ExplicitPrivate Sub Form_Load 0ShowDim a(10, 10) As IntegerDim x As Integer, y As IntegerFor x = 1 To 10For y = 1 To 10a(x, y) = 0Ifx=y0rx+y=ll Thena(x, y) = 1End IfPrint a (

8、x, y); Spc (2);Next yPrintNext xEnd Sub2. 產(chǎn)生隨機(jī)函數(shù)二維數(shù)組a(l to 10,1 to 10)賦予0到99之間的整數(shù)，求出每行a的最大值并 把這些最大數(shù)放到一維數(shù)組b中并用比較交換法降序排列輸出各值。Option ExplicitPrivate Sub Form_Click0Dim a%(l To 10, 1 To 10), b%(l To 10), i%, j%, max%, t%For i = 1 To 10For j = 1 To 10a(i, j) = Int (Rnd *99 + 1) Print Tab(5 * j); a(i, j);

9、Next jPrintNext iPrint "各行最大值為：”For i = 1 To 10max 二 a(i, 1)For j = 1 To 10If a(i, j) > max Then max = a(i, j)Next jb(i) = maxPrint b(i)Next iPrintPrint "對各行最大值降序排列后"；For i = 1 To 9For j = i + 1 To 10If b(j) > b(i) Then t = b(i): b(i) = b(j): b(j)二 t Next jPrint b(10)Next iEnd S

10、ub3. 輸入一系統(tǒng)字符串，并按遞減順序排列。Option Base 1Option ExplicitDim n%, i%, j%, p As IntegerDim a() As StringPrivate Sub Commandl_Click()ReDim a(n)For i = 1 To na(i) = InputBoxC輸入原字符串給數(shù)組元素"& "a(" & i & ")") Next iFor i = 1 To na(i)Next iEnd SubPrivate Sub Command2_C1ick0Dim t

11、 As StringFor i = 1 To n - 1P = iFor j = i + 1 To nIf a(j) > a(p) Then p = jNext jt = a(i): a(i) = a(p): a(p)二 tNext iFor i = 1 To na(i)Next iEnd SubPrivate Sub Command3_C1i ck 0End SubPrivate Sub Form_Load 0n = VaKlnputBoxf請輸入要排序的字符串的個數(shù)"，0) End Sub第七章一、單項選擇題二、判斷題第八章一、單項選擇題1.C13. A 14. B二、判斷題8F.17. T22. T第九章一、單項選擇題第十章 、單項選擇題二、判斷題三、填空題1 . Caption,Name,Index,Checked,Enabled,Visible2 .標(biāo)題3 . &4向下移一個等級5 . PopupMenu6 . ToolBar7 . Align8 . ImageList9. vbModel 或 1第十一章一、單項選擇