1、计算机二级考试 VISUAL+BASIC 模拟题二 2014 年及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(每小题 1 分，共 40 小题，共 40 分(总题数：40，分数：40.00)1.下列数据结构中，属于非线性结构的是( )。（分数：1.00）A.循环队列B.带链队列C.二叉树D.带链栈2.下列数据结构中，能够按照“先进后出”原则存取数据的是( )。（分数：1.00）A.循环队列B.栈C.队列D.二叉树3.对于循环队列，下列叙述中正确的是( )。（分数：1.00）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾
2、指针，也可以小于队尾指针4.算法的空间复杂度是指( )。（分数：1.00）A.算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数5.软件设计中划分模块的一个准则是( )。（分数：1.00）A.低内聚低耦合B.高内聚低耦合C.低内聚高耦合D.高内聚高耦合6.下列选项中不属于结构化程序设计原则的是( )。（分数：1.00）A.可封装B.自顶向下C.模块化D.逐步求精7.软件详细设计产生的图如下： （分数：1.00）A.NS 图B.PAD 图C.程序流程图D.ER 图8.数据库管理系统是( )。（分数：1.00）A.操
3、作系统的一部分B.在操作系统支持下的系统软件C.一种编译系统D.一种操作系统9.在 ER 图中，用来表示实体联系的图形是( )。（分数：1.00）A.椭圆形B.矩形C.菱形D.三角形10.有三个关系 R，S 和 T 如下： （分数：1.00）A.选择B.投影C.交D.并11.以下变量名中合法的是（ ）。（分数：1.00）A.x2-1B.printC.str nD.2x12. （分数：1.00）A.(5x+3)/(2y-6)B.x*5+3/2*y-6C.(5*x+3)(2*y-6)D.(x*5+3)/(y*2-6)13.下面有关标准模块的叙述中，错误的是( )。（分数：1.00）A.标准模块不完
4、全由代码组成，还可以有窗体B.标准模块中的 Private 过程不能被工程中的其他模块调用C.标准模块的文件扩展名为basD.标准模块中的全局变量可以被工作中任何模块引用14.下面控件中，没有 Caption 属性的是( )。（分数：1.00）A.复选框B.单选按钮C.组合框D.框架15.用来设置文字字体是否斜体的属性是( )。（分数：1.00）A.FontUnderlineB.FontBoldC.FontSlopeD.FontItalic16.若看到程序中确以下事件过程，则可以肯定的是，当程序运行时( )。 Private Sub ClickMouseDown(Button As Integ
5、er，Shift As Integer，X As Single，Yas Single) Print“VB Program“ End Sub（分数：1.00）A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程17.可以产生 30-50(含 30 和 50)之间的随机整数的表达式是( )。（分数：1.00）A.Int(Rnd*21+30)B.Int(Rnd*20+30)C.I
6、nt(Rnd*50Rnd*30)D.Int(RND*30+50)18.在程序运行时，下面的叙述中正确的是( )。（分数：1.00）A.用鼠标右键单击窗体中任何无控件部分，会执行窗体的 FormLoad 事件过程B.用鼠标左键单击窗体的标题栏，会执行窗体的 FormClick 事件过程C.只装入而不显示窗体，也会执行窗体的 FormLoad 事件过程D.装入窗体后，每次显示该窗体时，都会执行窗体的 FormClick 事件过程19.窗体上有名称为 Command1 的命令按钮和名称为 Textl 的文本框 Private Sub Command1 Click() Text1Text=“程序设计“
7、 Text1SeFocus End Sub Private Sub Text1 GotFocus() Text1Text=“等级考试“ End Sub 运行以下程序，单击命令按钮后( )。（分数：1.00）A.文本框中显示的是“程序设计“，且焦点在文本框中B.文本框中显示的是“等级考试“，且焦点在文本框中C.文本框中显示的是“程序设计“，且焦点在命令按钮上D.文本框中显示的是“等级考试“，且焦点在命令按钮上20.窗体上有名称为 Option1 的单选按钮，且程序中有语句： If()ption1ValueTrue Then 下面语句中与该语句不等价的是( )。（分数：1.00）A.If Opti
8、on1Value ThenB.If Option1 一 True ThenC.If Value=True ThenD.If Option1 Then21.设窗体上有 1 个水平滚动条，已经通过属性窗 V1 把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是( )。（分数：1.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点
9、，滚动块无法移动22.有如下过程代码： Sub var_dim() static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa；mub End Sub 连续 3 次调剧 var_dim 过程，第 3 次调用时的输出是( )。（分数：1.00）A.2 1B.2 3C.6 1D.6 323.在窗体上画 1 个命令按钮，并编写如下事件过程： private Sub Command1_Click() For i=5 To 1 Step-08 Print Int(i)； Next i End Sub 运行程序
10、，单击命令按钮，窗体上显示的内容为( )。（分数：1.00）A.5 4 3 2 1 1B.5 4 3 2 1C.4 3 2 1 1D.4 4 3 2 1 124.在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Command1 Click() Dim a(3，3) For m=1 To 3 For n=1 To 3 If n=m or n=4m Then a(mn)=m+n Else a(m，n)=0 End If Print a(m，n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为( )。（分数：1.00）A
11、.2 0 00 4 00 0 6B.2 0 40 4 04 0 6C.2 3 03 4 00 0 6D.2 0 00 4 50 5 625.设有以下函数过程： Function fun(a As Integer，b As Integer) Dim c As Integer If a c=a：a=b：b=C End IF c=0 Do c=c+a Loop Until c Mod b=0 fun=c End Function 若调用函数 fun 时的实际参数都是自然数，则函数返回的是( )。（分数：1.00）A.a、b 的最大公约数B.a、b 的最小公倍数C.a 除以 b 的余数D.a 除以 b
12、 的商的整数部分26.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1 Timer() Static flag As Integer If Flag=0 Then Flag=1 Flag=-flag If flag=1 Then Text1ForeColor=HFF HFF为红色 Else Text1ForeColor=HCOO HCOO为绿色 End If End Sub 以下叙述中正确的是( )。（分数：1.
13、00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色D.程序有逻辑错误，Else 分支总也不能被执行27.为计算 1+2+22+23+24+210 的值，并把结果显示在文本框 Text1 中，若编写如下事件过程： Private Sub Command1 Click() Dim a，s，k s=1 a=2 For k=2 To 10 a=a*2 s2 s+a Next k Text1Text=s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。（分数：1.0
14、0）A.把 s=1 改为 s=0B.把 For k=2 T0 10 改为 For k=1 T0 10C.交换语句 s=s+a 和 a=a*2 的顺序D.同时进行 B、C 两种修改28.标准模块中有如下程序代码： Public x As Integer，y As Integer Sub var pub() x=10：y=20 End Sub 在窗体上有 1 个命令按钮，并有如事件过程： Private Sub Command1 Click() Dim x As Integer Call var pub x=x+100 y=y+100 Print x；y End Sub 运行程序后单击命令按钮，窗
15、体上显示的是( )。（分数：1.00）A.100 100B.100 120C.110 100D.110 12029.设 a、b 都是自然数，为求 a 除以 b 的余数，某人编写了以下函数： Eunction fun(a As Integer，b As Integer) While ab a=ab Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是( )。（分数：1.00）A.把 a=a-b 改为 a=b-aB.把 a=a-b 改为 a=abC.把 While ab 改为 While abD.把 While ab 改为 While
16、a=b30.下列关于通甩对话框 CommonDialogl 的叙述中，错误的是( )。（分数：1.00）A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开B.使用(ommoDialog1ShowColor 方法，可以显示“颜色”对话框C.CancelError 属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告D.在显示“字体”对话框前，必须先设置 CommonDialog1 的 Flags 属性，否则会出错31.在利用菜单编辑设计菜单时，为了把组合键“Alt+X“设置为”退出(X)”菜单项的访问键，可以将该菜单项的标题设置为( )。（分数：1.00）
17、A.退出(X)B.退出(X)C.退出(X#)D.退出(#X)32.在窗体上画 l 个命令按钮和 l 个文本框，其名称为 Command1 和 Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)0 x=x-3 x=IIf(Int(x5)=x5，x+2，x) Loop Print x End Sub 程序运行后，单击命令按钮 Command1，输出结果为( )。（分数：1.00）A.0B.-1C.-2D.-_339.以下关于通用对话框的叙述中，错误的是( )
18、。（分数：1.00）A.若没有指定 InitDir 属性值，则起始目录为当前目录B.用一个通用对话框控件可以建立几种不同的对话框C.File Title 属性指明了文件对话框中所选择的文件名D.文件对话框用属性 FiherIndex 指定默认过滤器，它是一个从 0 开始的整数40.窗体上有一个名称为 Command1 的命令按钮，并有如下程序： Private Sub Command1Click() Dim m As Integer，n As Integer m=InputBox(“输入第一个数“) nzInputBox(“输入第二个数“) Do While mn m= m-n Loop Do
19、 While nm n=n-m Loop Loop Print m End Sub 该程序的功能是( )。（分数：1.00）A.求数值 m 和 n 的最大公约数B.求数值 m 和 n 的最小公倍数C.求数值 m 和 n 中的较大数D.求数值 m 和 n 中的较小数二、基本操作题(共 18 分)(总题数：2，分数：18.00)41.在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图 21 所示。 （分数：9.00）_42.在窗体上绘制出 3 个文本框，名称分别为 Text1、Text2 和 Text3。要求程序运行时，焦点位
20、于Text1，当按 Tab 键时，焦点从 Text1 越过 Text2 直接跳到 Text3 上。本题不得使用任何变量。程序运行时的窗体界面如图 22 所示。 （分数：9.00）_三、简单应用题(共 24 分)(总题数：2，分数：24.00)43.在窗体上建立一个名称为 List1 的列表框和一个名为 Text1 的文本框。编写程序，实现列表框和文本框中项目的交换。要求 List1 中的项目按字母升序排列，Text1 中的项目按照加人的先后顺序排列。当双击 List1 某个项目时，该项目从列表框中消失，并出现在 Text1 中。程序运行时的窗体界面如图 2-3 所示。（分数：12.00）_44
21、. 注意：修改适当的控件的属性，并去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。考生完成程序编写后，将-工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj4vbp 与 sj4frm。 （分数：12.00）_四、综合应用题(共 18 分)(总题数：1，分数：18.00)45.在考生文件夹下有一个工程文件 sj5vbp，相应的窗体文件为 sj5frm，此外在考生文件夹下还有一个名为 in5txt 的文本文件，其内容如下： 10，11，12，13，1415，16，17，18，19，20，21，22，23，24，25，26，27，28，29
22、，30，31，32，33。34 程序运行后，双击窗体，将把文件 in5txt 中的数据输入到二维数组 Arr 中，在窗体上按 5行5 列的矩阵形式显示出来，并在其下显示该矩阵左上一右下对角线的右上部分。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行效果如图 25 所示。 （分数：1.00）_计算机二级考试 VISUAL+BASIC 模拟题二 2014 年答案解析(总分：100.00，做题时间：90 分钟)一、选择题(每小题 1 分，共 40 小题，共 40 分(总题数：40，分数：40.00)1.下列数据结构中，属于非线性结构的是( )。（分数
23、：1.00）A.循环队列B.带链队列C.二叉树 D.带链栈解析：【解析】线性结构是指数据元素只有一个直接前驱和一个直接后驱，线性表是线性结构，循环队列、带链队列和栈是指对插入和删除有特殊要求的线性表，是线性结构。而二叉树是非线性结构。2.下列数据结构中，能够按照“先进后出”原则存取数据的是( )。（分数：1.00）A.循环队列B.栈 C.队列D.二叉树解析：【解析】栈是一种特殊的线性表，其插入和删除运算都只在线性表的一端进行，而另一端是封闭的。可以进行插入和删除运算的一端称为栈顶，封闭的一端称为栈底。栈顶元素是最后被插入的元素，而栈底元素是最后被删除的。因此，栈是按照先进后出的原则组织数据的。
24、3.对于循环队列，下列叙述中正确的是( )。（分数：1.00）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针 解析：【解析】循环队列是把队列的头和尾在逻辑上连接起来，构成一个环。循环队列中首尾相连，分不清头和尾，此时需要两个指示器分别指向头部和尾部。插入就在尾部指示器的指示位置处插入，删除就在头部指示器的指示位置删除4.算法的空间复杂度是指( )。（分数：1.00）A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数解析：【解析
25、】一个算法的空间复杂度一般是指执行这个算法所需的存储空间。一个算法所占用的存储空间包括算法程序所占用的空间、输入的初始数据所占用的存储空间及算法执行过程中所需要的额外空间。5.软件设计中划分模块的一个准则是( )。（分数：1.00）A.低内聚低耦合B.高内聚低耦合 C.低内聚高耦合D.高内聚高耦合解析：【解析】耦合性和内聚性是模块独立性的两个定性标准，是互相关联的。在软件设计中，各模块间的内聚性越强，则耦合性越弱。一般优秀的软件设计，应尽量做到高内聚，低耦合，有利于提高模块的独立性。6.下列选项中不属于结构化程序设计原则的是( )。（分数：1.00）A.可封装 B.自顶向下C.模块化D.逐步求
26、精解析：【解析】结构化程序设计的主要原则概括为自顶向下、逐步求精、限制使用 GOTO 语句。7.软件详细设计产生的图如下： （分数：1.00）A.NS 图B.PAD 图C.程序流程图 D.ER 图解析：【解析】NS 图(也称为盒图或 CHAPIN 图)、PAD(问题分析图)及 PFD(程序流程图)是详细设计阶段的常用工具，ER 图即实体一联系图是数据库设计的常用工具。从图中可以看出该图属于程序流程图。8.数据库管理系统是( )。（分数：1.00）A.操作系统的一部分B.在操作系统支持下的系统软件 C.一种编译系统D.一种操作系统解析：【解析】数据库系统属于系统软件的范畴。9.在 ER 图中，用
27、来表示实体联系的图形是( )。（分数：1.00）A.椭圆形B.矩形C.菱形 D.三角形解析：【解析】ER 图即实体一联系图(Entity Relationship Diagram)，提供了表示实体型、属性和联系的方法，用来描述现实世界的概念模型，构成 ER 图的基本要素是实体型、属性和联系，其表示方法为：实体型(Entity)：用矩形表示，矩形框内写明实体名；属性(Attribute)：用椭圆形表示，并用无向边将其与相应的实体连接起来；联系(Relationship)：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型(1：1，1：n 或 m：n)
28、10.有三个关系 R，S 和 T 如下： （分数：1.00）A.选择B.投影C.交D.并 解析：【解析】关系的并运算是指由结构相同的两个关系合并，形成一个新的关系，其中包含两个关系中的所有元素。由题可以看出，T 是 R 和 S 的并运算得到的。11.以下变量名中合法的是（ ）。（分数：1.00）A.x2-1B.printC.str n D.2x解析：【解析】给变量命名时应遵循四个原则：(1)名字只能由字母、数字和下划线组成；(2)名字的第一个字符必须是英文字母，最后一个字符可以是类型说明符；(3)名字的有效字符为 255 个；(4)不能用 VB的保留字作为变量名，但可以把保留字嵌入变量名中；同
29、时，变量名也不能是末尾带有说明符的保留字。12. （分数：1.00）A.(5x+3)/(2y-6)B.x*5+3/2*y-6C.(5*x+3)(2*y-6)D.(x*5+3)/(y*2-6) 解析：【解析】VB 中乘除的表示方法为*和，而不是和，并且乘除的运算优先级大于加减，故应选 D。13.下面有关标准模块的叙述中，错误的是( )。（分数：1.00）A.标准模块不完全由代码组成，还可以有窗体 B.标准模块中的 Private 过程不能被工程中的其他模块调用C.标准模块的文件扩展名为basD.标准模块中的全局变量可以被工作中任何模块引用解析：【解析】标准模块中不可以含有窗体，含有窗体的模块称为
30、窗体模块。14.下面控件中，没有 Caption 属性的是( )。（分数：1.00）A.复选框B.单选按钮C.组合框 D.框架解析：【解析】组合框没有 Capticm 属性。15.用来设置文字字体是否斜体的属性是( )。（分数：1.00）A.FontUnderlineB.FontBoldC.FontSlopeD.FontItalic 解析：【解析FontItalic 属性设置字体斜体。FontUnderline 设置字体下划线，FontBold 设置字体粗体，FontSlope 为迷惑选项，没有这个属性。16.若看到程序中确以下事件过程，则可以肯定的是，当程序运行时( )。 Private S
31、ub ClickMouseDown(Button As Integer，Shift As Integer，X As Single，Yas Single) Print“VB Program“ End Sub（分数：1.00）A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程 解析：【解析】事件过程的命名方式一般为事件对象_事件名，所以该事件应为“Click”的“MouseD
32、own”事件。17.可以产生 30-50(含 30 和 50)之间的随机整数的表达式是( )。（分数：1.00）A.Int(Rnd*21+30) B.Int(Rnd*20+30)C.Int(Rnd*50Rnd*30)D.Int(RND*30+50)解析：【解析】Rnd 产生 01 之间的一个单精度随机数。18.在程序运行时，下面的叙述中正确的是( )。（分数：1.00）A.用鼠标右键单击窗体中任何无控件部分，会执行窗体的 FormLoad 事件过程B.用鼠标左键单击窗体的标题栏，会执行窗体的 FormClick 事件过程C.只装入而不显示窗体，也会执行窗体的 FormLoad 事件过程 D.装
33、入窗体后，每次显示该窗体时，都会执行窗体的 FormClick 事件过程解析：【解析】Form_Load 事件只在显示窗体时发生。19.窗体上有名称为 Command1 的命令按钮和名称为 Textl 的文本框 Private Sub Command1 Click() Text1Text=“程序设计“ Text1SeFocus End Sub Private Sub Text1 GotFocus() Text1Text=“等级考试“ End Sub 运行以下程序，单击命令按钮后( )。（分数：1.00）A.文本框中显示的是“程序设计“，且焦点在文本框中B.文本框中显示的是“等级考试“，且焦点在
34、文本框中 C.文本框中显示的是“程序设计“，且焦点在命令按钮上D.文本框中显示的是“等级考试“，且焦点在命令按钮上解析：【解析】单击命令按钮首先激发 Command1_Click 事件，Command1_Click 事件将 Text1 的文本设为“程序设计”，然后将光标置到文本框，这将激发 Text1_GotFocus()，执行 Text1_GotFocus()即为 B 选项结果。20.窗体上有名称为 Option1 的单选按钮，且程序中有语句： If()ption1ValueTrue Then 下面语句中与该语句不等价的是( )。（分数：1.00）A.If Option1Value Then
35、B.If Option1 一 True ThenC.If Value=True Then D.If Option1 Then解析：【解析】题中单选按钮的 Value 属性表示是否被选中，True 表示选中，False 是未选中。语句Ifoption1Value=True Then 表示当单选按钮选中时执行 Then 语句。C 选项只是判断变量 Value 是否为True，不符题意。21.设窗体上有 1 个水平滚动条，已经通过属性窗 V1 把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是( )。（分数：1.00）A.程序运行时，若使滚动块向左移动，滚动条的 Valu
36、e 属性值就增加 B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动解析：【解析】滚动条是可以将 Max 的值设成比 Min 小的。这样设置的话，向左移动时 Value 值是增加的。22.有如下过程代码： Sub var_dim() static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa；mub End Sub
37、连续 3 次调剧 var_dim 过程，第 3 次调用时的输出是( )。（分数：1.00）A.2 1B.2 3C.6 1 D.6 3解析：【解析】Static 是将变量声明为静态变量，每次调用值会取上次调用后的值。而 numb 是局部变量，每次会重新初妁化，所以应选 C 选项。23.在窗体上画 1 个命令按钮，并编写如下事件过程： private Sub Command1_Click() For i=5 To 1 Step-08 Print Int(i)； Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为( )。（分数：1.00）A.5 4 3 2 1 1 B.5 4
38、3 2 1C.4 3 2 1 1D.4 4 3 2 1 1解析：【解析】step 可以设置 For 循环的步长，所以程序执行 6 次，Int(i)是求不大于自变量 i 的最大整数。24.在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Command1 Click() Dim a(3，3) For m=1 To 3 For n=1 To 3 If n=m or n=4m Then a(mn)=m+n Else a(m，n)=0 End If Print a(m，n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为(
39、)。（分数：1.00）A.2 0 00 4 00 0 6B.2 0 40 4 04 0 6 C.2 3 03 4 00 0 6D.2 0 00 4 50 5 6解析：【解析】本题考查了嵌套的 For 循环，答案为 B 选项。25.设有以下函数过程： Function fun(a As Integer，b As Integer) Dim c As Integer If a c=a：a=b：b=C End IF c=0 Do c=c+a Loop Until c Mod b=0 fun=c End Function 若调用函数 fun 时的实际参数都是自然数，则函数返回的是( )。（分数：1.00
40、）A.a、b 的最大公约数B.a、b 的最小公倍数 C.a 除以 b 的余数D.a 除以 b 的商的整数部分解析：【解析】本题考查了 Do Loop 循环，实现的是最小公倍数。本题中 If 语句实现了 a 和 b 交换。26.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1 Timer() Static flag As Integer If Flag=0 Then Flag=1 Flag=-flag If fla
41、g=1 Then Text1ForeColor=HFF HFF为红色 Else Text1ForeColor=HCOO HCOO为绿色 End If End Sub 以下叙述中正确的是( )。（分数：1.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色 D.程序有逻辑错误，Else 分支总也不能被执行解析：【解析】Static 是将变量声明为静态变量，每次调用值会取上次调用后的值。计时器的 Interval 属性为计时器记时间隔。27.为计算 1+2+22+23+24+210 的值，并把结果显示
42、在文本框 Text1 中，若编写如下事件过程： Private Sub Command1 Click() Dim a，s，k s=1 a=2 For k=2 To 10 a=a*2 s2 s+a Next k Text1Text=s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。（分数：1.00）A.把 s=1 改为 s=0B.把 For k=2 T0 10 改为 For k=1 T0 10C.交换语句 s=s+a 和 a=a*2 的顺序D.同时进行 B、C 两种修改 解析：【解析】本题程序利用了“1+2+22+2n”=2*(1+2+22+2n-1)+1，所以应同时进行 B 和 c 两种修改。28.标准模块中有如下程序代码： Public x As Integer，y As Integer Sub var pub() x
