最新vb实验教程答案.doc
精品资料vb实验教程答案.第一章答案：一、 单项选择题1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.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. D 10. A11. A12. A13. C14. C15. A16. C 17. A 18. D 19. A 20. D21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A41. D 二、判断题1. True 2. True 3. False 4. False 5. False 6. False 7. False第三章一、单项选择题1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B二、判断题1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.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 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 Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j If i = sum Then Print i End If Next iEnd Sub2.参考代码：Private Sub Command1_Click() Dim n%, i% n = InputBox("请输入天数：") x = 1 For i = n - 1 To 1 Step -1 x = (x + 1) * 2 Next Print 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 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 二、多项选择题1.BCD 2. ABD 3. ABC 4.A 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) 13.(T) 14.(F) 15.(F)四、填空题1.数学 日期时间 字符串2. Str(x) Val(x) Asc(x) 3. Sin(30*3.14/180)4. 0 5. 26. 167. Right(x,5)8. 123 123 12 09. Mid(S, 6, 4)10. 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分别由随机函数产生的19之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。Private Sub Form_Click()Dim a As Integer, n As Integer, s As Long, sn As Long, i As IntegerClsRandomizea = Int(Rnd * 9 + 1) ' 产生19之间的整数n = Int(Rnd * 9 + 1) ' 产生19之间的整数Print "a=" a, "n=" nFor i = 1 To ns = s + a * 10 (i - 1)sn = sn + sPrint sn ' 输出前i项之和，输出的最后一个数据为所求Next iEnd Sub2利用shall函数调用“写完板”程序。界面设计如下图：Option ExplicitPrivate Sub Command1_Click() '打开写字板Shell "c:winntsystem32write.exe", vbNormalFocus '打开写字板正常程序大小窗口End Sub第6章 数组一、单项选择题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） 10. （T）四、填空题1. 字符型 2. ReDim 3. 2 4. 4 5. 二公司 6. 1234 7. 第一次 第二次 第三次1 1 1 2 1 3 1 1 1 2 1 31 1 1 2 1 38. 16 9. 3 10. 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 10 For y = 1 To 10 a(x, y) = 0 If x = y Or x + y = 11 Then a(x, y) = 1 End If Print a(x, y); Spc(2); Next y PrintNext 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%, max%, t%For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(Rnd * 99 + 1) Print Tab(5 * j); a(i, j); Next j PrintNext iPrint "各行最大值为："For i = 1 To 10 max = a(i, 1) For j = 1 To 10 If a(i, j) > max Then max = a(i, j) Next j b(i) = max Print b(i)Next iPrintPrint "对各行最大值降序排列后"For i = 1 To 9 For j = i + 1 To 10 If b(j) > b(i) Then t = b(i): b(i) = b(j): b(j) = t Next j Print b(10)Next iEnd Sub3输入一系统字符串，并按递减顺序排列。Option Base 1Option ExplicitDim n%, i%, j%, p As IntegerDim a() As String-Private Sub Command1_Click()ReDim a(n)For i = 1 To n a(i) = InputBox("输入原字符串给数组元素" & "a(" & i & ")")Next iFor i = 1 To n List1.AddItem a(i)Next iEnd Sub-Private Sub Command2_Click()Dim t As StringFor i = 1 To n - 1 p = i For j = i + 1 To n If a(j) > a(p) Then p = j Next j t = a(i): a(i) = a(p): a(p) = tNext iFor i = 1 To n List2.AddItem a(i)Next iEnd Sub-Private Sub Command3_Click()List1.ClearList2.ClearEnd Sub-Private 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.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第九章一、单项选择题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三、填空题1Caption,Name,Index,Checked,Enabled,Visible 2标题 3& 4向下移一个等级5PopupMenu 6MicrosoftWindowsCommonControls6.0 ToolBar7Align 8ImageList 9. 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.Input2.Not EOF(1)3.If Inputdata = “$” then 4.Output5.Print #1,Count第十二章参考答案一、单选题 12345678910DCCDACDBAB二、填空题 【1】不会【2】ScaleHeight 、ScaleWidth【3】(300，-150)【4】右【5】默认【6】AutoSize【7】B【8】02【9】DrawStyle、 DrawWidth【10】Shape第十三章一、单项选择题1.B 2.A 3.C 4.A 5.D 6.D 7.A 8.C 9.A 10.D 11.D 12.C 13.D 14.B 15.C 16.C 17.D 18.B 19.A 20.A21.C 22.C 23.A 24.D 25.D 26.D 27.C 28.A 29.A 30.B 31.B 32.A 33.A 二、判断题1.F 2.T 3.T 4.F 5.T 6.F 7.T 8.F 9.F 10.T 11.T
