06年4月VB笔试（A卷）

：名姓 线 ： 号 学 订 ： 号 班 学 教 装 ：业专级年 西华大学课程考试试题卷 （ A 卷）

试卷编号：

课程名称：高级语言程序设计(VB)(2005级) 考试时间： 120 分钟 课程代码： 试卷总分： 100 分

一、 是非判断题（1分/小题，共5分）

（判断下列各小题的叙述正确与否，如正确则在答题纸对应编号上选A，否则选B） 1． 在文本框中每输入一个字符都会触发文本框的KeyPress事件。

（1） 2． Visual Basic程序的执行方式为事件驱动方式。

（2） 3． 如果要使某控件运行时不可见，则应设置该控件的Enabled属性为False。

（3） 4． Visual Basic不允许自定义数据类型。

（4） 5． 在Visual Basic中，用Sub关键字申明的子程序可以通过子程序名带回返回值。

（5）

二、 单项选择题（1分/小题，共20分）

1． 如果在程序中要将 a 定义为静态的整型变量，则应使用的语句是（ 6 ）

（A）Redim a As Integer

（B）Static a As Integer （C）Public a As Integer （D）Dim a As Integer

2． 窗体文件的扩展名为（ 7 ）。

（A）.vbp

（B）.bas

（C）.exe （D）.frm

3． 若要使命令按钮不可操作，则需要设置（ 8 ）属性。

（A）Enabled （B）Visible

（C）BackColor （D）Caption

4． 不论什么控件，共同具有的是（ 9 ）属性。

（A）Text

（B）Name

（C）BackColor （D）Caption

5． 数学关系3≤x<10对应的VB表达式为（ 10 ）。

（A）3<=x<10

（B）3<=x and x<10 （C）x>=3 or x<10

（D）3<=x and <10

6． 如下二维数组声明语句中，正确的是（ 11 ）。

（A）Dim a[3,4] As Integer （B）Dim a(34) As Integer （C）Dim a(n,n) As Integer

（D）Dim a(3,4) As Integer

7． 设a=3,b=5，则以下表达式值为真的是（ 12 ）

（A）a>=b and b>10 （B）(a>b) or(b>0) （C）(a-b) >0

（D）(-3+5>a) and (b>0)

8． 设有以下程序段： Dim x$

西华大学校2级VB笔试试卷 共10页 第1页

x=Inputbox(\输入数值\示例\

该程序段运行后，如果从键盘输入数值10并按回车键，则下列叙述中正确的是（ 13 ）

（A）变量x的值是数值10 （C）0是默认值

（B）在InputBox对话框标题栏中显示的是“输入数值” （D）变量x的值是字符串“10”

9． 设a=\，下面使b=\的语句是（ 14 ）

（A）b=Left(a,8,12) （C）b=Right(a,5,5)

（B）b=Mid(a,8,5) （D）b=Left(a,8,5)

10． 以下能够触发文本框change事件的操作是（ 15 ）

（A）文本框失去焦点

（B）文本框获得焦点

（C）设置文本框的焦点 （D）改变文本框的内容

11．窗体上有一个命令按钮Command1和一个列表框List1（Sorted 属性为True）， Private Sub Command1_Click() List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \ Print List1.list(2) End Sub

程序运行后，单击Command1后窗体上的输出结果为（ ）。 （A）Hello （B）China （C）Nice (D)Great 12． 以下叙述中错误的是（ 17 ）

（A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 （B）Sub过程不能嵌套定义

（C）在一个Sub过程中可以嵌套定义另一个Sub过程 （D）控件对象的事件过程名不能由用户定义

13． 在窗体上建立单选按钮需要添加的控件是（ 18 ）

（A）TextBox

（B）OptionButton

（C）CheckBox

（D）ComboBox

14． 以下叙述中错误的是（ 19 ）

（A）在同一窗体的菜单项中，不允许出现标题相同的菜单项

（B）在菜单的标题栏中，“＆”所引导的字母指明了访问该菜单项的热键 （C）程序运行过程中，可以重新设置菜单的Visible属性 （D）弹出式菜单也在菜单编辑器中定义

15． 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的

语句是（ 20 ） （A）Menu1.Enabled = True （C）Menu1.Visible = True

（B）Menu1.Enabled = False （D）Menu1.Visible = False

16． 以下叙述中正确的是（ 21 ）

（A）一个记录中所包含的各个成员的数据类型必须相同 （B）随机文件中每个记录的长度是固定的

Page 2 of 10

（C）Open命令的作用是打开一个已经存在的文件 （D）使用Input#语句可以从随机文件中读取数据

17． 在窗体上画两个单选按钮，名称分别为option1,option2，标题分别为“宋体”和“黑体”；

一个复选框，名称为check1，标题为“粗体”；一个文本框，名称为text1，text属性为“改变文本字体”。要求程序运行时，“宋体”单选按扭和“粗体”复选框被选中，则能够实现上述要求的语句程序是（ 22 ） （A）Option2.Value=True

Check1.Value=False

（B）Option2.Value=True Check1.Value=True （D）Option1.Value=True Check1.Value=1

（C）Option1.Value=False Check1.Value=False

18． 在过程定义中，欲使参数传递方式为值传递，则需在相应形参的前面冠以（ 23 ）关键

字。 （A）Var

(B) ByDef

(C) ByVal

(D) Value

19． 复选框的Value属性为1时，表示（ 24 ）。

（A）复选框未被选中

（B）复选框被选中 （D）复选框操作有错误

（C）复选框内有灰色的勾

20． 一个窗体被创建时，最先触发的事件是（ 25 ）。

（A）Click

（B）DBlClick （C）Unload

（D）Load

三、 阅读分析程序（每个选择3分，共45分）

1． 在窗体上有一个名称Text1的文本框和一个名称为Command1的命令按钮，程序的所有代码如

下：

Option Explicit

Private Sub Command1_Click Dim array1(10,10) As Integer Dim i, j As Integer For i = 1 To 3 For j =2 To 4 array1(i, j ) = i + j Next j Next i

Text1.Text = array1 (2,3) + array1 (3,4) End Sub

（1） 程序运行后单击命令按钮，在文本框Text1中显示的值是（ 26 ）

（A）12

（B）13

（C）14

（D）15

（2） 以下说法中正确的是（ 27 ）

（A）array1是静态数组

Page 3 of 10

（B）array1是动态数组

（C）数组array1的下标的默认下界为1 （3） 语句Option Explicit的功能是（ 28 ）

（A）表明此模块内变量必须先定义后使用 （B）表明此模块没有通用过程

（D）array1总共应有100个元素

（C）表明此模块的通用过程不能被其他模块调用 （D）表明此模块变量不定义可以直接使用

2． 阅读下面程序：

Private Sub Command1_Click() Do

x = Val(InputBox(\请输入整数\ Loop While x < 0 a = F1(x) If a Then Print \ Else

Print \ End If End Sub

Function F1(b As Variant) 'L1 b = Val(b)

If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function

（1） 变量a的数据类型为（ 29 ）

（A）字符型

（B）整型 （C）变体类型 （D）单精度型

（2） 程序运行后，单击命令按钮，若输入12，则窗体上的输出的结果为（ 30 ）

（A）\

（B）\（C）0 （D）1

（3） 若将L1行的Function F1(b As Variant)改为Function F1(b As Integer)（ 31 ）

（A）程序功能不变

（B）函数的返回值类型不变 （C）函数的返回值类型变为整型 （D）程序出错 3． 阅读下面程序：

Page 4 of 10