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("请输入天数： ")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. 数学日期时间字符串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 分别由随机函数产生的 1 9 之间的正整数，现假设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'产生 19之间的整数'产生19之间的整数s = s + a * 10 (i - 1)sn = sn + sPrint sn'输出前 i 项之和，输出的最后一个数据为所求Next iEnd Sub2利用 shall 函数调用“写完板”程序。界面设计如下图：Option ExplicitPrivate Sub Comman

8、d1_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） 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产生随机函数二维数组a(1to10,1 to 10)赋予0 到 99 之间的整数，求出每行a 的最大值并把这些最大数放到一维数组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输入一系统字符串，并按递减顺序排列。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("输入原字符串给数组元素" & "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("请输入要排序的字符串的个数", , 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】