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

1、国家二级（ VB）机试模拟试卷 136及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的 （ B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构 （ C）线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构 （ D）线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性 2 下列叙述中正确的是 ( )。 （ A）栈是一种先进先出的线性表 （ B）队列是一种后进先出的线性表 （ C）栈与队列都是 非线性结构 （ D）以上三种说法都不对 3 软件测试的目的是 ( )。 （ A）评估软件可靠性 （

2、B）发现并改正程序中的错误 （ C）改正程序中的错误 （ D）发现程序中的错误 4 在软件开发中，需求分析阶段产生的主要文档是 ( )。 （ A）软件集成测试计划 （ B）软件详细设计说明书 （ C）用户手册 （ D）软件需求规格说明书 5 软件生命周期是指 ( )。 （ A）软件产品从提出、实现、使用维护到停止使用退役的过程 （ B）软件从需求分析、设计、实现到测试完成的过程 （ C）软 件的开发过程 （ D）软件的运行维护过程 6 面向对象方法中，继承是指 ( )。 （ A）一组对象所具有的相似性质 （ B）一个对象具有另一个对象的性质 （ C）各对象之间的共同性质 （ D）类之间共享属性

3、和操作的机制 7 层次型、网状型和关系型数据库划分原则是 ( )。 （ A）记录长度 （ B）文件的大小 （ C）联系的复杂程度 （ D）数据之间的联系方式 8 一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是 ( )。 （ A）一 对一 （ B）一对多 （ C）多对多 （ D）多对一 9 数据库设计中反映用户对数据要求的模式是 ( )。 （ A）内模式 （ B）概念模式 （ C）外模式 （ D）设计模式 10 有三个关系 R、 S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）自然连接 （ B）差 （ C）交 （ D）

4、并 11 以下叙述中正确的是 ( )。 （ A）在属性窗口只能设置窗体的属性 （ B）在属性窗口只能设置控件的属性 （ C）在属性窗口可以设置窗体和控件的属性 （ D）在属性窗口可以设置任何对 象的属性 12 下列打开 “代码窗口 ”的操作中错误的是 ( )。 （ A）按 F4键 （ B）单击 “工程资源管理器 ”窗口中的 “查看代码 ”按钮 （ C）双击已建立好的控件 （ D）执行 “视图 ”菜单中的 “代码窗口 ”命令 13 以下叙述中错误的是 ( )。 （ A） Visual Basic是事件驱动型可视化编程工具 （ B） Visual Basic应用程序不具有明显的开始和结束语句 （

5、C） Visual Basic工具箱中的所有控件都具有宽度 (Width)和高度 (Height)属性 （ D） Visual Basic中控件的某些属性只能在运行时设置 14 设 a=2， b=3， c=4， d=5，下列表达式的值是 ( )。 a b And c =d Or 2*a c （ A） True （ B） False （ C）一 1 （ D） 1 15 在标准模块中用 Public关键字定义的变量，其作用域为 ( )。 （ A）本模块所有过程 （ B）整个工程 （ C）所有窗体 （ D）所有标准模块 16 假定有如下语句： answer$=MsgBox(”Stringl”， “S

6、tring2”， “String3”， 2) 执行该语句后，将显示一个信息框，单击其中的 “确定 ”按钮，则 answer$的值为( )。 （ A） String1 （ B） String2 （ C） String3 （ D） 1 17 设 a=10， b=5， c=1，执行语句 Print a b c后，窗体上显示的是 ( )。 （ A） True （ B） False （ C） 1 （ D）出错 18 为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为 ( )。 （ A） Value （ B） ByVal （ C） ByRef （ D） Reference 19 以下说法中正确

7、的是 ( )。 （ A）事件过程也是过程，只能由其他过程调用 （ B）事件过程的过程名是由程序设计者命名的 （ C）事件过程通常放在标准模块中 （ D）事件过程是用来处理由用户操作或系统激发的事件的代码 20 设有语句： Open”c： Test Dat”For Output As#1 则以下叙述中错误的是 ( )。 （ A）该语句打开 C盘根目录下的一个文件 Test Dat，如果该文件不存在则出错 （ B）该语句打开 C盘根目录下一个名为 Test Dat的文件，如果该文件不存在则创建该文件 （ C）该语句打开文件的文件号为 1 （ D）执行该语句后，就可以通过 Print#句向文件 Te

8、st Dat中写入信息 21 在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1 Text=” Text2 Text=” Text1.SetFocus End Sub Private Sub Text1_Change() Text2 Text=Mid(Text1 Text， 6) End Sub 程序运行后，如果在文本框 Text1中输入 ChinaBeijing，则在文本框 Text2中显示的内容是 ( )。 （ A） ChinaBeijing （ B） China （ C） Beijing

9、（ D） ChinaB 22 i在窗体上画一个水平滚动条，其属性值满足 Min Max。程序运行后，如果单击滚动条右端的箭头，则 VMue属性值 ( )。 （ A）增加一个 SmallChange量 （ B）减少一个 SmallChange量 （ C）增加一个 LargeChange量 （ D）减少一个 LargeChange量 23 在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为 Combol，Command1和 Text1，然后编写如下事件过程： Private Sub Form_Load() Combol AddItem”AAAAA” Combol AddItem”BBBB

10、B” Combol Addltem”CCCCC” Combol Addhem”DDDDD” Combol AddItem”EEEEE” End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目 “CCCCC”。为了实现该操作，在命令按钮的 Click事件过程中应使用的语句为 ( )。 （ A） Text1 Text=Combol List(2) （ B） Text1 Text=Combol Text （ C） Text1 Text=Combol List(3) （ D） Text1 Text=Combol ListIndex 24 为了使文本 框只具有垂直滚动条，应先把 Mu

11、ltiLine属性设置为 True，然后再把 ScrollBars属性设置为 ( ). （ A） 0 （ B） 1 （ C） 2 （ D） 3 25 能够用于标识对象名称的属性是 ( )。 （ A） Name （ B） Caption （ C） Value （ D） Text 26 关于水平滚动条，如下叙述中错误的是 ( )。 （ A）当滚动框的位置改变时，触发 Change事件 （ B）当拖动滚动条中的滚动框时，触发 Scroll事件 （ C） LargeChange属性是滚动条的 最大值 （ D） Value是滚动条中滚动框的当前值 27 对于列表框控件 List1，能够表示当前被选中列表

12、项内容的是 ( )。 （ A） List1 Text （ B） List1 Index （ C） List1 ListIndex （ D） List1 List 28 当文本框中的内容发生改变时所触发的事件是 ( )。 （ A） KeyUp （ B） Change （ C） LostFocus （ D） GotFocus。 29 定时器的 Interval属性的值是一个整数，它表示的是 ( )。 （ A）毫秒数 （ B）秒数 （ C）分钟数 （ D）小时数 30 阅读程序： Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next

13、j Print a End Sub 程序运行后，单击窗体，输出结果是 ( )。 （ A） 105 （ B） 1 （ C） 120 （ D） 15 31 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1， 2， 3， 4) j=1 For i=4 To 1 Step一 1 8=8+a(i)*j j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是 ( )。 （ A） 4321 （ B） 1234 （ C） 34

14、（ D） 12 32 在窗体上画一个命令按钮，名称为 Command1，然 后编写如下代码： Option Base 0 Private Sub Commandl_Click() Dim A1(4)As Integer， A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(“请输入一个整数 ”) A2(3一 k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入 2、 4、 6，则输出结果为( )。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 33 在窗体上画两个标签和一个

15、命令按钮，其名称分别为 Label1、 Label2和Command1，然后编写如下程序： Private Sub fune(L As Label) L Caption=”1234” End Sub Private Sub Form_Load() Iahel1 Caption=“ABCDE” Label2 Caption=10 End Sub Private Sub Commandl_Click() a=val(Label2 Caption) Call fune(Label1) Label2 Caption=a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为 ( )。

16、 （ A） ABCD和 10 （ B） 1234和 100 （ C） ABCD和 100 （ D） 1234和 10 34 在窗体上画一个命令按钮 (名称为 Command1)，并编写如下代码： Function Fun1(ByVal a As Integer， b As Integer)As Integer Dim t As Integer t=ab b=t+a Funl=t+b End Function Private Sub Command1_Click() Dim x As Integer x=10 Print Funl(Funl(X， (Funl(x， x一 1)， x1) End

17、Sub 程序运行后，单击命令按钮，输出结果是 ( )。 （ A） 10 （ B） 0 （ C） 11 （ D） 21 35 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr=“” strL=Len(xStr) i=strL 2 Do While i =strL tStr=tStr&Mid(xStr， i+1， 1) i=i+1 Loop Fun=tStr&tStr End Function 在窗体上画一个名称为 Text1的文本框和一个名称为 Comma

18、nd1的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() Dim S1 As String S1=”ABCDEF” Text1 Text=LCase(Fun(S1) End Sub 程序运行后，单击命令按钮，文本框中显示的是 ( )。 （ A） ABCDEF （ B） abcdef （ C） defdef （ D） defabc 36 在窗体上画一个命令按钮和一个文本框 (名称分别为 Command1和 Text1)，并把窗体的 KeyPreview属性设置为 True，然后编写如下代码： Dim SaveAll As String Private

19、Sub Form_Load() Show Text1 Text=” Text1 SetFocus End Sub Private Sub Commandl Click() Text1 Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入： VB，再单击命令按钮，则文本框中显示的内容为 ( )。 （ A） vbVB （ B）不显示任何信息 （ C） VB （ D）出错 37 设有以下

20、程序： Private Sub Form_Click() x=50 For i=1 To 4 Y=InputBox(”请输入一个整数 ”) Y=Val(Y) If Y Mod 5=0 Then a=a+Y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、 24、 35、 46，输出结果为 ( )。 （ A） 100 （ B） 50 （ C） 120 （ D） 70 38 设在工程文件中有一个 标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum A

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

22、（ B） Private Sub Command1_Click() Dim B As Books Open”Person txt”For Input As#1 B Name=InputBox(”输入姓名 ”) B TelNum=InputBox(”输入电话号码 ”) Print#1 B Nanle， B TelNam Close#1 End Sub （ C） Private Sub Commandl_Click() Dim B As Books Open”Person txt”For Output As#1 B Name=InputBox(”输入姓名 ”) B TelNum=InputBox(

23、”输入电话号码 ”) Write#1,B Close#1 End Sub （ D） Private Sub Commandl_Click() Open”Person txt”For Input As#1 Name=InputBox(”输入姓名 ”) TelNum=InputBox(”输入电话号码 ”) Print#1， Name， TelNum Close#1 End Sub 39 有如下过程代码： Sub vat_dim( ) Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa； numb

24、 End Sub 连续 3次调用 var_dim过程，第 3次调用时的输出是 ( )。 （ A） 2 1 （ B） 2 3 （ C） 6 1 （ D） 6 3 40 在窗体上画 1个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim a(3， 3) For m=1 To 3 For n=1 To 3 If n=m Or n=4一 m Then a(m， n)=m+n Else a(m， n)=0 End If Print a(m， n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为 ( )。

25、（ A） 2 0 0 0 4 0 0 0 6 （ B） 2 0 4 0 4 0 4 0 6 （ C） 2 3 0 3 4 0 0 0 6 （ D） 2 0 0 0 4 5 0 5 6 二、基本操作 题 41 在名称为 Form1的窗体上添加三个单选按钮，其名称分别为 Option1、 Option2和 Optiorr3(如图 1所示 )，然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能： 窗体标题为 “设置单选按钮属性 ”； 三个单选按钮的标题分别为 “按钮1”、 “按钮 2”和 “按钮 3”； 初始状态为，第一个单选按钮为 “选中 ”； 程序运行后，第二个单选按钮 “不可用 ”； 程序

26、运行后，第三个单选按钮不可见。 程序的运行情况如图 2所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名 为 sjt1 vbp，窗体文件名为 sjt1 frm。 42 在名称为 Form1的窗体上画一个垂直滚动条和一个命令按钮，其名称分别为VScroll1和 Command1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0 LargeChange=50 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的刻度值。 程序的运行情况如图所示。 要求：不得使用任何变量。 注意：

27、存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 43 在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有两个文件框，名称分别为 Text1、 Text2；还有一个命令按钮，名称为 C1，标题为 “确定 ”；请添加两个单选按钮，名称分别为 Op1、 Op2，标题分别为 “男生 ”、 “女生 ”，再添加两个复选框，名称分别为 Ch1、 Ch2，标题分别为 “体育 ”、 “音乐 ”。请编写适当的事件过程，使得程序在运行时，单击 “确定 ”按钮后实现下面的操作： 根据选中的单选按钮，在 Text1中显示 “我是男生 ”或

28、“我是 女生 ”。 根据选中的复选框，在 Text2中显示 “我的爱好是音乐 ”或 “我的爱好是体育 ”或 “我的爱好是体育音乐 ”。如图所示。 注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。 44 在考生文件夹下有一个工程文件 sjt4 vbp。窗体上有一个名称为 Timer1的计时器，一个名称为 List1的列表框和一个名称为 Label1的标签，如图所示。请通过属性窗口向列表框添加四个项目，分别是： “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项

29、”。程序运行后，将计时器的时间间隔设置为 1秒钟，即每一秒钟从列表框中取出一个项目显示在 Label1的标签中，首先显示 “第一项 ”，然后，依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。 在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加 List1中的项目，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改工程中已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 四、综合应用题 45 考生文件夹下有工程文件 sjt5 vbp和数据文件 in5 txt。 in5 txt中有多条记录，每条记录占一行，含 4个数据项，数据项的含义依次是：

30、姓名、数学成绩、语文成绩、英语成绩。窗体上按钮 “读取数据 ”的功能是把 in5 txt中的所有记录读到数组 a中 (每个数组元素中有一条记录 )；按钮 “排序 “的功能是按总分从大到小排序，结果仍放在数组 a中；按钮 “保存 ”的功能是存盘，其代码已经给出，不能修改。请将事件过程中的注释符去掉，把 ?改为正确的内容，并编写 “排序 ”按钮的事件过程。 注意：考生不得修改窗体文件中已经存 在的控件和程序，必须运行程序，并依次按下 “读人数据 ”、 “排序 ”、 “保存 ”按钮，否则无成绩，最后将程序按原文件名存盘。 国家二级（ VB）机试模拟试卷 136答案与解析 一、选择题 1 【正确答案】

31、 B 【试题解析】 线性链式存储结构中每个结点都由数据域与指针域两部分组成，增加了存储空间，所以一般要多于顺序存储结构。 2 【正确答案】 D 【试题解析】 栈是一种先进后出的线性表，队列是一种先进先出的线性表，栈与队列都是线性结构。 3 【正确答案】 D 【试题解析】 软件测试是为了 发现错误而执行程序的过程，测试要以查找错误为中心，而不是为了演示软件的正确功能。不是为了评估软件或改正错误。 4 【正确答案】 D 【试题解析】 需求分析阶段的工作可以概括为：需求获取、需求分析、编写需求规格说明书、需求评审四个方面。所以选择 D。 5 【正确答案】 A 【试题解析】 通常，将软件产品从提出、实

32、现、使用维护到停止使用退役的过程称为软件生命周期。也就是说，软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。 6 【正确答案】 D 【试题解 析】 继承是面向对象的方法的一个主要特征，是使用已有的类的定义作为基础建立新类的定义技术。广义的说，继承是指能够直接获得已有的性质和特征，而不必重复定义它们，所以说继承是指类之间共享属性和操作的机制。 7 【正确答案】 D 【试题解析】 层次模型的基本结构是树形结构，网状模型是一个不加任何条件限制的无向图，关系模型采用二维表来表示，所以三种数据库的划分原则是数据之间的联系方式。 8 【正确答案】 C 【试题解析】 因为一个

33、人可以操作多个计算机，而一台计算机又可以被多个人使用，所以两个实体 之间是多对多的关系。 9 【正确答案】 C 【试题解析】 数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述，所以选择 c。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法。 10 【正确答案】 B 【试题解析】 关系 T中的元组是 R关系中有而 s关系中没有的元组的集合，所以进行的是差的运算。 11 【正确答案】 C 【试题解析】 在属性窗口中只能设置窗体和各种控件的属性

34、，故 C选项正确。 12 【正确答案】 A 【试题解析】 按 F4键打开的是 “属性窗口 ”，故 A选项错误。 13 【正确答案】 C 【试题解析】 VB工具箱中不是所有的控件都具有宽度和高度属性，比如定时器控件 Timer、直线控件 Line就没有。故 C选项错误。 14 【正确答案】 B 【试题解析】 根据运算符的优先级顺序，先计算算术运算符，结果是 2 3 And 4 =5 Or 4 4；再计算关系运算符，结果为 False And True or False； And优先级高于 Or优先级，先计算 And，再计算 Or，最后结果是 False。故 B选项正确。 15 【正确答案】 B

35、【试题解析】 在标准模块中用 Public定义的变量是公用的、全局变量，在整个工程中的所有窗口、模块中都能引用，作用域是整个工程。故 B选项正确。 16 【正确答案】 D 【试题解析】 MsgBox函数的作用：在对话框中显示消息，等待用户单击按钮，并返回一整数，告诉用户单击哪一个按钮。 Msgbox函数的格式是： MsgBox(提示信息 ，按钮样式 ，标题信 息 ，帮助文件，帮助上下文编号 ) 本题 MsgBox函数语句运行后，信息对话框中提示信息是 “String1”，标题栏信息是 “String2”，对话框出现一个 “确定 ”按钮，单击 “确定 ”按钮返回 “确定 ”按钮对应的一个整数值

36、1，并把 1赋给 answer变量。故 D选项正确。 17 【正确答案】 B 【试题解析】 本题中 Print语句中的表达式只有 “ ”运算符，相同优先级，左结合。先计算 a b，即 10 5，值为 True， (即一 1)，再计算一 1 1，结果为False。故 B选项正确。 18 【正确答 案】 B 【试题解析】 Value是控件的属性名。用 ByVal关键字声明形参表示该参数按值传递。 ByRef是默认的参数类型，表示该参数按地址传递。没有。 Refeience关键字。故 B选项正确。 19 【正确答案】 D 【试题解析】 事件过程也是过程，其他过程或系统都可以调用它。故 A选项错误。

37、事件过程的过程名是由系统命名的。故 B逸项错误。 通常事件过程放在窗体模块中。故 c选项错误。 事件过程是用来处理由用户操作或系统激发的事件的代码。只有当用户或系统触发事件后，才执行 相应的事件过程。故 D选项正确。 20 【正确答案】 A 【试题解析】 本题中是用 Open语句打开一个顺序文件 Test Dat，并指定一个文件号 1。故 C选项正确。 如果 Test Dat文件不存在，则系统自动创建该文件。故 B选项正确， A选项错误。 用 For Output模式打开文件，可通过 Print#句向文件写入信息。故 D选项正确。 21 【正确答案】 C 【试题解析】 程序运行后，在文本框 T

38、ext1中输入字符后，触发它的 Change事件，通过中部截取函数 Mid把文本框 Text1中的内容从第 6个字符 B开始截取后面的字符，得到 “Beijing”字符串，然后把截取的字符串在 Text2中显示出来。故C选项正确。 22 【正确答案】 A 【试题解析】 当水平滚动条的属性值 Min Max时，如果单击滚动条右端或左端的箭头， Value属性值会增加或减少 SmallChange量；如果单击滚动块和右端箭头之间空白的地方时， Value属性值会增加 LargeChange量，反之，减少LargeChange量。本题单击的是滚动条右端的箭头，故 Vlane属性值应该是增加一个 Sm

39、allChange量。故选 A。 23 【正确答案】 A 【试题解析】 List属性可以返回组合框中各选项的内容。用下标区分各选项，第1个选项下标为 0，依次类推。 “CCCCC”为组合框中第 3个选项，可以用 Combol List(2)返回选项内容。故 A选项正确， C选项错误。 Text属性返回的是组合框中选中项目的内容； ListIndex属性返回的是选中项目的索引值，即下标。故 B、 D选项错误。 24 【正确答案】 C 【试题解析】 文本框的 ScrollBars属性值： 0表示无滚动条， 1表示只有 水平滚动条， 2表示只有垂直滚动条， 3表示水平和垂直滚动条都有。本题文本框只具

40、有垂直滚动条，则 ScrollBar属性值就设置为 2，故 C选项正确。 25 【正确答案】 A 【试题解析】 每个对象都有 Name属性，用于识别不同的对象。故选 A。 26 【正确答案】 C 【试题解析】 LargeChange属性值是单击滚动块和左右两端箭头之间空白的地方时， Value增加或减少的量， Small属性值才是滚动条的最大值。故 C选项错误。 27 【正确答案】 A 【试题解析】 Text属性可返回 当前被选中列表项的内容，故选 A。 Index属性是当有列表框控件数组时，区分各列表框用的； ListIndex属性返回的是被选中的列表项的索引值； List属性设置或返回各列

41、表项的内容。 28 【正确答案】 B 【试题解析】 文本框中内容有变化时，触发 Change事件。故 B选项正确。当在文本框中输入数据，松开键盘时触发它的 KeyUp事件；文本框失去焦点触发I,ostFocus事件；获得焦点，触发 GotFocus事件。 29 【正确答案】 A 【试题解析】 Interval的属性值是以毫秒计，所 以是毫秒数。故选 A。 30 【正确答案】 D 【试题解析】 Mod是求模运算符，即求余数，程序中 jMod 3的余数可能值为0， 1， 2， 1到 15的整数中， 3、 6、 9、 12、 15这 5个数除 3的余数为 0， 1、 4、7、 10、 13这 5个数

42、除 3余数为 1， 2、 5、 8、 11、 14这 5个数除 3余数为 2。因此a的值为 1*5+2*5=15，即选择 D正确。 31 【正确答案】 B 【试题解析】 Array函数用来为数组元素赋值，即把一个数据集读入某个数组。其格式为：数组变量名 =Array(数组元素值 )。 Dim a语句没有变量类型名，则 a默认为 Variant类型，这里它作为数组变量使用。现在已知数组 a中元素的值依次为1、 2、 3、 4，则 For循环中各变量值变化如下： i=4时， s=s+a(4)*j=0+4*1=4， j=1*10=10 i=3时， s=s+a(3)*j=4+3*10=4+30=34，

43、 j=10*10=100 i=2时， s=s+a(2)*j=34+2*100=34+200=234， j=100*10=1000 i=1时， s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。 s的值为 1234。 32 【正确答案】 C 【试题解析】 程序运行过程如下： k=0，输入 2， A1(k+1)=A1(0+1)=Al(1)=2， A2(3一 k)=A2(3一 0)=A2(3)=2 k=1，输入 4， A1(k+1)=A1(1+1)=A1(2)=4， A2(3一 k)=A2(31)=A2(2)=4 k=2，输入 6， A1(k+1)=Al(2+1)=A

44、1(3)=6， A2(3一 k)=A2(32)=A2(1)=6 k=3， For循环结束，输出 A2(k)的值即 A2(3)的值，即 2。 33 【正确答案】 D 【试题解析】 程序运行，窗体加载时设置 Label1显示为 ABCD， Label2显示为10。单击命令按钮，执行按钮的单击事件过程，过程中 Val函数将 Label2的标题字符串转换为数值赋给变量 a，此时 a的值为 10，然后调用 func过程传入 Labell为参数， func过程中设置 Labell的标题为 “1234”，回到按钮单击事件过程，设置Label2的标题为变量 a的值，即 10。因此两个标签中显示的内容分别为 1

45、234和10。 34 【正确答案】 B 【试题解析】 本题是过程的嵌套调用，过程嵌套调用对要先计算最内层的过程，然后由里向外执行。因此 Funl(Funl(x， (Funl(x， x1)， x1)执行过程如下： 先执行 Funl(x， x一 1)，由于形参 a是按值传递，因此不会影响 x的值， x=10，即 Funl(10， 9)。 t=1， b=1+10=11，则函故返回值为 1+11=12。 再执行 Funl(x， (Funl(x， x一 1)，由于内层过程返回 12，因此又可写成Funl(x， (12)，由于 x仍为原值，因此过程即 Funl(10， 12)。 t=一 2， b=一2+1

46、0=8，则函数返回值为一 2+8=6。 最后执行 Funl(Funl(x， (Funl(x， x1)， x1)，即 Funl(6， x一 1)，由于 x仍为原值，因此过程即为 Funl(6， 9)。 t=一 3， b=一 3+6=3，则函数返回值为一3+3=0。 35 【正确答案】 C 【试题解析】 程序中过程 Fun的 Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串，然后这个字符串再重复一次由函数返回。函数 kn用于返回字符串的长度，过程中字符串的长度做为 Do循环的结束条件。 Mid是 字符串中部截取函数，用来从指定位置开始截取指定个数的字符。过程中使用Mid(xStr

47、， i+1， 1)，通过循环依次取出字符串后半部分的字符。函数返回的字符串经 Lcase函数转换为小写然后显示在文本框中。程序中做为 Fun过程参数的字符串为 “ABCDEF”，经处理返回并转为小写后为 “defdef”。 36 【正确答案】 A 【试题解析】 窗体的 KeyPreview属性用于设置或获取一个值，该值只是判断按键事件传递到具有焦点的控件前，窗体是否将接收此事件，该属性设为 True时，窗体将会接收按键事件。因此在 文本框中输入 “VB”时，会先触发 Form_KeyPress()事件，该事件将输入的字符保存到窗体模块变量 SaveAll中，然后才会显示在文本框中。当单击命令按

48、钮时， Lcase函数将变量 SaveAll中的字符串 “VB“转换为小写，为 “vb”，然后与原字符串连接，即 “vb”+“VB”，显示在文本框中则为“vbVB”。 37 【正确答案】 A 【试题解析】 程序的作用是输入的数如果是 5的倍数就累加，如果不是就每次加50或与上次是 5的倍数的那个数相累加。因此最终 a的值是 15+15+35+35=100。 38 【正确答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先，在顺序文件中打开文件写入数据的打开方式为： Open文件名 For Output As#文件号。因此 B、 C选项排除，只看 A、 D

49、选项。 写入顺序文件 Print#语句格式为： Print#文件号，变量名，变量名 ， Write语句的的格式与 Print语句一样： Write#文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名成员名，Books类型变 量 B成员 Name和 TelNum赋值和引用应该是 B Name、B TelNum，因此 A选项正确。 39 【正确答案】 C 【试题解析】 static声明的变量为静态变量，静态变量在程序运行期间，每次进入过程时都会保留上次的值，而普通变量不会保留。 numa定义为静态变量，因此每次调用都会保留结果， 3次调用过程， numa的值为 6， numb的值为 1。 40 【正确答案】 B 【试题解析】 根据 For循环中的 If语句的条件 n=m or n=4一 m中的 n=m首先可以得出 a(1， 1)=2， a(2， 2)=4， a(3， 3)=6，其次根据 n=4一 m的条件可