VB中期测试考试卷答案

1、程序设计基础VB期中试卷使用专业、班级 学号 姓名 题数一二三四总分得分本题得分答题说明：请将答案填写到答题纸上。一、 选择题每题1分，共计42分；1. 在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（）A. 工程资源管理器窗口B. 窗体设计窗口C. 属性窗口D. 代码窗口2. 在设计阶段，当按Ctrl + R键时，所打开的窗口是（）A. 工程资源管理器窗口B. 工具箱窗口C. 属性窗口D. 代码窗口3. VB应用程序设计的一般步骤是（）。A. 分析->设计->界面->编码->测试B. 界面->设计->编码->分析->文

2、档C. 分析->界面->编码->设计->测试D. 界面->编码->测试->分析->文档4. 以下说法中，正确的是（）A. 对象的运行态属性不出现在对象属性窗口中B. 属性值只能在属性窗口中设置C. 在程序中可以用赋值语句给对象的任何一个属性赋值D. 属性是对象的特征，所有的对象都有相同的属性5. 以下叙述中错误的是（）。A. 在Visual Basic的窗体中，一个命令按钮是一个对象B. 事件是能够被对象识别的状态变化或动作C. 事件都是由用户的键盘操作或鼠标操作触发的D. 不同的对象可以具有相同的方法6. 以下描述中错误的是（）。A. 多窗体应

3、用程序中每个窗体作为一个磁盘文件保存B. 多窗体应用程序的启动窗体可以在设计时设定C. 在多窗体应用程序中，可以有多个当前窗体D. 多窗体应用程序可以编译生成一个EXE文件7. 以下关于多窗体的叙述中，正确的是（）。 A. 只有第一个建立的窗体才是启动窗体B. 向一个工程添加多个窗体，存盘后生成一个窗体文件C. 打开一个窗体时，其他窗体自动关闭D. 任何时刻，只有一个当前窗体8. 可以设置为VB程序运行启动对象的是（）。工程文件 任意一个窗体 窗体模块中的Main()过程 标准模块中的Main()过程A. B. C. D. 9. 以下说法中，错误的是（）。A. 以.frm为扩展名的文件是窗体模

4、块文件B. 以.bas为扩展名的文件是标准模块文件C. 窗体模块文件包含该窗体及其窗体上相关控件的属性信息D. 标准模块文件由事件过程、通用过程等内容组成10. 以下叙述中错误的是（）。A. .vbp文件是工程文件，一个工程可以包含.bas文件B. .vbg文件是工程组文件，一个工程组可以由多个工程组成C. .vbp文件是工程文件，一个工程可以包含多个.frm文件组成D. .frm文件是窗体文件，一个窗体可以包含.bas文件11. 以下叙述中正确的是（）。A. 窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B. 在工程中只有启动窗体可以建立菜单C. 窗体名称必须与窗体文件的名称相同D.

5、程序一定是从某个窗体开始执行的12. 以下关于窗体的叙述中错误的是（）。A. 程序运行期间，可以改变Name属性值B. 窗体的Name属性用于标识一个窗体C. 运行程序时，改变窗体大小，能够触发窗体的Resize事件D. 窗体的Enabled属性为False时，不能响应单击窗体的事件13. 以下描述中错误的是（）。A.窗体的标题通过其Caption属性设置B.窗体的名称（Name属性）可以在运行期间修改C.窗体的背景图形通过其Picture属性设置D.窗体最小化时的图标通过其Icon属性设置14. 窗体Form1上有一名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。A.

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

7、. Drag17. 下列语句中，错误的是（）。A. Label1.Caption = "Hello"B. Command1.Caption = "Hello"C. Text1.Caption = "Hello"D. Frame1.Caption = "Hello"18. 为了使标签具有“透明”的显示效果，需要设置的属性是（）。A. CaptionB. AlignmentC. BackStyleD. AutoSize19. 为了使标签能自动调整大小以显示标题（Caption属性）的全部文本内容，应把该标签的（）属性设

8、置为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. 滚动条可能处于任何位

9、置，具体位置取决于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的列表框，列表框中显示

10、若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在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

11、(List1.Count - 1)25. 窗体上有一名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。A. Print Cb1.SelectedB. Print Cb1.List(Cb1.ListIndex)D. Print Cb1.List(ListIndex)26. 若要获得组合框中输入的数据，可使用的属性是（）。 A. ListindexB. TextC. CaptionD. List27. 列表框中的项目保存在一个数组中，这个数组的名字是（）。A. ColumnB. StyleC. MultiSelectD. List28. 为了在窗体上建立2组单选按钮，并且

12、当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（）。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() T

13、imer1.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. 以下说法中正确的是

14、（）A. MouseUp事件是鼠标向上移动时出触发的事件B. MouseUp事件过程中的x，y参数用于修改鼠标位置C. 在MouseUp事件过程中可以判断用户是否使用了组合键D. 在MouseUp事件过程中不能判断鼠标的位置32. 以下关于菜单设计的叙述中错误的是（）。 A. 各菜单项可以构成控件数组B. 每个菜单项可以看成是一个控件C. 设计菜单时，菜单项的“有效”不选，即“有效(E)”。表示该菜单项不显示 D. 菜单项只响应单击事件33. 设菜单编辑器中各菜单项的属性设置如下表所示：序号标题名称复选有效可见内缩符号1FileFile无2OpenOpenFile13SaveSaveFile1

15、4ExitEndOfAll15HelpShowHelp1针对上述属性设置，以下叙述中错误的是（）A. 属性设置有误，存在“标题”与“名称”重名现象B. 运行程序，序号为“3”的菜单项不显示C. 运行程序，序号为“4”的菜单项不可用D. 运行程序，序号为“5”的菜单项前显示“”34. 下列关于菜单的说法中，错误的是（）。A. 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器B. 除了Click事件之外，菜单项不能响应其他事件C. 菜单项的快捷键不能任意设置D. 菜单的名称项（Name属性）不可缺省35. 以下关于弹出式菜单的叙述中，错误的是（）。 A. 弹出式菜单在菜单编辑器中建立B. 一个窗

16、体只能有一个弹出式菜单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

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

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

19、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.F

20、ilter = "应用程序(*.exe)|*.exe"End Sub程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是（）。A. 应用程序(*.exe)B. .docC. .txtD. 不确定39. 以下关于通用对话框的叙述中，错误的是（）。A. 若没有指定InitDir属性值，则起始目录为当前目录B. 用一个通用对话框控件可以建立几种不同的对话框C. FilerTitle属性指明了文件对话框中所选择的文件名D. 文件对话框用属性FilerIndex指定默认过滤器，它是一个从0开始的整数40. 下列可作为Visual Basic变量名的是（）。A

21、. 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）的随机整数的表达式是（）。

22、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. 0x<10B. 0<=x<10C. x>=0 and x<10D

23、. x>=0 or x<=1048. 设a=1，b=2，c=3，逻辑表达式a < b And Not c > b Xor c < a的值是（）A. TrueB. -1C. FalseD. 149. 设a = 2，b = 3，c = 4，d = 5，则下面语句的输出是（）Print 3 > 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，

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

25、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中原有字符之前

26、输入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的值为"abz"C. Mid(x, n, 1)的取值与Left(x, n)的取值相同D

27、. 使用Mid函数可提取字符串中指定位置、指定个数的字符57. 设有字符串变量s，其值为“abcd”，可将s的值替换为“aabcd”的语句是（）。A. Left(s, 1) = "aa"B. s = "aa" & Right(s, Len(s) - InStr(s, "a") C. s = "aa" & Mid(s, InStr(s, "aa")D. Mid(s, 1, 2) = "aa"58. 表达式InStr(4, "abcabca",

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

29、) - 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 = In

30、putBox("输入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.

31、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("请

32、回答")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 I

33、s<0 : Y=5 Case Is <=5,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 <= 5 and x>=0 then y = 2 * x If x > 5 the

34、n y = x * x + 168. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件Private Sub Command1_Click() x! = Val(Text1.Text) Select Case x Case Is < -10, Is >= 20 : Print "输入错误" Case Is < 0 : Print 20 - x Case Is < 10 : Print 20 Case Is <= 20 : Print x + 10 End SelectEnd Sub过程。程序运行时，如果在文

35、本框中输入-5，则在单击命令按钮后的输出结果是（）。A. 25B. 20C. 5D. 输入错误69. Select Case X结构中(X为Integer类型)，若判断条件为X=5，正确的Case语句应该是（）。A. Case X=5B. Case Is 5C. Case =5D. Case 570. 在Select Case X结构语句中（X为Integer类型），能正确描述5X10的Case语句是（）A. Case Is >= 5, Is <= 10B. Case 5 <= X <= 10C. Case 5 <= X, X <= 10D. Case 5

36、To 1071. 假定有以下程序：Private Sub Form_Click() a = 1: b = a Do Until a >= 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

37、 / 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_Clic

38、k() 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

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

40、. 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 <= 10

41、000C. 把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 Pr

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

43、 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 <= 1000改为While d > 1000B. 在i = 5的上面增加一个语句：Print a; b; c; C.把i = i + 1移到While d <= 1000的下面D. 把i = 5改为i = 480. 现有以下程序：Pr

44、ivate Sub Command1_Click() c1 = 0 : c2 = 0 For i = 1 To 100 If i Mod 3 = 0 Then c1 = c1 + 1 ElseIf i Mod 7 = 0 Then c2 = c2 + 1 End If Next Print c1 + c2End Sub此程序运行后输出的是在1100范围内（）。A. 同时能被3和7整除的整数个数B. 能被3或7整除个数（同时被3和7整除的数只记一次）C. 能被3整除，而不能被7整除的整数个数D. 能被7整除，而不能被3整除的整数个数81. 设有如下程序: Private Sub Command1

45、_Click() x = 10: y = 0 For i = 1 To 5 Do x = x 2 : y = y + 2 Loop Until y > 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. 如果一个正整数从高位到低位上的数字一次递减，则称

46、其为降序数（如：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 fla

47、g 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) -

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

49、和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 St

50、ep -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 +

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