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.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.

2、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 The

3、n 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)

4、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 =

5、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

6、 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),

7、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-

《vb实验教程答案》由会员豆浆分享，可在线阅读，更多相关《vb实验教程答案》请在金锄头文库上搜索。