vb實驗教程答案

1、第一章答案：一、單項選擇題1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D13.B 14.C二、判斷題1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T第二章一、單項選擇題1. B2. D3. A4. D5. B6.A7. D8. D9. D10.A11. A12. A13. C14. C15. A16. C17.A 18.D19. A20. D21. B22.C23.B24.A25.B26.A27.C28.D29.D30.B31. C32.D33.B34.C35.C36.C37.C38.D39.C

2、40.A41. D二、判斷題1. True2.True3.False4. False5. False6. False7.False第三章一、單項選擇題1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D13.C 14.D 15.A16.C 17.B二、判斷題1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F .第四章一、單項選擇題1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C10.B 11.A 12.A 13.B 1

3、4.C 15.C 16.D17.A 18.D 19.B 20.A21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D二、判斷題1.F 2.T 3.F 4.F 5.T 6.F 7.T三、操作題1. 參考代碼：Private Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerDim sum As IntegerFor i = 2 To 10000sum = 0For j = 1 To i / 2k = i Mod jIf 0 = k Thensum = sum +

4、jEnd IfNext jIf i = sum ThenPrint iEnd IfNext iEnd Sub2. 參考代碼：Private Sub Command1_Click()Dim n%, i%n = InputBox("請輸入天數(shù)： ")x = 1For i = n - 1 To 1 Step -1x = (x + 1) * 2NextPrint xEnd Sub第五章一、單項選擇題 ：1. B2.C3. C4. C5. D6. B7. A8. D9. D10.D11. D 12.A 13.D 14.A 15.A 16.C 17.B 18.D 19.C 20.B21

5、.A 22.B 23.B 24.C 25.B26.B 27.A 28.A 29.D 30.A二、多項選擇題1.BCD2. ABD3. ABC4.A BC5. 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) 13.(T) 14.(F) 15.(F)四、填空題1. 數(shù)學(xué)日期時間字符串2. Str(x) Val(x) Asc(x)3. Sin(30*3.14/180)4. 05. 26. 167. Right(x,5)8. 123? 123? 12? 09. Mid(S, 6, 4)10.

6、Int(Rnd Text1.Text * 900) + 100Mid(Text1.Text,3, 1) & Mid(Text1.Text,2, 1) & Mid(Text1.Text,1, 1)或 Reverse(Text1.Text)五、操作題1、求 Sn=n+nn+nnn+nnnn+nnnnnnn(a 個 n) 的和，其中 a 和 n 分別由隨機函數(shù)產(chǎn)生的 1 9 之間的正整數(shù)，現(xiàn)假設(shè)n=5，a=3，則 Sn=5+55+555，求Sn。Private Sub Form_Click()Dim a As Integer, n As Integer, s As Long, sn

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

8、d1_Click() '打開寫字板Shell"c:winntsystem32write.exe",vbNormalFocus ' 打開寫字板正常程序大小窗口End Sub第6章數(shù)組一、單項選擇題1B 2.B 3.D 4.C 5.B6.C 7.D 8.D 9.D 10.A11.B 12.B 13.B 14.A 15.C 16.A 17.C 18.A 19.C 20.D二、多選題1ABC 2. BCD 3. ACD 4. ABD 5. BCD三、判斷題1.（F） 2.（F） 3.（T）4.（F）5.（F）6. （T） 7. （T） 8. （F） 9. （T） 1

9、0. （T）四、填空題1.字符型2.ReDim 3. 2 4. 45.二公司 6. 12347.第一次第二次第三次1 11 21 31 11 21 31 11 21 38.169.310. 33五、操作題：1編寫程序， 建立并輸出一個10*10矩陣，該矩陣兩條對角線元素為1，其它元素均為 0。Option Base 1Option ExplicitPrivate Sub Form_Load()ShowDim a(10, 10) As IntegerDim x As Integer, y As IntegerFor x = 1 To 10For y = 1 To 10a(x, y) = 0If

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

11、j) = Int(Rnd * 99 + 1)Print Tab(5 * j); a(i, j);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(

12、i): b(i) = b(j): b(j) = tNext jPrint b(10)Next iEnd Sub3輸入一系統(tǒng)字符串，并按遞減順序排列。Option Base 1Option ExplicitDim n%, i%, j%, p As IntegerDim a() As String-Private Sub Command1_Click()ReDim a(n)For i = 1 To na(i) = InputBox("輸入原字符串給數(shù)組元素" & "a(" & i & ")")Next iFor i

13、 = 1 To nList1.AddItem a(i)Next iEnd Sub-Private Sub Command2_Click()Dim t 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 nList2.AddItem a(i)Next iEnd Sub-Private Sub Command3_Click()List1.ClearList2.ClearEnd Sub-

14、Private Sub Form_Load()n = Val(InputBox("請輸入要排序的字符串的個數(shù)", , 0)End Sub第七章一、單項選擇題1.B 2.A 3.D 4.A 5.B 6.B 7.C 8.D 9.B 10.B11.A 12.C 13.B 14.D 15.D 16.B 17.C 18.D 19.A 20.B21.C 22.C 23.A 24.B 25.A 26.A 27.B二、判斷題1.T 2.F 3.F 4.T 5.F 6.F 7.F 8.T 9.F 10.T11.F 12.F 13.F 14.T 15.F 16.T 17.F 18.F 19.F

15、 20.T21.T 22.F 23.F 24.F 25.T 26.T 27.F 28.F第八章一、單項選擇題1. C 2.B 3.C 4.B 5.B 6.D 7.B 8.C 9.B 10.B 11.D 12.C 13. A 14. B 15.D 16.D 17.D 18.C二、判斷題1.T 2.F 3.F 4.T 5.F 6.T 7.T 8F .9.T 10.F11.T 12.F 13.T 14.T 15.T 16.T 17. T 18.F 19.T 20.T21.F 22. T第九章一、單項選擇題1.D 2.C 3.B 4.A 5.D 6.B 7.A 8.B 9.B 10.C 11.A 12

16、.D二、 1.T 2.T 3.F 4.T 5.F第十章一、單項選擇題1.A 2.A 3.C 4.B 5.B 6.D 7.A 8.D 9.C 10.C 11.A 12.B 13.B 14.C 15.A 16.D二、判斷題1.T 2.F 3.F 4.T 5.T 6.F 7.T 8.T三、填空題1 Caption,Name,Index,Checked,Enabled,Visible2標題 3 &4向下移一個等級5 PopupMenu6 MicrosoftWindowsCommonControls6.0ToolBar7 Align8 ImageList9. vbModel 或 1第十一章一、單

17、項選擇題1.A 2.B 3.C 4.B 5.D 6.B 7.A 8.B 9.C 10.B 11.B 12.C 13.D 14.C 15.C 16.D17.B 18.D 19.C 20.B21.C 22.C 23.A 24.D 25.B 26.B 27.A 28.D 29.D 30.B 31.C 32.A 33.D 34.B35.C二、判斷題1.T 2.F 3.T 4.T 5.T 6.T 7.F 8.T 9.T 10.T 11.F 12.F 13.T 14.F 15.T三、填空題1.Input2.Not EOF(1)3.If Inputdata =“$” then4.Output5.Print #1,Count第十二章參考答案一、單選題12345678910DCCDACDBAB二、填空題【1】不會【2】ScaleHeight 、 ScaleWidth【3】(300，-150)【4】