vb试验教程答案

1、第一章答案：一、单项选择题第二章一、单项选择题1. B2. D3. A4. D5. B11. A12. A13. C14. C15. A21. B22. C23. B24. A25. B31. C32. D33. B34. C35. C1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 二、 判断题1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T41. D二、判断题9.B 10.B11.A12.D13.B 14.C6.A7. D8. D9. D10. A16. C17. A18. D19. A20. D26. A27. C28. D29

2、. D30. B36. C37. C38. D39. C40. A1. True 2. True 3. False 第三章一、单项选择题4. False5. False6. False7. False1.A 2.D 3.D 4.B 5.B 6.D7.C 8.D 9.B 10.B 11.D 12.D 13.C14.D15.A16.C 17.B、判断题1.T 2.F 3.T 4.T 5.F 6.F7.F 8.F 9.F10.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.C

3、10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.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 / 2 k = i Mod j I

4、f 0 = k Then sum = sum + j End IfNext jIf i = sum ThenPrint iEnd If Next iEnd Sub2. 参考代码：Private Sub Command1_Click()Dim n%, i%n = InputBox(" 请输入天数： ")x = 1For i = n - 1 To 1 Step -1x = (x + 1) * 2NextPrint xEnd Sub 第五章一、单项选择题 ：1. B 2.C 3. C 4. C 5. D6. B 7. A 8. D 9. D 10.D11. D 12.A 13.D

5、 14.A 15.A16.C 17.B 18.D 19.C 20.B21.A 22.B 23.B 24.C 25.B26.B 27.A 28.A 29.D 30.A二、多项选择题5. BCD5. ( T)1.BCD 2. ABD 3. ABC 4.A BC三、判断题1. (F) 2. (T) 3. ( T) 4. (T) 6.(F) 7.(F) 8.(F) 9.(F) 10.(T)11.(F) 12.(F) 13.(T) 14.(F) 15.(F)四、填空题1. 数学 日期时间 字符串2. Str(x) Val(x) Asc(x)3. Sin(30*3.14/180)4. 05. 26. 16

6、7. Right(x,5)8. 123? 123? 12? 09. Mid(S, 6, 4)10. Int(Rnd Textl.Text * 90Mid(Text1.Text, 3,1)& Mid(Text1.Text, 2,1)& Mid(Text1.Text, 1,1)Reverse(Textl.Text)五、操作题1、求Sn=n+nn+nnn+nnnn+nnnnnnn(a个n)的和，其中a和n分别由随机函数产生的之间的正整数，现假设 n=5，a=3，则Sn=5+55+555，求Sn。Private Sub Form_Click()Dim a As In teger, n

7、As In teger, s As Long, sn As Lon g, i As In tegerClsRan domizea = In t(R nd * 9 + 1) n = In t(R nd * 9 + 1) Print "a=" a, "n=" n For i = 1 To ns = s + a * 10 A (i - 1) sn = sn + sPrint sn'Next i产生19之间的整数产生19之间的整数输出前i项之和，输出的最后一个数据为所求End Sub2 利用shall函数调用“写完板”程序。界面设计如下图：Opti on

8、 ExplicitPrivate Sub Comma nd1_Click()'打开写字板Shell "c:wi nn tsystem32write.exe", vbNormalFocus '打开写字板正常程序大小窗口End Sub第6章数组一、单项选择题I. B 2. B 3. D 4. C 5. B6. C 7. D 8. D 9. D 10.AII. B 12.B 13.B 14.A 15.C 16.A 17.C 18.A 19.C 20.D二、多选题1. ABC 2. BCD 3. ACD 4. ABD 5. BCD三、判断题1.(F)2.( F)3.

9、(T)4.(F)5.(F)6.（ T）7.（T）8.（F）9.（T）10.（T）四、填空题1. 字符型 2.ReDim 3. 2 4.4 5.二公司 6. 12347. 第一次第二次第三次1 1 1 21 31 1 1 21 31 1 1 21 38. 16 9. 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 Intege

10、rFor x = 1 To 10For y = 1 To 10a(x, y) = 0If x = y Or x + y = 11 Thena(x, y) = 1End IfPrint a(x, y); Spc(2);Next yPrintNext xEnd Sub2产生随机函数二维数组a(1 to 10,1 to 10) 赋予0到99之间的整数，求出每行 a的最大值并把这些最大数放到一维数组 b 中并用比较交换法降序排列输出各值。Option ExplicitPrivate Sub Form_Click()Dim a%(1 To 10, 1 To 10), b%(1 To 10), i%, j

11、%, max%, t%For i = 1 To 10For j = 1 To 10a(i, j) = Int(Rnd * 99 + 1)Print Tab(5 * j); a(i, j);Next jPrintNext iPrint " 各行最大值为： "For i = 1 To 10 max = a(i, 1)For j = 1 To 10If a(i, j) > max Then max = a(i, j)Next j b(i) = max Print b(i)Next iPrintPrint " 对各行最大值降序排列后 "For i = 1

12、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 Sub3输入一系统字符串，并按递减顺序排列。 Option Base 1Option ExplicitDim n%, i%, j%, p As Integer Dim a() As StringPrivate Sub Command1_Click()ReDim a(n)For i = 1 To na(i) = InputBox(" 输入原字符串给数组元素 " &

13、; "a(" & i & ")") Next iFor i = 1 To nList1.AddItem a(i) Next iEnd SubPrivate 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 SubP

14、rivate Sub Command3_Click()List1.ClearList2.ClearEnd SubPrivate Sub Form_Load()n = Val(InputBox(" 请输入要排序的字符串的个数 ", , 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.

15、F 8.T 9.F 10.T11.F 12.F 13.F 14.T 15.F 16.T 17.F 18.F 19.F 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

16、第九章一、单项选择题1.D 2.C 3.B 4.A 5.D 6.B 7.A 8.B 9.B 10.C 11.A 12.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,lndex,Checked,Enabled,Visible2 .标题一3. &4 .向下移一个等级5. PopupMenu6. MicrosoftWindow

17、sCommonControls6.0ToolBar7. Align8. ImageList9. vbModel 或 1第十一章一、单项选择题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.D 17.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.B 35.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.I nput2. Not EOF3.If In putdata = $” the n4.Output5.Pri nt #1,Cou nt第十二章参考答案、单选题12345678910DCCDACDBAB、填空题【11不会【21ScaleHeight、ScaleWidth【31(300, -150)【