度
14．适用于DVD、高清晰度电视的视频压缩标准是 14 。
A．MPEG-4 B．MPEG-1 C．MPEG-3 D．MPEG-2 15．目前我国家庭计算机用户接入互联网的下述几种方法中，最快的是 15 。
A．电话拨号 B．ADSL C．一线通 D．光纤入户 16．已知接入Internet网的计算机用户为jkf，而连接的服务商主机名为seu.edu.cn，则他相应的E-mail地址为 16 。
A．seu.edu.cn@jkf B．jkf@seu.edu.cn C．@jkfseu.edu.cn D．jkf.seu@edu.cn
17．按照汉字的“输入?处理?输出打印”的处理流程，不同阶段使用的汉字编码分别对应为 17 。
A．国标码?交换码?字形码 B．输入码?国标码?机内码 C．输入码?机内码?字形码 D．拼音码?交换码?字形码 18．下列关于图像的说法，错误的是 18 。
A．尺寸大的彩色图片数字化后，其数据量必定大于尺寸小的图片的数据量 B．图像的数字化过程大体可分为四步：扫描、取样、分色、量化 C．像素是构成图像的基本单位
D．黑白图像或灰度图像只有一个位平面 19．计算机信息系统（简称“信息系统”）是一类以提供信息服务为主要目的的数据密集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是 19 。
A．在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效 B．信息系统开发方法有多种，例如生命周期法、原型法等
C．MRPⅡ的英文说法是Material Requirement Planning Ⅱ，制造业物料需求计划
Ⅱ
D．电子商务，简称EC，是指对整个贸易活动实现电子化
20．在使用Excel 97/2000/2003处理数据时，下列叙述中正确的是 20 。
A．单元格的引用分为绝对引用和相对引用两种 B．一个工作表最多有65536行，256列 C．一个工作簿中可以无工作表
D．在Excel中输入公式后，该表达式的计算结果就被存储在单元格中
第二部分 Visual Basic程序设计
一、选择题（用答题卡答题，答案依次填在21～30答题号内）
21．若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），适当的控件将它们分隔开。下列不能将单选按钮分组的控件是 21 。
① TexBox ②PictureBox ③ Image ④Frame ⑤ListBox
A．①②③ B．①③⑤ C．②④⑤ D．③④⑤ 22．Visual Basic指定参数x的自然对数值，返回一个Double的函数是 22 。
A．Log(x) B．Lg(x) C．Exp(x) D．Ln(x) 23．运行程序时，显示下图1内容的语句是 23 。
A．b = InputBox(\输入一个整数\程序示例\B．b = InputBox(\程序示例\输入一个整数\C．b = MsgBox(\输入一个整数\程序示例\D．b = MsgBox(\程序示例\输入一个整数\
图1
24．各种运算符间的优先顺序，从高到低是 24 。
A．比较运算符→算术运算符→逻辑运算符 B．比较运算符→逻辑运算符→算术运算符 C．算术运算符→比较运算符→逻辑运算符 D．算术运算符→逻辑运算符→比较运算符
25．将表达式转换为Double类型的函数是 25 。
A．Cbool B．Cbyte C．Cdbl 26．运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer For i = 1 To 20
If i Mod 5 = 0 Then sum = sum + i End If Next i Print sum End Sub
单击窗体后，则在窗体上显示的结果是 26 。
A．50 B．100 C．4 27．如果在立即窗口中执行以下操作：
x=1
Print x > y
A． -1 B．1 C．False 28．运行下列程序：
Private Sub Form_Click() a = 32: b = 5 Do
a = a / 2 b = b + 1 Loop While b < 10 Print a End Sub
单击窗体后，则在窗体上显示的结果是 28 。
A．1 B．2 C．5 29．运行下列程序：
Option Base 1
D．Cstr
D．5050
D．True
D．11
Private Sub Form_Click() y = 43
x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70) For i = 1 To 10
If x(i) < y Then z = x(i) + 1 y = x(i) Else
z = z + y End If Next i Print z End Sub
单击窗体后，则在窗体上显示的结果是 29 。
A．43 B．21 C．37 30．运行下列程序：
Private Sub form_Click()
t = Val(InputBox(\请输入一个数：\ x = t - 1 Select Case t Case 1 To 10 y = 4 * t Case Is > 10 y = 3 * t Case Else y = 2 * t End Select Print x; y End Sub
运行时，从键盘输入4，输出的结果是 30 。
A．3 16 B．4 4 C．3 4 D．4 10
D．44
二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）
1．在创建菜单时，如果命令在完成之前还需要附加信息，则在其名称后面应当有一个 （1） 。
2．VB6.0集成开发环境中，功能键Ctrl+F5的功能是对 （2） 。
3．在VB6.0中定义变量时，通过在变量名后加一个用于规定变量类型的说明字符，来规定变量的类型。当变量名后加―#‖时，则表明该变量为 （3） 。
4．将表达式的结果为非零的值返回True；否则返回False的函数是 （4） 。 5．为了在TextBox控件中显示多行文本，要将 （5） 属性设置为True。 6．运行下列程序，单击窗体后，则在窗体上显示的第四行和最后一行的结果分别是 （6）
和 （7） 。
Private Sub Form_Click() n = 0
a = 1: b = 2: c = 3 For i = 1 To 4 For j = 0 To i
a = b + 1: b = c + 2: c = a + 2 n = n + 1 Print c Next j Next i Print n End Sub
7．在窗体有有一文本框，名为text1，则执行如下事件过程后，文本框中的输出为 （8） 。
Private Sub form_Click() For i = 1 To 3 a = 1
For j = 1 To 3 a = a + 4 Next j Next i
Text1.Text = Str(a) End Sub
8．下列程序运行后，在窗体上打印的结果是 （9） 。
Private Sub test(a, b, c)
a = a + 1: b = b + 2: c = c + 3 End Sub
Private Sub Command1_Click() x = 1: y = 2: z = 3 Call test(x, y + 3, (z)) Print \End Sub
9．下列程序的执行结果是 （10） 。
Private Sub Form_Click() s = 50: n = 2 Do
s = s - n n = n + 1 Loop Until n > 8 Print s End Sub
10．运行下列程序：
Private Sub Form_Click() Do
For I = 1 To 100
m = Int(Rnd * 100) + 1 Select Case m
Case 13: Exit For Case 78: Exit Do End Select n = n + 1 Next I Loop Print m End Sub
单击窗体后，则在窗体上显示的结果是 （11） 。 11．下列程序的功能是计算两个自然数的最大公约数，如图2所示。给定的程序不完整，将程序补充完整。
图2
Private Sub Command1_Click()
Dim x As Long, y As Long, i As Long x = Val(Text1.Text) y = Val(Text2.Text)
Text3.Text = Str( （12） ) End Sub
Function fun1(a As Long, b As Long) As Long Dim r As Long Dim t As Long
If （13） Then t = a a = b b = t End If
r = a Mod b Do While r <> 0 a = b b = r
r = a Mod b Loop
（14）