[计算机类试卷]国家二级（VB）机试模拟试卷135及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 135及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）循环队列是队列的一种链式存储结构 （ B）循环队列是队列的一种顺序存储结构 （ C）循环队列是非线性结构 （ D）循环队列是一种逻辑结构 2 下列关于线性链表的叙述中，正确的是 ( )。 （ A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 （ B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续 （ C）进行插入与删除时，不需要移动表中的元素 （ D）以上说法均不正确 3 一棵二叉树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为 (

2、)。 （ A） 16 （ B） 10 （ C） 6 （ D） 4 4 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是 ( )。 （ A）外模式 （ B）内模式 （ C）概念模式 （ D）逻辑模式 5 在满足实体完整性约束的条件下 （ A）一个关系中应该有一个或多个候选关键字 （ B）一个关系中只能有一个候选关键字 （ C）一个关系中必须有多个候选关键字 （ D）一个关系中可以没有候选关键字 6 有三个关系 R、 S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）自然连接 （ B）交 （ C）除 （ D）并 7 下面描述中，不属于软件危机表现的是 ( )。 （

3、 A）软件过程不规范 （ B）软件开发生产率低 （ C）软件质量难以控制 （ D）软件成本不断提高 8 下面不属于需求分析阶段任务的是 ( )。 （ A）确定软件系统的功能需求 （ B）确定软件系统的性能需求 （ C）需求规格说明书评审 （ D）制定软件集成测试计划 9 在黑盒测试方法中，设计测试用例的主要 根据是 ( )。 （ A）程序内部逻辑 （ B）程序外部功能 （ C）程序数据结构 （ D）程序流程图 10 在软件设计中不使用的工具是 ( )。 （ A）系统结构图 （ B） PAD图 （ C）数据流图 (DFD图 ) （ D）程序流程图 11 以下变量名中合法的是 ( )。 （ A）

4、x-2 （ B） 12abe （ C） sum_total （ D） print 12 已知 a=6， b=15， c=23，则语句 Print Sgn(a+b Mod 6-c a)&a+b的输出结果为( )。 （ A） 6 （ B） 16 （ C） 31 （ D） 121 13 以下叙述中错误的是 ( )。 （ A）续行符与它前面的字符之间至少要有一个空格 （ B） Visual Basic中使用的续行符为下划线 ( ) （ C）以撇号 ()开头的注释语句可以放在续行符的后面 （ D） Visual Basic可以自动对输入的内容进行语法检查 14 以下关于多重窗体程序的叙述中，错误的是 (

5、 )。 （ A）对于多重窗体程序，需要单独保存每个窗体 （ B）在多重窗体程序中，可以根据需要指定启动窗体 （ C）在多 重窗体程序中，各窗体的菜单是彼此独立的 （ D）用 Hide方法不仅可以隐藏窗体，而且还可以清除内存中的窗体 15 以下关于文件的叙述中，错误的是 ( )。 （ A）顺序文件中的记录是一个接一个地顺序存放 （ B）随机文件中记录的长度是随机的 （ C）文件被打开后，自动生成一个文件指针 （ D） EOF函数用来测试是否到达文件尾 16 下面不是键盘事件的是 ( )。 （ A） KeyDown （ B） KeyUp （ C） KeyPress （ D） KeyCode 17

6、语句 Dim Arr(一 2 To 4)As： Integer所定义的数组的元素个数为 ( )。 （ A） 7个 （ B） 6个 （ C） 5个 （ D） 4个 18 为了使窗体左上角不显示控制框，需设置为 False的属性是 ( )。 （ A） Visible （ B） Enabled （ C） ControlBox （ D） Caption 19 窗体上有 1个名称为 Text1的文本框， 1个名称为 Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为 ( )。 （ A） Private Sub Labell_Click(

7、) Label1 Caption=Text1 Text End Sub （ B） Private Sub Labell_Change() Label1 Caption=Text1 Text End Sub （ C） Private Sub Textl_Click() Label1 Caption=Text1 Text End Sub （ D） Privme Sub Textl_Change() Label1 Caption=Text1 Text End Sub 20 对窗体上名称为 Commandl的命令按钮，编写如下事件过程： Private Sub Commandl_Click() Mov

8、e 200， 200 End Sub 程序运行时，单击命令按钮，则产生的操作是 ( )。 （ A）窗体左上角移动到距屏幕左边界、上边界各 200的位置 （ B）窗体左上角移动到距屏幕右边界、上边界各 200的位置 （ C）窗体由当前位置向左、向上各移动 200 （ D）窗体由当前位置向右、向下各移动 200 21 为了每秒钟 发生一次计时器事件，可以将 Interval属性设置为 ( )。 （ A） 1 （ B） 10 （ C） 100 （ D） 1000 22 能够将组合框 Combol中最后一个数据项删除的语句为 ( )。 （ A） Combol RemoveItem Combol Lis

9、tCount （ B） Combol RemoveItem Combol ListCount-1 （ C） Combol Removeltem Combol Listlndex （ D） Combol Removeltem Combol Listlndex-1 23 用来设置文字字体是否为粗体的属性是 ( )。 （ A） Fontltalic （ B） FontUnderline （ C） FontSize （ D） FontBold 24 以下不能触发滚动条 Change事件的操作是 ( )。 （ A）拖动滚动框 （ B）单击两端的滚动箭头 （ C）单击滚动框 （ D）单击滚动箭头与滚动框之

10、间的滚动条 25 确定图片框 Picturel在窗体上位置的属性是 ( )。 （ A） Widtll和 Height （ B） Left和 Top （ C） Width和 Top （ D） Height和 Left 26 以下不属于单选按钮的属性是 ( )。 （ A） Caprion （ B） Name （ C） Min （ D） Enabled 27 以下关于图片框控件的说法中，错误的是 ( )。 （ A）可以通过 Print方法在图片框中输出文本 （ B）图片框控件中的图形可以在程序运行过程中被清除 （ C）图片框控件中可以放置其他控件 （ D）用 Stretch属性可以自动调整图片框中图

11、形的大小 28 为了清除列表框中指定的项目，应使用的方法是 ( )。 （ A） Cls （ B） Clear （ C） Remove （ D） RemoveItem 29 假定 Picturel和 Textl分别为图片框和文本框的名称，则下列错误的语句是( )。 （ A） Print 25 （ B） Picturel Print 25 （ C） Textl Print 25 （ D） Debug Print 25 30 设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 在窗

12、体上画一个名为 Commandl的命令按钮，要求当执行事件过程Commandl_Click时，在顺序文件 Person txt中写入一条记录。下列能够完成该操作的事件过程是 ( )。 （ A） Private Sub Commandl_Click() Dim B As Books Open”C： PerBon txt”For Output As#1 B Name=InputBox(”输入姓名 ”) B TelNum=InputBOX(”输入电话号码 ”) Write#1， B Name， B TelNum Close#1 End Sub （ B） Private Sub Commandl_Cl

13、ick() Dim B As Books； Open”C： Person txt”For Input As#1 B Name=InputBox(”输入姓名 ”) B TelNum=InputBox(”输入电话号码 ”) Print#1， B Name， B TelNum Close#1 End Sub （ C） Private Sub Commandl_Click() Dim B As Books Open”c： Person txt”For Output As#1 B Name=InputBox(”输入姓名 ”) B TelNum=InputBox(”输入电话号码 ”) Write#1,B

14、Close#1 End Sub （ D） Private Sub Commandl_Click() Open”C： Person txt”For Input As#1 Name=InputBox(”输入姓 名 ”) TelNum=InputBox(”输入电话号码 ”) Print#1， Name， TelNum Close#1 End Sub 31 运行如下程序： Private Sub Commandl_Click() Dim a(5， 5)As Integer F0r i=1 To 5 For j=1 To 4 a(i， j)=i*2+J If a(i， j) 7=a(i， j) 7 Th

15、en n=n+1 End If Next j Next Print n End Sub n的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 32 窗体上有单选钮和列表框控件。单击名称为 Option1、标题为 “国家 ”的单选钮，向列表框中添加国家名称，如下图所示。 Option1的单击事件过程如下： Private Sub Option1_Click() Dim arr arr=Array(”中国 ”， ”日本 ”， ”德国 ”， ”美国 ”， ”澳大利亚 ”) List1 Clear For i=0 To Ubound(arr) List1 AddItem arr(

16、i) Next End Sub 以下关于上述代码的叙述中，正确的是 ( )。 （ A）程序有错，没有声明数组的维数及上下界 （ B）只有一维数组才能使用 Array为数组赋初值 （ C） For循环的终值应为 ListCount1 （ D） For循环的初值应为 1 33 现有如下一段程序： Private SUb Commandl_Click() x=UCase(InputBox(”输入： ”) Select Case x Case”A”To”C” Print”考核通过 !” Case”D” Print”考核不通过 !” Case Else Print”输入数据不合法 !” End Sele

17、ct End Sub 执行程序，在输入框中输入字母 “B”，则以下叙述中正确的是 ( )。 （ A）程序运行错 （ B）在窗体上显示 “考核通过 !” （ C）在窗体上显示 “考核不通过 !” （ D）在窗体上显示 “输入数据不合法 !” 34 窗体上有三个水平滚动条，名称分别为 HSRed、 HSGreen和 HSBhe，取值范围均是 0 255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。 程序代码如下： Dim color(3)As Integer Private Sub Form_Load() Call fill(color() End

18、 Sub Private Sub fill(C()As Integer) Form1 BackColor=RGB(C(1)， C(2)， C(3) End Sub Private Sub HSRed_Change() color(1)=HSRed Value Call fiH(color() End Sub Private Sub HSGreen_Change() color(2)=HSGreen Value Call fin(color() End Sub Private Sub HSBlue_Change() color(3)=HSBlue Value Call fin(color() E

19、nd Sub 关于以上程序，如下叙述中错误的是 ( )。 （ A） color是窗体级整型数组 （ B）改变任何一个滚动条 滚动框的位置，窗体的背景色将立刻随之改变 （ C） 3个滚动条 Change事件过程中只设置了一个 color数组元素的值，调用 fill过程失败 （ D） fill函数定义中的形式参数是数组型参数 35 命令按钮 Command1的单击事件过程如下： Private Sub Commandl_Click() x=10 Print f(X) End Sub Private Function f(Y As Integer) f=y*y End Function 运行上述程序

20、，如下叙述中正确的是 ( )。 （ A）程序运行出错， X变量的类型与函数参数的类型不符 （ B）在窗体上显示 100 （ C）函数定义错，函数名 f不能又作为变量名 （ D）在窗体上显示 10 36 窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程： Private Sub Textl_KeyUp(KeyCode As Integer， Shift As Integer) Print Text1 Text； End Sub 运行程序，并在文 本框中输入 “123”，则在窗体上的输出结果为 ( )。 （ A） 123 （ B） 112 （ C） 12123 （ D） 112

21、123 37 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下： Private Sub Commandl_Click() Dim x， y， z x=InputBox(”请输入第 1个整数 ”) y=InputBox(“请输入第 2个整数 “) Do Until x=y If X Y Then X=XY Else y=yx Loop Print x End Sub 运行程序，单击命令按钮，并输入 2个整数 169和 39，则在窗体上显示的内容为 ( )。 （ A） 11 （ B） 13 （ C） 23 （ D） 39 38 窗体上有 1个名称为 Command1的命令按钮，事件

22、过程及函数过程如下： Private Sub Commandl_Click() Dim in As String In=InputBox(”请输入字符串 ”) Print pick_str(in) End Sub Private Function pick_Six(s As String)As String temp=” i=1 sLen=Len(s) Do While i =sLen 2 temp=temp+Mid(s， i， 1)+Mid(s， sLeni+1， 1) i=i+1 Loop pick_str=temp End Function 运行程序，单击命令按钮，并在输入对话框中输入

23、“basic”，则在窗 体上显示的内容为 ( )。 （ A） bcai （ B） cbia （ C） bcais （ D） cbias 39 窗体上有 1个名称为 Commandl的命令按钮，事件过程及函数过程如下： Private Sub Commandl_Click() Dim P As Integer P=m(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer For i=1 To n s=s+1 Next m=S End Function 运行程序，第 2

24、次单击命令按钮 Commandl时的输出结果为 ( )。 （ A） 6 （ B） 10 （ C） 16 （ D） 28 40 在窗体上画一个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Commandl_Click() x=1 s=0 For i=1 To 5 x=x iS=S+X Next Print sEnd Sub该事件过程的功能是计算 ( )。二、基本操作题 41 在名称为 Forml的窗体上添加一个名称为 Label1、标题为 “滚动条控件 ”的标签，一个名称为 HScroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最大值为 1

25、00，最小值为 1，滚动条的高度为 300，宽度为 3000，滚动块的初始位置为 20。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。42 在名称为 Forml的窗体上添加一个名称为 Shnpe1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。添加一个名称为 Timer1的计时器，在属性窗口中将其设置为禁用，时间间隔为 0 5秒，窗体如图所示。请编写窗体的 Load事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔0 5秒形状控件向下移动 100。 注意：要求程序中不得使用

26、变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 43 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。其功能是随机产生 20个 0 1000的整数，放入一个数组中，然后输出这 20个整数中小于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Command1，标题为“输出小于 500的整数之和 ”)，即可求出这些整数的和，并显示在窗体上 (如图所示 )。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为

27、正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 44 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个文本框和一个命令按钮。当程序运行后，单击命令按钮，即可计算出0 100范围内所有偶数的平方和，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。 四、综合应用题 45 在

28、窗体上画 1个文本框，名称为 Text1(multiline属性为 True)，然后再添加三个命 令按钮，名称分别为 Command1、 Command2和 Command3，标题分别为 “读数 ”、 “统计 ”和 “存盘 ”，如图所示。程序的功能是：单击 “读数 ”按钮，则把考生文件夹下的 in5 txt文件中的所有英文字符放入 Textl(MutiLine属性为 True)中；单击“统计 ”按钮，找出并统计英文字母 i， j， k， l， m， n(不区分大小写 )各自出现的次数；单击 “存盘 ”按钮，将字母 i到 n出现次数的统计结果依次存到考生目录下的顺序文件 out5 txt中。注意

29、：存盘时必须存放在考生文件夹下，工程文件名保存为sjt5 vbp，窗体文件名保存为 sjt5 frm。国家二级（ VB）机试模拟试卷 135答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 在实际应用中，队列的顺序存储结构一般采用循环队列的形式。 2 【正确答案】 C 【试题解析】 一般来说，在线性表的链式存储结构中，各数据结点的存储序号是不连续的，并且各结点在存储空间中的位置关系与逻辑关系也不一致。线性链表中数据的插入和删除都不需要移动表中的元素，只需改变结点的指针域即可。 3 【正确答案】 A 【试题解析】 根据二叉树的性质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为

30、2的结点多一个，所以本题中度为 2的结点是 5一 1=4个，所以度为 1的结点的个数是 2554=16个。 4 【正确答案】 B 【试题解析】 数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 5 【正确答案】 A 【试题解析 】 实体完整性约束要求关系的主键中属性值不能为空值，所以选择A。 6 【正确答案】 C 【试题解析】 如果 S=T R，则 S称为 T除以 R的商。在

31、除运算中 S的域由 T中那些不出现在 R中的域所组成，对于 S中的任一有序组，由它与关系 R中每个有序组所构成的有序组均出现在关系 T中。所以本题选择 C。 7 【正确答案】 A 【试题解析】 软件危机主要表现在：软件需求的增长得不到满足；软件开发成本和进度无法控制；软件质量难以保证；软件不可维护或维护程度非常低；软件的成本不断提高；软件开发生产率的提高赶不上硬 件的发展和应用需求的增长。所以选择 A。 8 【正确答案】 D 【试题解析】 需求分析阶段的工作有：需求获取；需求分析；编写需求规格说明书；需求评审，所以选择 D。 9 【正确答案】 B 【试题解析】 黑盒测试是对软件已经实现的功能是

32、否满足需求进行测试和验证，黑盒测试完全不考虑程序内部的逻辑结构和内部特性，只根据程序的需求和功能规格说明，检查程序的功能是否符合它的功能说明，所以本题选择 B。 10 【正确答案】 C 【试题解析】 系统结构图是对软件系统结构的总体设计的图形显示。在需求 分析阶段，已经从系统开发的角度出发，把系统按功能逐次分割成层次结构，是在概要设计阶段用到的。 PAD图是在详细设计阶段用到的。程序流程图是对程序流程的图形表示，在详细设计过程中用到。数据流图是结构化分析方法中使用的工具，它以图形的方式描绘数据在系统中流动和处理的过程，由于它只反映系统必须完成的逻辑功能，所以它是一种功能模型，是在可行性研究阶段

33、用到的而非软件设计时用到，所以选择 C。 11 【正确答案】 C 【试题解析】 根据 VB中变量名的命名规则，变量 x一 2中有一减号，不合法；变量 12abe是以数字开 头，不合法；变量 print是 VB的保留字，不能作变量名，也不合法。 sum_total是符合命名规则，是合法的。故选 C。 12 【正确答案】 D 【试题解析】 Print语句表达式中按运算符的优先级从高到低： Mod +顺序计算。计算过程： Sgn(6+15Med 623 6) 6+15=Sgn(6+35)&21=Sgn(4)21=1 21=”121”。故选项 D正确。说明：字符串连接符 &两边的操作数不管是字符型还是

34、数值型，系统首先要将其转换为字符型，然后进行连接。 13 【正确答案】 C 【试题解析】 续行符 “一 ”与前面的内容至少要保留一个空格，并且续行符只能出现在行尾，后面不能有注释。故选项 C错误。 14 【正确答案】 D 【试题解析】 用 Hide方法只是隐藏窗体，不卸载窗体，所以不会清除内存中的窗体。故选项 D错误。 15 【正确答案】 B 【试题解析】 随机文件中记录的长度是固定的、相等的，不是随机的。故选项 B错误。 16 【正确答案】 D 【试题解析】 KeyCode是 KeyDown、 KeyUp键盘事件的参数，不是键盘事件，它返回的是按键相应的 ASCII字符代码。故选项 D错误。

35、 17 【正确答案】 A 【试题解析】 本题是定义了一个一维数组，下标是一 2to4，所以数组元素的个数是 4一 (一 2)+1=7，故选 A。 18 【正确答案】 C 【试题解析】 窗体的 Visible属性是设置窗体可见不可见； Enabled属性是设置可用不可用； Caption属性是用来设置窗体标题栏上显示的内容； ControlBox属性是设置窗体左上角是否显示控制框，当属性值为 True时，显示控制框，否则False时，不显示。故选项 C正确。 19 【正确答案 】 D 【试题解析】 题意是在文本框中输入信息，会影响标签上显示的内容，所以触发的是文本框 Text1的事件，要在文本框

36、 Text1的事件过程中写代码，因此排除 A、B选项。又因为标签上显示的内容会随着文本框中输入信息变化，因此要在 Text1的 Change事件过程写代码。故 D选项正确。 20 【正确答案】 A 【试题解析】 Move方法是窗体的移动方法，其中 200， 200是窗体左上角的坐标(X， Y)。坐标系是以屏幕左上角为原点，向右为 X轴正方向，向下为 Y轴正方向。所以本题中窗体左上角移动到距屏幕左 边界、上边界各 200的位置。故 A选项正确。 21 【正确答案】 D 【试题解析】 计时器控件的 Interval属性值以毫秒为单位，设置为 1000则计时器事件每 1秒钟发生一次。 22 【正确答

37、案】 B 【试题解析】 组合框的 Removehem方法与列表框删除指定项目的方法相同，格式为： Removeltem(索引值 )，而列表中的项目索引值从 0开始，因此最后一项的索引值为 ListCount一 1。 23 【正确答案】 D 【试题解析】 Fonthalic用来设置文字是否为斜体， FontUnderLine用来设置文字是否加下划线， FontSize用来设置文字的字号， FontBold用来设置文字是否为粗体。 24 【正确答案】 C 【试题解析】 改变滚动框的位置后会触发 Change事件，拖动滚动框、单击滚动箭头、单击滚动箭头与滚动框之间的滚动条都会改变滚动框的位置。 25

38、 【正确答案】 B 【试题解析】 确定图片框在窗体上位置的属性是 Left和 Top，它们使用的是相对坐标 ,以窗体为参考点。 26 【正确答案】 C 【试题解析】 单选按钮没有 Min属性，滚动条控件 的属性中有 Min属性。 27 【正确答案】 D 【试题解析】 可以通过 Print方法在图片框中输出文件，图片框中的图形可以在程序运行过程中通过载人空文件的方法清除，图片框控件可以作为父控件，即可以放置其他控件， Stretch属性用来自动调整图片框中图形内容的大小。 28 【正确答案】 D 【试题解析】 清除列表框中的指定内容要使用 Removehem方法，格式为：Removeltem(索

39、引值 )，只要指定要清除项目的索引值就可以清除指定项目。如果要清除列表框中的全部内容可以使用 Clear方法 。 29 【正确答案】 C 【试题解析】 Ptint方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。其一般格式为： 对象名称 Print表达式表 ， l； 其中对象名称可以是窗体 (Fonn)、图片框 (PietureBox)或打印机 (Printer)，也可以是立即窗口 (Debug)。如果省略对象名称，则在当前窗体上输出。 30 【正确答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先， 在顺序文件中打开文

40、件写入数据的打开方式为： Open文件名 For Output As#文件号。因此 B、 C选项排除，只看 A、 D选项。 写入顺序文件 Print#语句格式为： Print#文件号，变量名，变量名 ， Write语句的的格式与 Print语句一样： Write#文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名成员名，Books类型变量 B成员 Name和 TelNum赋值和引用应该是 B Name、B TelNum，因此 A选项正确。 31 【正确答案】 B 【试题解析】 VB中 “ ”是浮点除法运算符， “ ”，是整数除法运算符，程序中的条

41、件表达式 a(i， j) 7=a(i， j)7成立时说明这个数能够被 7整除，程序即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i=1时为 (3， 4， 5， 6)， i=2时为 (5， 6， 7， 8)， i=3时为 (7， 8， 9， 10)， i=4时为 (9， 10， 11,12)， i=5时为(11， 12， 13， 14)，其中能够被 7整除的数有 7、 7、 14共 3个。因此答案为 B。 32 【正确答案】 B 【试题解析】 程序没有错误。数组 变量定义时可以不用声明上下界。 List控件列表项的索引从 0开始。 Array函数只适用于一组数组，只能对一维数组进行

42、初始化，不能对二维数组或多维数组进行初始化。因此叙述正确的是 B选项。 33 【正确答案】 B 【试题解析】 程序中 Ucase函数将输入的字母转换为大写，然后通过 Select多分支控制语句选择输出不同信息，当输入字母在 “A”到 “C”之间时，显示 “考核通过 !”，输入的是 “D”时显示 “考核不通过 !”，如果输人的是 “A”到 “D”之外的其他字符则显示 “输入数据不合法 !”。程序中输入字母 “B”，因 此会显示 “考核通过 !”。 34 【正确答案】 C 【试题解析】 当用 Dim语句定义数组时，该语句把数值数组中的全部元素都初始化为 0，而把字符串数组中的全部元素都初始化为空串

43、。因此 color数组中的元素初始值都为 0，没有空值，过程调用不会失败。 C选项叙述错。 35 【正确答案】 A 【试题解析】 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为Variant类型，由于过程中参数类型为 Integer，所以程序运行时会提示 “ByRef参数类型不符 ”错误。 A选项正确。只在按钮事件中加上 Dim x as Integer就可以解决问题，或者 f过程中的 y as integer改为 ByVal y as integer也可以解决。 36 【正确答案】 D 【试题解析】 KeyUp事件是在松开按钮时发生。按下 1松开时，文本框中显示1，执行 Key

44、Up事件过程，在窗体上显示文本框内容，即 1。按下 2松开时，文本框中显示 12，执行 KeyUp事件过程，在窗体上 1后面接着现在显示文本框的内容，即窗体上显示为 112。按下 3松开时，文本框中显示 123。执行 KeyUp事件过程，在窗体上 112后面接着显示文本 框的内容，即在窗体上显示为 112123。 37 【正确答案】 B 【试题解析】 程序中 Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入 169和 39，则x=16939=130， 130 y即 130 39，因此 x=130一 39=91，如此循环 x=91一39=

45、5239=13，此时 13 39为假，执行 y=yx=3913=26，循环 y=2613=13，此时 x、 y都为 13，循环结束，因此窗体上显示为 13。 38 【正确答案】 A 【试 题解析】 过程 pick_str的功能是对输入的字符串的字符重新组合，通过 Do循环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长度整除 2的值。当输入字符串是 “basic”时，字符串长度为 5，循环次数为 52=2次，因此取出的字符依次是 “b”， “c”， “a”， “i”。即 “beai”，因此答案为 A。 39 【正确答案】 D 【试题解析】 在过程 m中 s被定义为静态变量，

46、因此它的值只在第一次调用过程时初始化，以后再调用都不再初始化，而是保留之前的值。 m过程的功能是根据参数值累加，因此第 1次单击时， m(1)+m(2)+m(3)=1+3+6=10。此时变量 s的值，即过程 m的值为 6，第 2次单击时， m(1)+m(2)+m(3)=7+9+12=28。因此答案为 D。 40 【正确答案】 C 【试题解析】 程序中 5次循环 x的值分别为 1 1， 1 1 2=1 (1*2)， 1 1 2 3=1 (1*2*3)， 1 1 2 3 4=1 (1*2*3*4)， 1 1 2 3 4 5=1(1*2*3*4*5)，可以看出 x值就是 1 i!，因此过程的功能就是

47、计算 1+1 2!+13!+1 4!+1 5!。因此 选项 C正确。 二、基本操作题 41 【正确答案】 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 根据题意，首先通过滚动条的 Name、 Max、 Min、 Value、Width、 Hei咖属性设置滚动条的属性值，然后通过标签的 Name、 Caption属性设置标签的名称和标题。 42 【正确答案】 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 2。 步骤 2：编写程序代码。 Private Sub Form_Load()

48、Timer1 Enabled=True End Sub Private Sub Timerl_Timer() Shape1 Top=Shape1 Top+100 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 在 Form Load事件过程中， Timerl的 Enabled属性设置为 True，计时器变为可用，在 Timerl Timer计时器的事件过程，通过形状控件的 Top值每隔 0 5秒加 100。实现每隔 0 5秒形状控件向下移动 100。 三、简单应用 题 43 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供

49、代码 Option Base 1 Private Sub Commandl_Click() Dim arrN(20)A8 Integer Dim Sum As Integer Randomize For i=1 To 20 arrN(i)=Int(Rnd*?) Next i Sum=? For i=1 To 20 If? Then Sum=? End If Next i Print Sum End Sub 程序结束 第 1个 ?处填入： 1000 第 2个 ?处填入： 0 第 3个 ?处填入： arrN(i) 500 第 4个 ?处填人： Sum+arrN(i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 本题要产生随机整数，须使用 Rnd函数和 Int函数。 Int函数是将参数转换成整数。 Rnd函数返 回小于 1，但大于或等于 0的值，为了生成某个范围内的随机整数，可使用