VB中期测试考试卷(答案).doc

江南大学考程序设计基础VB期中试卷使用专业、班级 学号 姓名 题数一二三四总分得分本题得分答题说明：请将答案填写到答题纸上。一、 选择题每题1分，共计42分；1. 在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（）A. 工程资源管理器窗口B. 窗体设计窗口C. 属性窗口D. 代码窗口2. 在设计阶段，当按Ctrl + R键时，所打开的窗口是（）A. 工程资源管理器窗口B. 工具箱窗口C. 属性窗口D. 代码窗口3. VB应用程序设计的一般步骤是（）。A. 分析-设计-界面-编码-测试B. 界面-设计-编码-分析-文档C. 分析-界面-编码-设计-测试D. 界面-编码-测试-分析-文档4. 以下说法中，正确的是（）A. 对象的运行态属性不出现在对象属性窗口中B. 属性值只能在属性窗口中设置C. 在程序中可以用赋值语句给对象的任何一个属性赋值D. 属性是对象的特征，所有的对象都有相同的属性5. 以下叙述中错误的是（）。A. 在Visual Basic的窗体中，一个命令按钮是一个对象B. 事件是能够被对象识别的状态变化或动作C. 事件都是由用户的键盘操作或鼠标操作触发的D. 不同的对象可以具有相同的方法6. 以下描述中错误的是（）。A. 多窗体应用程序中每个窗体作为一个磁盘文件保存B. 多窗体应用程序的启动窗体可以在设计时设定C. 在多窗体应用程序中，可以有多个当前窗体D. 多窗体应用程序可以编译生成一个EXE文件7. 以下关于多窗体的叙述中，正确的是（）。 A. 只有第一个建立的窗体才是启动窗体B. 向一个工程添加多个窗体，存盘后生成一个窗体文件C. 打开一个窗体时，其他窗体自动关闭D. 任何时刻，只有一个当前窗体8. 可以设置为VB程序运行启动对象的是（）。工程文件 任意一个窗体 窗体模块中的Main()过程 标准模块中的Main()过程A. B. C. D. - -9. 以下说法中，错误的是（）。A. 以.frm为扩展名的文件是窗体模块文件B. 以.bas为扩展名的文件是标准模块文件C. 窗体模块文件包含该窗体及其窗体上相关控件的属性信息D. 标准模块文件由事件过程、通用过程等内容组成10. 以下叙述中错误的是（）。A. .vbp文件是工程文件，一个工程可以包含.bas文件B. .vbg文件是工程组文件，一个工程组可以由多个工程组成C. .vbp文件是工程文件，一个工程可以包含多个.frm文件组成D. .frm文件是窗体文件，一个窗体可以包含.bas文件11. 以下叙述中正确的是（）。A. 窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B. 在工程中只有启动窗体可以建立菜单C. 窗体名称必须与窗体文件的名称相同D. 程序一定是从某个窗体开始执行的12. 以下关于窗体的叙述中错误的是（）。A. 程序运行期间，可以改变Name属性值B. 窗体的Name属性用于标识一个窗体C. 运行程序时，改变窗体大小，能够触发窗体的Resize事件D. 窗体的Enabled属性为False时，不能响应单击窗体的事件13. 以下描述中错误的是（）。A.窗体的标题通过其Caption属性设置B.窗体的名称（Name属性）可以在运行期间修改C.窗体的背景图形通过其Picture属性设置D.窗体最小化时的图标通过其Icon属性设置14. 窗体Form1上有一名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。A. Private Sub Form1_Click()End SubC. Private Sub Command1_Click()End SubB. Private Sub Form_Click()End SubD. Private Sub Command_Click()End Sub15. 假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（）。A. ClickB. LoadC. LostFocusD. KeyPress16. 若在程序运行时，需要将焦点主动设置到指定的对象上，应调用该对象的（）方法。A. MoveB. SetFocusC. RefreshD. Drag17. 下列语句中，错误的是（）。A. Label1.Caption = HelloB. Command1.Caption = HelloC. Text1.Caption = HelloD. Frame1.Caption = Hello18. 为了使标签具有“透明”的显示效果，需要设置的属性是（）。A. CaptionB. AlignmentC. BackStyleD. AutoSize19. 为了使标签能自动调整大小以显示标题（Caption属性）的全部文本内容，应把该标签的（）属性设置为True。A. AutoSizeB. AlignmentC. AutoRedrawD. Stretch20. 假定一个滚动条的LargeChange属性值为100，则100表示（）。A. 单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B. 滚动框位置的最大值C. 拖动滚动框时滚动框位置的变化量D. 单击滚动条箭头时滚动框位置的变化量21. 设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：HS1.Value = (HS1.Max - HS1.Min) / 2 + HS1.Min则（）。A. 滚动条处于最左端B. 滚动条处于最右端C. 滚动条处于中间位置D. 滚动条可能处于任何位置，具体位置取决于Max、Min属性值22. 设窗体上有一个名为List1的列表框，并编写下面的事件过程：Private Sub List1_Click() Dim ch As String ch = List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex List1.AddItem chEnd Sub程序运行时，单击一个列表项，则产生的结果是（）。A. 该列表项被移动到列表的最前面B. 该列表项被删除C. 该列表项被移动到列表的最后面D. 该列表项被删除后又在原位置插入23. 窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List_Click事件过程中能正确实现上述功能的语句是（）。A. List1.RemoveItem List1.TextB. List1.RemoveItem List1.ClearC. List1.RemoveItem List1.ListCountD. List1.RemoveItem List1.ListIndex 24. 若要引用列表框List1中最后一个数据项的内容，应使用（）。A. List1.List(List1.Count)B. List1.TextC. List1.ListIndexD. List1.List(List1.Count - 1)25. 窗体上有一名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。A. Print Cb1.SelectedB. Print Cb1.List(Cb1.ListIndex)C. Print Cb1.Selected.TextD. Print Cb1.List(ListIndex)26. 若要获得组合框中输入的数据，可使用的属性是（）。 A. ListindexB. TextC. CaptionD. List27. 列表框中的项目保存在一个数组中，这个数组的名字是（）。A. ColumnB. StyleC. MultiSelectD. List28. 为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（）。A. 把这2组单选按钮设置为名称不同的2个控件数组B. 使2组单选按钮的名称分别相同C. 使2组单选按钮的Index属性分别相同D. 把2组单选按钮分别画到2个不同的框架中29. 窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：Private Sub Form_Load() Timer1.Interval = 10 Timer1.Enabled = FalseEnd Sub程序运行时，单击命令按钮，则产生的结果是（）。Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Command1.Left = Command1.Left + 10End SubA. 命令按钮每10秒向左移动一次B. 命令按钮每10毫秒向右移动一次C. 命令按钮每10毫秒向左移动一次D. 命令按钮每10秒向右移动一次30. 如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（）A. 它的Y1、Y2属性的值相等B. 它的X1、X2属性的值相等C. 它的X1、Y1属性的值分别与X2、Y2属性的值相等D. 它的X1、X2属性的值分别与Y1、Y2属性的值相等31. 以下说法中正确的是（）A. MouseUp事件是鼠标向上移动时出触发的事件B. MouseUp事件过程中的x，y参数用于修改鼠标位置C. 在MouseUp事件过程中可以判断用户是否使用了组合键D. 在MouseUp事件过程中不能判断鼠标的位置32. 以下关于菜单设计的叙述中错误的是（）。 A. 各菜单项可以构成控件数组B. 每个菜单项可以看成是一个控件C. 设计菜单时，菜单项的“有效”不选，即“有效(E)”。表示该菜单项不显示 D. 菜单项只响应单击事件33. 设菜单编辑器中各菜单项的属性设置如下表所示：序号标题名称复选有效可见内缩符号1FileFile无2OpenOpenFile13SaveSaveFile14ExitEndOfAll15HelpShowHelp1针对上述属性设置，以下叙述中错误的是（）A. 属性设置有误，存在“标题”与“名称”重名现象B. 运行程序，序号为“3”的菜单项不显示C. 运行程序，序号为“4”的菜单项不可用D. 运行程序，序号为“5”的菜单项前显示“”34. 下列关于菜单的说法中，错误的是（）。A. 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器B. 除了Click事件之外，菜单项不能响应其他事件C. 菜单项的快捷键不能任意设置D. 菜单的名称项（Name属性）不可缺省35. 以下关于弹出式菜单的叙述中，错误的是（）。 A. 弹出式菜单在菜单编辑器中建立B. 一个窗体只能有一个弹出式菜单C. 弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False D. 弹出式菜单通过窗体的PopupMenu方法显示36. 假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是A. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 1 And Button = 2 Then PopupMenu a1 End SubB. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu a1 End SubC. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 1 Then PopupMenu a1 End SubD. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu a1 End Sub37. 窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程。运行上述程序，如下叙述正确的是（）。Private Sub Command1_Click() CD1.DefaultExt = doc CD1.FileName = VB.txt CD1.Filter= All(*.*)|*.*|Word|*.Doc| CD1.FilterIndex = 1 CD1.ShowSaveEnd SubA. 打开的对话框中文件“保存类型”框中显示“All(*.*)” B. 实现保存文件的操作，文件名是VB.txtC. DefaultExt属性与FileName属性所指明的文件类型不一致，程序出错D. 对话框的Filter属性没有指出txt类型，程序运行出错38. 在窗体上画一个名称为CD1的通用对话框，并有如下程序：Private Sub Form_Load() CD1.DefaultExt = doc CD1.FileName = c:files.txt CD1.Filter = 应用程序(*.exe)|*.exeEnd Sub程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是（）。A. 应用程序(*.exe)B. .docC. .txtD. 不确定39. 以下关于通用对话框的叙述中，错误的是（）。A. 若没有指定InitDir属性值，则起始目录为当前目录B. 用一个通用对话框控件可以建立几种不同的对话框C. FilerTitle属性指明了文件对话框中所选择的文件名D. 文件对话框用属性FilerIndex指定默认过滤器，它是一个从0开始的整数40. 下列可作为Visual Basic变量名的是（）。A. A#AB. 4ABCC. ?xyD. Print_Text 41. 以下合法的VB变量名是（）。A. caseB. name10C. t-nameD. x*y42. 设有如下变量声明语句：Dim a, b As Boolean ，则下面叙述中正确的是（）。A. a和b都是布尔型变量B. a是变体型变量，b是布尔型变量C. a是整型变量，b是布尔型变量D. a和b都是变体型变量43. 表达式Int(Rnd(0)*50)所产生的随机数范围是（）。A. 【0, 50】B. 【1, 50】C. 【0, 49】D. 【1, 49】44. 下面可以产生2030（含20和30）的随机整数的表达式是（）。A. Int(Rnd*10+20)B. Int(Rnd*20+30)C Int(Rnd*11+20).D. Int(Rnd*30+20)45. 下列表达式中，不能将一个4位整数N的百位数字提取出来的是（）。A. N 100 Mod 10B. N 10 Mod 100C. Mid(CStr(N), 2, 1)D. (N Mod 1000) 10046. 表达式3*52 Mod 233的值是（）。A. 2B. 5C. 6D. 1047. 设x是小于10的非负数。对此陈述，以下正确的VB表达式是（）。A. 0x10B. 0=x=0 and x=0 or x=1048. 设a=1，b=2，c=3，逻辑表达式a b Xor c 2 * b Or a = c And b c Or c dA. -1B. 1C. TrueD. False50. 设x=5，执行语句Print x=x+10，窗体上显示的是（）。A. 15B. 5C. TrueD. False51. 若设X=1，Y=2，则不能在窗体上显示出“A=3”的语句是（）A. Print A = X+Y B. Print A=; X+YC. Print A= + Str(X+Y)D. Print A= & X+Y52. 设x = 3.3，y = 4.5，表达式x - Int(x) + Fix(y)的值是（）A. 4.3B. 4.8C. 3.5D. 4.753. 下列有关转换函数的说法中，正确的是（）。A. Int和Cint函数的区别仅在于结果的数据类型不同B. Int和Fix函数将非整数数据转换成整数，转换后的结果类型是LongC. Cint函数的功能是将其他类型的数据转换成Integer类型D. 在处理负数时，Int和Fix函数的结果是相同的54. 分别执行以下语句，输出结果为True的是（）A. Print CInt(4.5) Int(4.5)B. Print CInt(-4.5) Fix(-4.5)C. Print CInt(-4.5) Int(-4.5)D. Print CInt(4.5) Fix(4.5)55. 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”。现有如下事件过程，运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（）。Private Sub Text1_Change() Text2.Text = Mid(Text1, 1, 5)End Sub A. DataAB. DataBC. aDataD. aBase56. 设x为字符型变量，n为整型变量，以下关于Mid函数的说法中，错误的是（）A. Mid(x, n)表示从字符串x的第n个位置开始向右取所有字符B. 若x = xyz，执行语句Mid(x, 1, 2) = ab后，x的值为abzC. Mid(x, n, 1)的取值与Left(x, n)的取值相同D. 使用Mid函数可提取字符串中指定位置、指定个数的字符57. 设有字符串变量s，其值为“abcd”，可将s的值替换为“aabcd”的语句是（）。A. Left(s, 1) = aaB. s = aa & Right(s, Len(s) - InStr(s, a) C. s = aa & Mid(s, InStr(s, aa)D. Mid(s, 1, 2) = aa58. 表达式InStr(4, abcabca, c) + Int(2.5)的值为（）A. 7B. 8C. 5D. 959. 数学表达式对应的VB表达式是（）A. Sqr(x + y) - Sin(Abs(y 2 * x) / (x - y)B. Sqr(x + y) - Sin(Abs(y 2 * x) / x - y)C. Sqr(x + y) - Sin(|y 2 * x|/ (x - y)D. Sqr(x + y) - Sin(|y 2 * x| / x - y)60. 对应数学表达式的VB表达式是（）。A. Sin(30 * 3.14159 / 180) + Abs(x 2 + Sqr(y) + Exp(x) - Log(n) / Log(10)B. Sin(30) + Abs(x 2 + Sqr(y) + e x - Log(n) / Log(10)C. Sin(30 * 3.14159 / 180) + Abs(x 2 + Sqr(y) + Exp(x) - Log(n) D. Sin(30) + Abs(x 2 + Sqr(y) + e x - Log(n)61. 窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下。运行程序，单击命令按钮，在输入对话框中分别输入2、3，Private Sub Command1_Click() x = InputBox(输入x：, , 0) y = InputBox(输入y：, , 0) Label1.Caption = x + yEnd Sub运行的结果是（）A. 程序运行有错误，数据类型不匹配B. 程序运行有错误，InputBox函数的格式不对C. 在Label1中显示5D. 在Label1中显示2362. 设程序中有如下语句：运行程序，执行上述语句，输入5并单击输入对X = InputBox (输入, 数据, 100)Print X话框上的“取消”按钮，则窗体上输出（）。 A. 0B. 5C. 100D. 空白63. 在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，则在信息Private Sub Command1_Click() MsgBox Str(123 + 321)End Sub框中显示的提示信息为（）A. 字符串“123 + 321”B. 字符串“444”C. 数值“444”D. 空白64. 下面4个语句中，错误的是（）A. N = InputBox(输入N：, , 5)B. InputBox(输入N：, , 5)C. MsgBox 请回答D. K = MsgBox(请回答)65. 以下关于MsgBox函数的说法中，正确的是（）。A. MsgBox函数有返回值，且返回值类型为数值型B. MsgBox函数没有返回值C. MsgBox函数有返回值，且返回值类型为字符型D. 通过MsgBox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型66. 以下关于If分支结构语句的说法中，正确的是（）。A. 有End If一定有与之配对的IfB. 有If一定有与之配对的ElseIfC. 有If一定有与之配对的End IfD. 有If一定有与之配对的Else67. 设有分段函数：下述选项描述错误的是（）。A. Select Case x Case Is0 : Y=5 Case Is 0 : Y=2*x Case else : Y= x * x + 1 End selectC. Y = IIf (x 0, 5, IIf(x = 5, 2 * x, x * x + 1)B. If x 0 Then y = 5 Elseif x = 5 then y = 2 * x Else y = x * x + 1 End ifD. If x 0 Then y = 5 If x =0 then y = 2 * x If x 5 then y = x * x + 168. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件Private Sub Command1_Click() x! = Val(Text1.Text) Select Case x Case Is = 20 : Print 输入错误 Case Is 0 : Print 20 - x Case Is 10 : Print 20 Case Is = 5, Is = 10B. Case 5 = X = 10C. Case 5 = X, X = 5 x = a * b Print b; x a = a + b b = b + a LoopEnd Sub程序运行后，单击窗体，输出结果是（）A.1 1 2 3B.1 1 2 4C.1 1 3 8D.1 1 3 672. 窗体上有一个名称为Command1的命令按钮，并有如下程序：Private Sub Command1_Click() x = 15 Do While x 0 x = x - 3 x = IIf(Int(x / 5) = x / 5, x + 2, x) Loop Print xEnd Sub程序运行后，单击命令按钮Command1，输出结果为（）。A. 0B. -3C. -2D. -173. 窗体上有一个名称为Command1的命令按钮，并有如下程序：Private Sub Command1_Click() a = 10 For k = 1 To 5 Step -1 a = a - k Next k Print a; kEnd Sub程序运行后，单击命令按钮Command1，输出结果为（）。A. 10 1B. -5 -5C. 10 0D. -5 674. 设有如下程序：Private Sub Form_Click() a$ = 123456 For i = 1 To 6 Print Tab(12 - i); Next i End Sub 程序运行后，单击窗体，要求结果如图所示，则在 处应填入的内容为（）A. Left(a$, i)B. Mid(a$, 8 - i, i)C. Right(a$, i)D. Mid(a$, 7, i)75. 设有如下程序：Private Sub Form_Click() Dim i As Integer, x As String, y As String x = ABCDEFG For i = 4 To 1 Step -1 y = Mid(x, i, i) + y Next i Print yEnd Sub程序运行后，单击窗体，输出结果为（）A. AABBCDEFG B. ABCCDEDEFGC.ABCDEFGD.AABBCCDDEEFFGG76. 设有如下程序：Private Sub Form_Click() Dim s As Long, f As Long, n As Integer, i As Integer f = 1 : n = 4 For i = 1 To n f = f * i s = s + f Next i Print sEnd Sub程序运行后，单击窗体，输出结果是（）A. 32B. 33C. 34D. 3577. 有人编写了如下程序：上述程序的功能是：Private Sub Form_Click() Dim s As Integer, x As Integer s = 0 : x = 0 Do While s = 10000 x = x + 1 s = s + x 2 Loop Print sEnd Sub计算s=1 + 22 + 32 + + n2 + ，直到s 10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（）。A. 把x = 0改为x = 1B. 把Do While s = 10000改为Do While s 10000 D. 交换x = x + 1和s = s + x 2的位置78. 窗体上有一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, s As Double s = 0: i = 1: j = 0: k = -1 Do While i 6 s = s + k * (j / i) i = i + 1 j = j + 1 k = -k Loop Print sEnd Sub以上程序所计算的表达式是：A. -1/2 + 2/3 - 3/4 + 4/5B. 1/2 - 2/3 + 3/4 - 4/5C. 1 - 1/2 + 2/3 - 3/4 + 4/5D. -1 + 1/2 - 2/3 + 3/4 - 4/579. 有一个数列，它的前3个数为0，1，1，此后的每个数列都是其前面3个数之后，即0，1，1，2，4，7，13，24，要求编写程序如下：Private Sub Form_Click() Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer a = 0: b = 1: c = 1: d = a + b + c i = 5 While d = 1000 Print d; a = b: b = c: c = d : d = a + b + c i = i + 1 WendEnd Sub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是（）A.把While d 1000B. 在i = 5的上面增加一个语句：Print a; b; c; C.把i = i + 1移到While d 5 Or x -1 Next End Sub运行程序，其中Do循环执行的次数是（）A. 15B. 10C. 7D. 382. 阅读下面的程序段： a = 0 For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i执行上面的程序段后，a的值为（）A. 3B. 9C. 14D. 2183. 如果一个正整数从高位到低位上的数字一次递减，则称其为降序数（如：9632是降序数，而8516则不是降序数）。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n = InputBox(输入一个正整数) s = Trim(Str(n) For i = 2 To Len(s) If Mid(s, i - 1, 1) Mid(s, i, 1) Then Exit For Next i If i = Len(s) Then flag = True Else flag = False If flag Then Print n; 是降序数 Else Print n; 不是降序数End Sub运行以上程序，发现有错，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（）。A. If i = Len(s) + 1 Then flag = False Else flag = TrueB. If i = Len(s) + 1 Then flag = True Else flag = FalseC. If i = Len(s) - 1 Then flag = False Else flag = TrueD. If i = Len(s) - 1 Then flag = True Else flag = False84. 窗体上有一个名称为Command1的命令按钮，并有如下程序：Private Sub Command1_Click() Dim m As Integer, n As Integer m = InputBox(输入第一个数) n = InputBox(输入第二个数) Do While m n Do While m n m = m - n Loop Do While n m该程序的功能是（）。A. 求数值m和n的最小公倍数B. 求数值m和n的最大公约数C. 求数值m和n中的较大数D. 求数值m和n中的较小数 n = n m Loop Loop Print mEnd Sub本题得分二、写出程序运行结果每空2分，共计20分；说明：执行下述程序，按输出格式要求写出运行结果。1. 执行下面程序，单击命令按钮Command1，窗体上显示的第一行内容是 【1】 ，第二行内容是 【2】 ，第三行内容是 【3】 ，最后一行内容是 【4】 。Private Sub Command1_Click()Dim a As Integer, b As Integer, i As Integer a = 1 b = 5 For i = b To a Step -1 a = a + 1 b = b + a If b 30 Then Exit For Print a, b Next i Print a, bEnd Sub2. 执行下列程序，单击按钮Command1，窗体上显示的第一行内容是 【5】 ，第二行内容是 【6】 ，第三行内容是 【7】 。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 4 : b = 3 Do Until a 10 b = b / 2 Do Until b 10 a = (a + b) 2 + b b = b + 5 Print a, b Loop a = a - 3 LoopEnd Sub3. 执行下面的程序，单击窗体后，窗体上显示的第一行内容是 【8】 ，第三行内容是 【9】 ，最后一行内容是 【10】 。Private Sub Form_Click() Dim x As Integer, y As Integer, sum As Integer For x = 1 To 3 For y = 1 To 2 sum = sum + y If sum 2 Then Exit For Next y Print sum; x Next x Print x; yEnd Sub本题得分三、程序完善题每空2分，共计38分；1. 在窗体上画一个名称为Timer1的计时器控件，其Enabled属性值设为False，Interval属性值设为100，要求程序运行后，当鼠标在窗体上移动时，沿鼠标经过的轨迹画出一系列半径为100的小圆，其效果如图所示。Dim a As Integer, b As IntegerPrivate Sub Form_ 【1】 (Button As Integer, Shift As Integer, X As Single, _Y As Single)a = X : b = Y Timer1.Enabled = 【2】 End SubPrivate Sub Timer