1 以下函数中，能判断是否到达顺序文件的结束位置(也称文件尾)的是 A. BOF B. LOC C. LOF D. EOF 2 为了把焦点移到某个指定的控件，所使用的方法是_____。 A. SetFocus B. Show C. GetFocus D. Move 3 下列关于菜单的论述中，错误的是______。
A. 每个菜单项都是一个控件，与其他控件一样也有其属性和事件 B. 菜单项只能识别Click事件
C. 不能在顶层菜单上设置快捷键
D. 在程序运行过程中，不可以重新设置菜单项的Visible属性 4 设有语句
Open \ 则以下叙述中错误的是
A．该语句以Output模式打开C:\\test.txt文件，若该文件不存在，则建立一个新文件 B．该语句打开一个已存在的文件C:\\test.txt，若该文件不存在，则程序出错 C．该语句建立的文件的文件号为1
D. 执行该语句后，就可以通过Write # 语句向文件test.txt中写入数据
5 在窗体上已经建立了一个文本框Txt1和一个命令按钮Comd1，运行程序后单击命令按钮，则在文本框Txt1中显示的内容是
Dim a As Integer '模块级变量 Private Sub Comd1_Click() Dim b As Integer
a = 1 : b = 20 Call MySub(b) Txt1.Text = a + b End Sub
Sub MySub(x)
x = x Mod 7 + a
End Sub
A.8 B.9 C.6 D.7
6 在设计阶段，为了清除窗体上的一个控件，以下正确的操作是_____。 A. 按回车键 B. 按Esc键
C. 选定（单击）要清除的控件，然后按Delete键 D. 选定（单击）要清除的控件，然后按回车键
7 VB6.0中可以用类型说明符来标识变量的类型，其中表示双精度类型的____。 A. @ B. # C. $ D. % 8 下列程序运行后的输出结果是______。 Private Sub Form_Load() Show p = 1: m = 5 Call Sub1(p) Call Sub1(m) End Sub
Private Sub Sub1(x)
If x > 1 Then x = x - 1
x = x * 4 Print x; End Sub
A. 4 15 B. 4 16 9 以下叙述中，错误的是_____。
A. 在VB中，对象所能响应的事件是由系统定义的
B. 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C. VB中允许不同对象使用相同名称的方法 D. VB中的对象具有自己的属性和方法
10 当用户按下并释放键盘上的某个键时，将触发KeyPress、KeyDown和KeyUp事件。这三个事件发生的顺序是_______。
A. KeyPress、KeyDown、KeyUp B. KeyPress、KeyUp、KeyDown C. KeyUp、KeyPress、KeyDown D. KeyDown、KeyPress、KeyUp 11有如下程序：
Private Sub Form_Click() For K=1 to 10 For j =1 To K Print \
Next j Print Next K End Sub
运行时，输出星号的行数是_____。
A. 50 B. 20 C. 10 D. 100
12 要使过程的实际参数变量在过程调用后其值不会改变，应在定义该参数时，选用______。
A. ByVal B. Static C. Public D. ByRef 13 下列关于全局变量的叙述中，错误的是
A. 在窗体模块或在标准模块中定义的Public变量，都是全局变量 B. 全局变量必须在标准模块中定义
C. 全局变量不能采用Dim语句来定义
D. 在标准模块中定义的全局变量，可在整个工程的所有模块中引用，也可以在其他模块中对它重新赋值
14 列表框中的列表内容是通过属性来设置，这个属性是_____。 A. List B. Height C. Columns D. Index 15 下列函数中，______的值不是字符“B”。 A. Chr(66) B. Left(\
C. ASC(\ D. String(1, 66)
16 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用______关键字在过程中定义局部变量。
A. Dim B. Private C. Public D. Static 17 以下叙述中，错误的是_____。 A. 双击鼠标可以触发DblClick事件
B. 窗体或控件的事件的名称可以由编程人员确定 C. 移动鼠标时会触发MorseMove事件
D. 控件的名称可以由编程人员设定
18 从字符串s中，取第5个字符起的6个字符，应使用_______。
A. Mid(s,6,5)) B. Left(s,5,6) C. Mid(s,5,6) D. Right(s,6,5)
19 窗体上有一个按钮Command1和一个标签Label1，程序执行后，单击按钮时标签的显示内容是_____。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4
Label1.Caption = p2(c, b, a) End Sub
Private Function p1(x As Integer, y As Integer, z As Integer) p1 = 2 * x + y + 3 * z End Function
Private Function p2(x As Integer, y As Integer, z As Integer) p2 = p1(z, x, y) + x
End Function
20 用Print方法可以在窗体中显示文本信息，若想清除这些信息，可用的方法是______。
A. Cls B. Clear C. Remove D. Delete 21 表达式 x+1>x 是______。
A. 算术表达式 B.字符串表达式 C. 关系表达式 D. 日期表达式 22 函数 UCase(Mid(\的值为_____。
A. Visua B. Basic C. BASIC D. VISUA 23 设x＝4，y＝8，z＝7，以下表达式的值是_____。
x A. True B. 1 C. False D. –1 24 要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是______。 A. Type studl no As String*8 name AS String score(1 to 3) As Single End Type B. Type studl no As String*8 name As String*10 score() As Single End Type C. Type studl no As String*8 name As String *10 score(1 to 3) As Single End Type D. Type studl no As String*8 name As String score(1 to 3) As String End Type 25 在窗体上放置两个文本框,名字分别为Text1和Text2，然后编写下列程序： Private Sub Form_Load() Text1.Text = \ Text2.Text = \ End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Text1.Text = Text1.Text + Chr(KeyAscii - 5) End Sub 26 程序运行后，如果在文本框Text2输入“lmn”，那么在文本框Text1中显示的内容将是_____。 A.abc B.hij C. ghi D. fgh 编写如下三个事件过程： Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode+1); End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 2); End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii + 3); End Sub 运行程序后，直接打入“a”键符，则程序输出_______。 A. DCB B. CbA C. AcB D. CdB 27 设在窗体上有两个命令按钮，其中一个命令按钮的名称为CmdA，则另一个命令按钮的名称不能是_____。 A. Cmda B. Cmdb C. Cmdc D. Command1 28 窗体KeyUp事件过程如下，启动程序后按小写字母“a”，输出结果为_____。 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub A. a B. A C. 65 D. 97 29 设有以下语句： str1 = InputBox(\输入\练习\ 执行后用户从键盘上输入字符串“示例”后，str1的值是______。 A. \输入\ B.\ C. \练习\ D. \示例\30 设a$=\，表达式 Val(a$) - Len(\的值是______。 A. 6 B. 7 C. 8 D. 9 31 下列程序段运行后，变量x的值是_______。 x = 0 For k = 10 To 19 Step 3 x = x + 1 Next k A. 4 B. 5 C. 6 D. 7 32 “x 是介于50和100之间(不含50和100) 的数”，用 VB 表达式表示的是______。 A. 50 33在下列控件中，______不允许用户在程序运行时输入文字。 A. 文本框 B. 下拉组合框 C. 标签 D. 简单组合框 E. 下拉列表框 34 VB允许的常量有_____。 A. 4.8E-2 B. \程序设计\ C. False D. 4*10 E. d1 35单选（多） 数组a中有20个元素（a(1)～a(20)），要求调换数组中数值的存放位置，即a(1)与a(20)的值互换，a(2)与a(19)的值互换，??，a(10)与a(11)的值互换。 请完善下列程序段。 For j = 1 To ____[1]____ n = ____[2]____ t = a(j) a(j) = a(n) ____[3]____ Next j [1] A. 20 B. 19 C. 10 D. n [2] A. 21-j B. j C. 20-j D. 1 [3] A. a(n) = t B. t = a(n) C. n = j D. a(n) = a(j) 36 设在窗体上有一个文本框Text1和一个文本框数组Text2， 数组Text2有15个文本框，索引号0～14，其中存放的都是数字数据。现由用户单击选定数组Text2中的任一个文本框，然后计算从该文本框开始，到最后一个文本框为止的若干个文本框中的数值总和，把计算结果显示在文本框Text1中，请完善下列事件过程。 Private Sub Text2_Click(Index As Integer) Dim s As Single s = 0 For k = ____[1]____ To 14 Step 1 s = s + Val( ____[2]____ ) Next k ____[3]____