点击查看：2018年3月计算机二级VB考前12天冲刺必做试题汇总

　　一、选择题(每小题1分，共40分)

　　(1)程序流程图中带有箭头的线段表示的是( )。

　　A.图元关系

　　B.数据流

　　C.控制流

　　D.调用关系

　　(2)结构化程序设计的基本原则不包括( )。

　　A.多态性

　　B.自顶向下

　　C.模块化

　　D.逐步求精

　　(3)软件设计中模块划分应遵循的准则是( )。

　　A.低内聚低耦合

　　B.高内聚低耦合

　　C.低内聚高耦合

　　D.高内聚高耦合

　　(4)在软件开发中，需求分析阶段产生的主要文档是( )。

　　A.可行性分析报告

　　B.软件需求规格说明书

　　C.概要设计说明书

　　D.集成测试计划

　　(5)算法的有穷性是指( )。

　　A.算法程序的运行时间是有限的

　　B.算法程序所处理的数据量是有限的

　　C.算法程序的长度是有限的

　　D.算法只能被有限的用户使用

　　对长度为n的线性表排序，在最坏情况下，比较次数不是n(n一1)/2的排序方法是( )。

　　A.快速排序

　　B.冒泡排序

　　C.直接插入排序

　　D.堆排序

　　(7)下列关于栈的叙述正确的是( )。

　　A.栈按“先进先出”组织数据

　　B.栈按“先进后出”组织数据

　　C.只能在栈底插入数据

　　D.不能删除数据

　　(8)在数据库设计中，将E—R图转换成关系数据模型的过程属于( )。

　　A.需求分析阶段

　　B.概念设计阶段

　　C.逻辑设计阶段

　　D.物理设计阶段

　　(9)有三个关系R、S和T如下：

　　

　　由关系R和s通过运算得到关系T，则所使用的运算为( )。

　　A. 并

　　B.自然连接

　　C.笛卡尔积

　　D.交

　　(10)设有表示学生选课的三张表，学生s(学号，姓名，性别，年龄，身份证号)，课程C(课号，课名)，选课sc(学号，课号，成绩)，则表SC的关键字(键或码)为( )。

　　A.课号，成绩

　　B.学号，成绩

　　C.学号，课号

　　D.学号，姓名，成绩

　　(11)以下叙述中错误的是( )。

　　A.标准模块文件的扩展名是.bas

　　B.标准模块文件是纯代码文件

　　C.在标准模块中声明的全局变量可以在整个工程中使用

　　D.在标准模块中不能定义过程

　　(12)在Visual Basic中，表达式3*2\5 Mod 3的值是( )。

　　A.1

　　B.0

　　C.3

　　D.出现错误提示

　　(13)以下选项中，不合法的Visual Basic的变量名是( )。

　　A.a5b

　　B._xyz

　　C.a_b

　　D.andif

　　(14)以下数组定义语句中，错误的是( )。

　　A.Static a(i0)As Integer

　　B.Dim c(3，1 T04)、、

　　C.Dim d(一10)

　　D.Dim b(0 T0 5，1 T0 3)As Integer(15)现有语句：Y=IIf(X>0，X Mod 3，

　　(15)设X=10，则y的值是( )。

　　A.0

　　B.1

　　C.3

　　D.语句有错

　　(16)窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。

　　A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“√”)

　　B.菜单中的横线是在该菜单项的标题输入框中输入了一个“一”(减号)字符

　　C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“√”)

　　D.在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”

　　(17)在设计窗体时双击窗体的任何地方，可以打开的窗口是( )。

　　A.代码窗口

　　B.属性窗口

　　C.工程资源管理器窗口

　　D.工具箱窗口

　　(18)若变量a未事先定义而直接使用(例如：a=O)，则变量a的类型是( )。

　　A.Integer

　　B.String

　　C.Boolean

　　D.Variant

　　(19)为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为( )。

　　A.Dim pi As Integer

　　B.Dim pi(7)As Integer

　　C.Dim pi As Single

　　D.Dim pi As Long

　　(20)表达式2*3"2+4*2/2+3"2的值是( )。

　　A.30

　　B.31

　　C.49

　　D.48

　　(21)为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把SemllBars属性设置为( )。

　　A.0

　　B.1

　　C.2

　　D.3

　　(22)文本框Textl的KeyDown事件过程如下：

　　Private Sub Textl—KeyDown(KeyCode As Integer，Shift As Integer)End Sllb

　　其中参数KeyCode的值表示的是发生此事件时( )。

　　A.是否按下了Alt键或Ctrl键

　　B.按下的是哪个数字键

　　C.所按的键盘键的键码

　　D.按下的是哪个鼠标键

　　(23)窗体上有一个名称为HSerolll的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。

　　A.Private Sub HSemlll_Change( ) End SubPrint HSemlll.

　　B.Private Sub HScmlll_Change( )Value Print HScrolll.SmallChange End Sub

　　C.Private Sub HScrolll—Scroll( )Print HSerolll.ValueEnd Sub

　　D.Private Sub HScrolll Scroll( )Print HScrolll.SmallChange

　　End Sub

　　(24)若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是( )。

　　A.用鼠标右键单击此按钮

　　B.按键盘上的Esc键

　　C.按键盘上的回车键

　　D.用鼠标右键双击此按钮

　　(25)要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是( )。

　　①冼画一个框架，再在框架中画两个单选按钮

　　②先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中

　　③先画两个单选按钮，再画框架将单选按钮框起来

　　A.①

　　B.①、②

　　C.③

　　D.①、②、③

　　(26)能够存放组合框的所有项目内容的属性是( )。

　　A.Caption

　　B.Text

　　C.List

　　D.Selected

　　(27)设窗体上有一个标签Labell和一个计时器Timerl，Timerl的Interval属性被设置为l000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是( )。

　　A.Private SUb Timed_Timer( )Labell.Caption=TrueEnd Sub

　　B.Private Sub Timerl_Timer( )Labell.Caption=Time$End Sub

　　C.Private Sub Timerl Timer( )labell.Interval=lEnd Sub

　　D.Private Sub Timed_Timer( )For k=1 To Timerl.IntervalLabell.Caption=TimerNext k End Sub

　　(28)窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0.1、2、3，窗体外观如图所示。

　　

　　命令按钮的事件过程如下：

　　Private SUb Command1～Click(Index As Integer)

　　Select Case Index

　　Case 0

　　CD1.Action=l

　　Case l

　　CD1.ShowSave

　　Case 2

　　CD1.Action：5

　　Case 3

　　End

　　End Select

　　End Sub

　　对上述程序，下列叙述中错误的是( )。

　　A.单击“打开”按钮，显示打开文件的对话框

　　B.单击“保存”按钮，显示保存文件的对话框.

　　C.单击“打印”按钮，能够设置打印选项，并执行打印操作

　　D.单击“退出”按钮，结束程序的运行

　　(29)窗体上有一个名称为Framel的框架(如图)，若要把框架上显示的“Framel”改为汉字“框架”，下面正确的语句是( )。

　　A.Framel.Name=”框架”

　　B.Framel.Caption=”框架”

　　C.Framel.Text=”框架”

　　D.Framel.Value=”框架”

　　

　　(30)在窗体上画一个名称为Comb01的组合框，名称为Textl的文本框，以及名称为CommanD1的命令按钮，如图所示。

　　

　　运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下：

　　Privme Sub

　　CommanD1—Click( )

　　If Textl.

　　SelLength<>0

　　ThenElse

　　Comb01.

　　AdD1tem Textl

　　End IfEnd Sub程序中横线处应该填写的是( )。

　　A.Comb01.AddItem Textl.Text

　　B.Combol，AddItem Textl.SelStart

　　C.Comb01.AddItem Textl.SelText

　　D.Comb01.Addhem Textl.SelLength

　　(31)窗体上有一个名称为Textl的文本框，一个名称为CD1的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。

　　

　　命令按钮的单击事件过程如下：

　　Private Sub CommanD1—Click( )CD1.

　　ShowOpen

　　Open CD1.

　　FfleName For Input As#1MsgBox CD1.

　　FfleNalne

　　Line Input#1.

　　sTextl.Text=SClose#1

　　End Sub

　　单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中，以下叙述中正确的是( )。

　　A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作

　　B.执行Open命令时出错，因为没有指定文件的路径

　　C.Open语句是错误的，应把语句中的For Input改为For.Gutput

　　D.Line Input命令格式错

　　(32)窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件( )。

　　A.是图像框(Image)

　　B.是图片框(PietureBox)

　　C.是形状控件

　　D.不是上述3种控件中的一种

　　(33)窗体上有一个名称为Combol的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。

　　A.Private Sub Comlbol—KeyDown(KeyCode As Integer，Shift As Integer)IfKeyCode=13 ThenComb01.AdD1tem Comb01.TextErldⅡEnd Sub

　　B.Private Sub Combol—KeyDown(KeyCode As Integer，Shift As Integer)IfKeyCode=13 ThenComb01.Addhem Textl.Text，EIldIfEnd Sub

　　C.Private Sub Combol—Click( )Comb01.AdD1tem Comb01.Text·End Sub

　　D.Private Sub Combol—Click( )Comb01.Addhem Textl.TextEnd Sub

　　(34)工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：

　　Public x As IntegerPrivate Y As Integer窗体文件的程序代码是：

　　Dim a As Integer

　　Private Sub Form_Load( )Dim b As Integer

　　a=2：b=3：x=10v=20

　　End Sllb

　　Private Sub CommanD1_Click( )

　　a=a+5：b=b+5：x=x+5：y=Y+5Print a;b;x;Y

　　End Sub

　　运行程序，单击窗体上的命令按钮，则在窗体上显示的是( )。

　　A.5 5 15 5

　　B.7 5 15 25

　　C.7 8 15 5

　　D.7 5 15 5

　　(35)窗体上的三个命令按钮构成名称为CommanD1的控件数组。如图所示。

　　

　　程序如下：

　　Private Sub CommanD1—Click(Index As Integer)

　　IfIndex=1 Then

　　Print”计算机等级考试”

　　End If

　　IfIndex=2 Then

　　Prim CommanD1(2).Caption

　　End IfEnd Sub

　　运行程序，单击“命令按钮2”，则如下叙述中正确的是( )。

　　A.Print CommanD1(2).Caption语句有错

　　B.在窗体上显示“命令按钮2”

　　C.在窗体上显示“命令按钮3”

　　D.在窗体上显示“计算机等级考试”

　　(36)下面程序的执行结果是( )。

　　Private Sub CommanD1—Click( )a=0

　　k=1Do While k<4

　　X=k+kk=k+1

　　Prim X;

　　LoopEnd Sub

　　A.1 4 27

　　B.1 1 1

　　C.1 4 9

　　D.0 0 0

　　(37)窗体上有名称分别为Textl、Text2的文本框，名称为CommanD1的命令按钮。运行程序，在Textl中输入“FormList”，然后单击命令按钮，执行如下程序：Private Sub CommanD1—Click( )Text2.Text=UCase(Mid(Textl.Text，5，4)End Sub在Text2中显示的是( )。

　　A.form

　　B.list

　　C.FORM

　　D.LIST

　　(38)窗体上有名称为CommanD1的命令按钮，名称分别为Listl、List2的列表框，其中Listl的MultiSelect属性

　　设置为1(Simple)，并有如下事件过程：Private Sub CommanD1—Click( )

　　For i=0 To Listl.ListCount一1

　　If Listl.Selected(i)=True Then

　　List2.AddItem Text

　　EndIf

　　NextEnd Sub上述事件过程的功能是将Listl中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。

　　A.将For循环的终值改为Listl.ListCount

　　B.将Listl.Selected(i)=True改为Listl.List(i).Selected=True

　　C.将List2.AdD1tem Text改为List2.AddItem Listl.List(i)

　　D.将List2ddItem Text改为List2.Addhem Listl.ListIndex

　　(39)设有如下CommanD1的单击事件过程及fun过程：

　　Private Sub CommanD1_Click( )

　　Dim X As Integer

　　x=Val(InputBox(”请输入一个整数”))fun(X)

　　End Sub

　　Private Sub fun(x As Integer)

　　If X Mod 2=0 Then fun(X/2)Print X;

　　End Sub

　　执行上述程序，输入6，结果是( )。

　　A.3 6

　　B.6 3

　　C.6

　　D.程序死循环

　　(40)命令按钮CommanD1的单击事件过程如下：

　　Private Sub CommanD1—Click( )Dim a(10，10)As IntegerX=0

　　For i=l T0 3

　　For J=1 T0 3

　　a(i，j)=i}2 Mod J

　　If x

　　Next

　　Next

　　Print XEnd Sub

　　执行上述事件过程后，窗体上显示的是( )。

　　A.1

　　B.2

　　C.3

　　D.4

　　二、基本操作题(共18分)

　　(1)在名称为Form1的窗体上添加一个名称为Shape1的形状控件，要求在属性窗13中将其形状设置为椭圆，其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”，窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。

　　注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，

　　窗体文件名保存为sjt1.frm。

　　

　　(2)在名称为Form1的窗体上添加一个名称为Hs的水平滚动条，最大值为l00，最小值为1。再添加一个名称为List1的列表框，在属性窗E1中输入列表项的值，分别是l000、1500、2000，如图所示。请编写适当的程序，使得运行程序时，将水平滚动条的长度改变为所选中列表框中的某一项的值。要求程序中不得使用变量，每个事件过程中只能写一条语句。

　　注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjr2.vbp，窗体文件名保存为sjt2.frm。

　　

　　三、简单应用题(共24分)

　　(1)在考生文件夹中有一个工程文件sit3.vb0。运行程序时，先向文本框Textl中输入一个不超过l0的正整数，然后选择“N的阶乘”或“(N+2)的阶乘”单选钮，即可进行计算，计算结果在文本框Text2中显示，如图所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。

　　注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。

　　

　　(2)在考生文件夹中有一个工程文件sjt4.vbp。该程序的功能是将文件in4.txt中的文本读出并在文本框Textl中显示。输入一个英文字母到文本框Text2中，然后单击“统计”命令按钮，统计该字母(大小写被认为是不同的字母)在文本中出现的次数，统计结果在标签Label3中显示。

　　给出的窗体文件中已经有了全都控件，如图所示。程序不完整，要求：去掉程序中的注释符，把程序中的?改为正确的内容。

　　注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。

　　

　　四、综合应用题(共18分)

　　在考生文件夹下有一个工程文件sjt5.vb0，其窗体上有一个名称为Text1的文本框;还有两个名称分别为cl、c2的命令按钮，标题分别为“计算”、“存盘”。有一个函数过程isprime(A.可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。

　　请编写适当的事件过程，使得程序运行时，单击“计算”按钮，找出小于l8000的最大素数，并显示在Text1中;单击“存盘”按钮，则将Text1中的计算结果存入考生文件夹下的out5.txt文件中。

　　注意：考生不得修改iso,-ime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存人0ut5.txt文件中，否则将没有成绩。

　　参考答案及解析

　　一、选择题

　　(1)C【解析】在数据流图中，用标有名字的箭头表示数据流。在程序流程图中，用标有名字的箭头表示控制流。所以选择C。

　　(2)A【解析】结构化程序设计的思想包括：自顶向下、逐步求精、模块化、限制使用got0语句，所以选择A。

　　(3)B【解析】软件设计中模块划分应遵循的准则是高内聚低偶合、模块大小规模适当、模块的依赖关系适当等。模块的划分应遵循一定的要求，以保证模块划分合理，并进一步保证以此为依据开发出的软件系统可靠性强，易于理解和维护。模块之间的耦合应尽可能的低，模块的内聚度应尽可能的高。

　　(4)B【解析】A错误，可行性分析阶段产生可行性分析报告。C错误，概要设计说明书是总体设计阶段产生的文档。D错误，集成测试计划是在概要设计阶段编写的文档。B正确，软件需求规格说明书是后续工作如设计、编码等需要的重要参考文档。

　　(5)A【解析】算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。有穷性是指算法程序的运行时间是有限的。

　　(6)D【解析】除了堆排序算法的比较次数是O(nl092n)，其他的都是n(rt一1)/2。

　　(7)B【解析】栈是按“先进后出”的原则组织数据的，数据的插入和删除都在栈顶进行操作。

　　(8)C【解析】E—R图转换成关系模型数据则是把图形分析出来的联系反映到数据库中，即设计出表，所以属于逻辑设计阶段。

　　(9)D【解析】自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以8错误。笛卡尔积是用R集合中元素为第一元素，s集合中元素为第二元素构成的有序对，所以C错误。根据关系T可以很明显地看出是从关系R与关系s中取得相同的关系组所以取得是交运算，选择D。

　　(10)C【解析】学号是学生表s的主键，课号是课程表c的主键，所以选课表sc的关键字就应该是与前两个表能够直接联系且能唯一定义的学号和课号，所以选择c。

　　(11)D【解析】标准模块独立保存为标准模块文件.bas，故A选项正确。

　　标准模块是应用程序内其他模块访问的过程和声明的容器。当应用程序比较庞大，含有多个窗口，而且几个窗口需要写重复的过程、变量等代码时，就可以把这些重复的代码写在标准模块。故B选项正确。

　　在标准模块中定义的Public变量、Public过程属于全局变量和全局过程，在整个工程中的其他窗体、模块都可以使用。故c选项正确，在标准模块中可以定义过程，故D选项错误。

　　(12)A【解析】VB中算术运算符优先级从高到低：乘方“>负号一>乘除}、/>整除\>取模Mod>加减+、一。根据优先级顺序，先计算3 t2为6，再6\5整除为1，最后1 Mod 3取模结果为1。故A选项正确。

　　(13)B【解析】VB中变量的命名规则为：①必须以字母或汉字开头②由字母、汉字、数字或下划线组成③不能使用VB已经占用的关键字。本题选项B中变量名以下划线开头，不合法。故B选项错误。

　　(14)C【解析】定义数组有2种格式：第1种格式：数组每一维的只给出下标的上界，即可以使用的下标的最大值。格式为Diml publicI privateI static<数组名>(上界，[上界…])[As类型名]形如：Dim a(5)As Interger，Dim b(4，5)As Integer这种形式，数组各维的下标的下界只能为0或1，而且下标的上界>=下界。本题中C选项下标上界一10<0或1，故A选项正确，C选项错误。

　　第2种格式：数组的每一维下标的上界和下界都说明。格式为DimIpubliclprivateI static<数组名>((下界t0上界)[(下界t0上界)…])形如：Dim a(一2 to 5)As IntergerDim a(1 t0 3，2 t0 6)As Interger这种形式，数组各维下标的下界没有限制，只要保证下标的上界>=下界就行。故D选项正确。

　　以上两种形式也可以混合使用。故B选项也正确。

　　(15)B【解析】IIF是条件函数，它的语法格式是：Iff(<条件表达式>，<表达式为True时的取值>，<表达式为False时的取值>)，本题中，X=10时，条件表达式x>0的值为True，执行XMod 3即10 Mod 3结果为1。故选B。

　　(16)A【解析】快捷菜单中的“粘贴”菜单项为无效时， 在菜单编辑器窗口中“有效”属性应该是不选中状态，没有“√”，故A选项错误。

　　(17)A【解析】设计窗体时双击窗体的任何地方，默认打开的是代码窗口。故选A。

　　(18)D【解析】VB不要求必须先定义再使用。如果没有提前定义变量，就直接使用，系统就会将变量的数据类型指定为默认数据类型Variant变体型。故选D。

　　(19)C【解析】单精度Single或双精度Double型的变量能够保存浮点型小数，整型Integer和长整型Long的变量只能保存整型数据。本题中圆周率为3.14159，小数，可用定义一个Single或Double型变量来保存。故选C。

　　(20)B【解析】根据VB中算术运算符的优先级顺序计算。先计算，即2$9+4}2/2+9;再计算}/，即l8+4+9;最后计算+，结果为31，故选B。

　　(21)D【解析】文本框的ScrollBars属性值，0表示无滚动条，1表示只有水平滚动条，2表示只有垂直滚动条，3表示水平和垂直滚动条都有。故D选项正确。

　　(22)C【解析】参数KeyCede返回的是所按键的键码，而且大小写字母键码值相同。故选C。

　　(23)A【解析】根据题意可知，用户的操作是单击滚动条两端的箭头，故触发的是滚动条的Change事件;在窗体上显示的是滚动框的位置，即滚动条的当前刻度值，Value属性值可返回这个值，综合一下，故A选项正确。

　　(24)C【解析】当命令按钮的Default属性值为True时，程序运行，按回车键和单击该命令按钮一样都会触发按钮的Click事件;当命令按钮的Cancel属性值为True时，程序运行，按Esc键和单击该命令按钮都会触发按钮的Click事件。故选C。

　　(25)A【解析】①的操作方法可使两个单选按钮属于同一个框架，其他方法不行。故A选项正确。

　　(26)C【解析】组合框没有Caption属性;Text属性用来设置或返回组合框中当前选项的文本内容;Selected属性是列表框控件的属性，组合框没有Selected属性;List属性用来设置或返回组合框中的各选项，它是一个字符串数组，组合框中各选项内容用List(下标)表示。故A、B、D选项错误，C选项正确。

　　(27)B【解析】Timerl的Interval属性值是l000，Enabled属性为True，说明定时器开始工作，每隔1000毫秒(即1秒)触发一次Timer事件，从而执行一次Timer事件过程。要想每秒在标签中显示一次系统时间，则在Timer事件过程中把系统时间赋给标签的Caption属性就能实现。故选B。

　　(28)C【解析】通用对话框中Action=1，或用ShowOpen方法都可显示“打开”文件对话框;Action=2，或用ShowSave方法都可显示文件“另存为”对话框;Action=3，或用ShowColor方法都可显示“颜色”对话框;Action=4，或用ShowFont方法都可显示“字体”对话框;Action=5，或用ShowPrinter方法都可显示“打印”对话框;本题中，“打开”、“保存”、“打印”、“退出”按钮的下标(即ndex值)分别是O、1、2、3，用Index值区分各命令按钮。

　　当Index=0时，CDl.Action=1，说明单击“打开”按钮，会显示“打开”文件对话框;

　　当Index=1时，CDl.ShowSave，说明单击“保存”按钮，会显示文件“另存为”对话框;当Index=3时，End，说明单击“退B”按钮，会结束程序运行。故A、B、D选项正确。

　　当Index=2时，CDl.Action=5，说明单击“打印”按钮，会匹示“打印”对话框，但打开对话框后，只能设置打印选项，不电执行打印操作。故C选项错误。

　　(29)B【解析1框架的Name属性是设置框架的名称;：aption属性设置框架的标题，是在框架的左上角显示的内容;重架控件没有Text和Value属性。故B选项正确。

　　(30)C【解析】根据题意可知，横线处应该是将文本框

　　中选中文本添加到组合框中。文本框Text属性返回整个文本框中的文本，故A选项错误;SelStart属性返回选中文本的起始位鼍，故B选项错误;SelLength属性返回选中文本的长度，故D选项错误;Serrext属性返回选中的文本，故C选项正确。

　　(31)A【解析】第1条语句中用ShowOpen方法显示“打开”对话框后，在对话框中选中文件，单击“打开”按钮后，CDl.FileName属性就会返回打开文件的路径，所以用Open语句打开文件时，就可用CDl.FileName指定打开文件的路径，故B选项说法错误。

　　因为第4条语句中要用Line Input从文件读取数据，故用Open语句打开文件时用Input模式打开是正确的，故C选项说法错误。

　　Line Input命令格式为：Line Input#文件号，变量名，题中Line Input语句格式正确。故D选项错误。

　　本题程序无错误，能实现所说功能，故A选项正确。

　　(32)B【解析】图片框是“容器”控件，可以作为父控件，而图像框不能。图片框可以通过Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收Print方法输入的信息，也不能用绘图方法在图像框上绘制图形。而形状控件3D效果的样式，根据题目图示显然不是形状控件。因此这个图形控件是图片框。

　　(33)A【解析】在组合框中的输入的文本保存在它的Text属性中，根据程序要求，只要判断按下了回车键后，使用组合框的Addhem方法把Text中的字符添加到列表中即可。选项C和D没有判断是否按下回车键，所以排除。而选项B中使用Addhem方法添加的是Text1.Text的值，不是组合框Com—bol的Text值，所以也不对。

　　(34)D【解析】程序在模块文件中定义X为整型全局变量，在整个工程中都起作用，而Y定义为整型私有变量，只能在本模块文件中起作用。在窗体文件中变量a在本窗体文本中起作用，窗体加载事件中定义的变量b和没有声明的变量Y，只在本事件过程起作用。程序窗体加载时，对后边有影响的变量值为a为2，x为10，没有指定初值的变量值默认为0，因此单击命令按钮后，a=a+5=7，b=b+5=5，x=X+5=15，Y=Y+5=5，结果输出7 5 15 5。

　　(35)D【解析】控件数组与数据数组一样下标默认从0开始，即本题中按钮控件数组的Index值为0，1，2，分别对应命令按钮1、命令按钮2、命令按钮3。当单击命令按钮2时，In.dex值为l，因此程序会输出“计算机等级考试”。

　　(36)B【解析】本题主要考查算术运算符中的幂运算，在程序中x的值为k的k次方的a次方，k的值每次循环都加1，但a的值不变总为0，除0以外的任何数的0次方都是l，因此，在k的值变为4之前会输出三个l。

　　(37)D【解析】Mid为中部截取函数，格式为Mid(字符串，起始位置，长度)，Ucase函数的作用是把字符串中的小写字母转换为大写字母。题目中Mid函数截取字符串“Form—List”第5个字符开始的4个字符，结果为“List”，Ucase函数把“List”全部变为大写，即“lAST”。

　　(38)C【解析】题目程序不能将List1中的选中项添加到ljsc2中，List2.Addltem Text一行有误，应该改为List2。Ad—dItem List1.List(i)才能使List1中每个选中的行添加到List2中。列表框控件的List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。

　　(39)A【解析】题目中fun过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为6，是偶数所再次调用fun过程，这次参数为6/2=3，是奇数，不再调用自身，接着执行下一句输出参数值即3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即6。因此程序会输出3 6。

　　(40)B【解析】题目中定义了一个二维数组，为数组赋初值并找出这些值中最大的值输出。数组中的值为：

　　a(1，1)=1*2 mod l=0a(1，2)=1*2 rood 2=0a(1，3)=1·2 lnod 3=2

　　a(2，1)=2*2 mod l=Oa(2，2)=2*2*2=Oa(2，3)=2*2 Inod 3=l

　　a(3，1)=3*2 mod l=0a(3，2)=3(2血)d 2=0a(3，3)=3*2mod 3=0

　　显然最大值为2，因此Print x语句将在窗体上显示2。

　　二、基本操作题

　　(1)【解题思路】M丑xButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。【操作步骤】

　　步骤1：按题目要求添加控件，并设置其属性。程序中用

　　到的控件及属性见表1。

　　表1

　　

　　步骤2：调试并运行程序。关闭程序后按题目要求存盘。

　　(2)【解题思路]List1 Click事件过程中，使滚动条的Width属性值等于列表框的TeJa属性值，那么当选择列表框中的某一项，就将水平滚动条的长度改变为所选中的值。

　　【操作步骤】

　　步骤1：程序中用到的控傣吸属性见表2。

　　

　　步骤2：编写程序代码。参考答案

　　Private Sub List1_Click()HS。Wid出=List1.TextEnd Sub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　三、简单应用题

　　(1)【解题思路】在单击单选按钮数组事件过程中，首先向文本框1kt1中输入一个不超过l0的正整数，通过Val函数实现字符向数值的转换，然后选择“N的阶乘”或“(N+2)的阶乘”单选按钮，通过Select Case语句和单选按钮数组的Index属性，确定所调用函数的参数，从而调用Function fl()过程函数进行计算，将计算结果显示在文本框Te地中。

　　【操作步骤】

　　步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码

　　Private Sub Optionl～Click(Index As Integer)Dim n AsInteger

　　n=ValfText1.Text)‘Select Case?

　　Case 0

　　Text2."rext=fl(?)Casel

　　Text2.Text=fl(?)End Select

　　End Sub

　　Public Function fl(n As Integer)A8 LongDim xAs Long

　　X=1

　　Th i=1 T0 7x2X十i

　　Next‘?=XEnd Function程序结束

　　参考答案

　　第1个?处填人：Index第2个?处填入：n

　　第3个?处填入：n+2.第4个?处填人：n

　　第5个?处填入：n

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　(2)【解题思路】通过文件操作和“&”连接符将文件ins.txt中的文本读出并显示在文本框1钮1中，在C0㈣dl eli&事件过程中，在文本框Text2中输入一个英文字母，然后单击“统计”命令按钮，统计该字母(大小写被认为是不同的字母)在文本中出现的次数，统计结果显示在标签Imbel3中。

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：分析并编写程序代码。程序提供代码

　　Privale Sub Fonn_lJ0ad()

　　Open App.Path&”\in4.瞰”For Input As嚣1

　　Line Input{I}1.S’Text1.Text=?Close#l

　　End Sub

　　Privatd Sub Commandl—Click()

　　Dim n AsIntegerS=Text1.Text

　　sl=RTrim(Text2.Text、Do

　　p=Instr(?)

　　IfP<>0 Then n=n+1s=Mid(S，P+I)

　　Loop While P?0

　　Labels.Caption=?

　　End Sub

　　程序结束

　　参考答案

　　第1个?处填人：S.第2个?处填入：S，sl

　　第3个?处填入：<>第4个?处填入：n

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。四、综合应用题

　　【解题思路】函数过程isprime(a)的功能是通过Do While语句、Ⅱ判断语句和Int函数，判断参数a是否为素数，如果是素数，则函数返回True，否则函数返回False。在单击“计算”按钮事件过程中，通过For语句和调用函数过程isprime(a)，找出小于l8000的最大的素数，并将其显示在Text1中;在单击“存盘”按钮事件过程中，通过文件操作把Text1中的计算结果存入考生文件夹下的0ut5.txt文件中。

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：分析并编写程序代码。程序提供代码

　　Private Function isprime(a As Integer)As BooleanDim flag As Boolean

　　flag=Trueb%=2

　　DoWhile b%<=Int(a/2)And/lagIfInt(a/b%)=a/b%Then

　　flag=FalseElse

　　b%=b%+1End If

　　Loop

　　isprime=flagEnd Function

　　程序结束

　　参考答案

　　Private Sub Cl一Click()

　　DimiAsInteger\、For i=17999 T0 1 Step一1

　　Ⅱisprime(i)ThenTbxt1=i

　　Exit ForEndIf

　　NextEnd SubPrivate Sub C2一Click().

　　Open App.Path&”\out5.txt”For Output As鼻lPrint#1.Text1.Text

　　Close{}1End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。