D．CPU时钟频率
12．下列关于PC机的叙述中，下面说法中正确的是 12 。
A．CMOS中存放着基本输入/输出系统（BIOS） B．PC机只能安装MS-DOS或Windows操作系统
C．PC机主板型号与CPU型号是一一对应的，不同的主板对应不同的CPU D．CMOS芯片需要一个电池给它供电，否则其中数据会因主机断电而丢失 13．算法是问题求解规则的一种描述，下面哪些选项属于其基本性质 13 。
A．确定性、有穷性、能行性、输入、输出 B．确定性、无穷性、能行性、输入、输出 C．不确定性、无穷性、能行性、输入、输出 D．不确定性、有穷性、能行性、输入、输出 14．计算机网络是利用通信设备和网络软件，把地理位置分散而 14 的计算机（及智能设备）以相互共享资源和进行信息传递为目的连接起来的一个系统。
A．相互连接 B．功能齐全 C．功能独立 D．价格便宜 15．关于有线电视电缆调制解调技术的描述中，正确的是 15 。
A．使用电缆调制解调技术，上网速度很快，但在上网的同时不能看电视
B．电缆调制解调技术是多用户共享带宽，用的人多了，单个用户的速度会下降 C．使用电缆调制解调技术非常的方便，只要有有线电视的地方就能上网 D．电缆调制解调器的下载速度快，上传速度慢 16．通过Internet发送或接收电子邮件(E-mail)的首要条件是应该有一个电子邮件(E-mail)地址，它的正确形式是 16 。
A．用户名#域名 B．用户名@域名 C．用户名/域名 D．用户名.域名
17．微软公司自Windows 95简体中文版始，系统采用 17 代码，该代码共收录汉字21003个、符号883个，并提供1894个造字码位，简、繁体字融于一库。
A．UCS B．BIG5 C．GBK D．CJK
18．目前，数据相机所采用的既支持无损压缩又支持有损压缩的图像文件格式是 18 。
A．TIF B．JPEG C．BMP D．GIF 19．用于辅助人们进行信息获取、传递、存储、加工处理、控制及显示的综合使用各种信息技术的系统，可以通称为 19 。
A．自动办公系统 B．信息管理系统 C．信息处理系统 D．人工智能系统 20．在电子表格软件Excel环境下，下列叙述中不正确的是 20 。
A．在一个单元格内最多可以存放255个西文字符
B．在输入由数字组成的字符输入项时，应为数字字符串加双引号 C．利用“填充柄”可向单元格输入系列数据
D．单元格引用分为相对引用、绝对引用和混合引用
第二部分 Visual Basic程序设计
一、选择题（用答题卡答题，答案依次填在21～30答题号内）
21．在 Select Case a结构中，描述判断条件 1 ≦ a ≦ 10 的测试项应该写成 21 。
A．Case 1 <= a <= 10 B．Case 1 ≦ a And a ≦ 10 C．Case Is >= 10 or Is >= 1 D．Case 1 To 10
22．用Hide方法隐藏窗体时，它就从屏幕上被删除，并将其Visible属性设置为 22 。
A．1 B．0 C．False D．True 23．Lof函数作用是，返回一个 23 。
A．Long型数据，在已打开的文件中指定当前读／写位置 B．Long型数据，表示用Open语句打开的文件的大小 C．Integer型数据，表示文件号的范围
D．Boolean型数据，表明是否已经到文件的结尾 24．以下四个控件中具有Pattern属性的是 24 。
A．目录列表框 B．驱动器列表框 C．文件列表框 D．列表框 25．为菜单上访问键被显示成带下划线的字母，请在要作为访问键的字母前面键入一个 25 号。
A．\ B．\ C．\ 26．运行下列程序：
Private Sub Command1_Click() x = 3
If x < 3 Then Print x + 3; If x < 4 Then Print x + 4; If x < 5 Then Print x + 5; If x < 6 Then Print x + 6; Print End Sub
单击Command1命令按钮后，则在窗体上显示的结果是 26 。
A．6 7 8 9 B．7 8 9 C．8 9 27．运行下列程序：
Private Sub Command1_Click() s$ = \ k = InStr(s$, \ Do While k > 0 n = n + 1
s$ = Mid(s$, k + 1) k = InStr(s$, \ Loop Print n End Sub
单击Command1命令按钮后，则在窗体上显示的结果是 27 。
A．1 B．2 C．3 28．运行下列程序：
Private Sub Command1_Click() s1 = \
For i = 1 To Len(s1) t = Mid(s1, i, 1)
s2 = s2 + Chr(Asc(t) + 1) Next i
Debug.Print s2 End Sub
单击Command1命令按钮后，则在立即窗口上输出结果是 28 。A．Cbtjd B．65 C．Basic 29．运行下列程序：
Private Sub Command1_Click() x = \祝你成功\ y = \ For i = 1 To 4
z = z + Mid(x, i, 1) + Left(y, 1) Next i
D．\D．9 D．4 D．出错
Print z End Sub
单击Command1命令按钮后，则在窗体上显示的结果是 29 。
A．祝你成功1234 B．祝1你2成3功4 C．1234祝你成功 D．祝1你1成1功1 30．运行下列程序：
Private Sub Command1_Click() x = 1
z = InputBox(\请输入一个整数2\ Select Case z Case Is > 0 y = x + 1 Case Is = 0 y = x - 2 Case Else y = x + 5 End Select Print x; y End Sub
从键盘输入2，输出的结果是 30 。
A．0 1 B．1 2 C．1 3 D．5 5 二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，
共30分）
1．将一表达式转成Byte类型的函数是 （1） 。
2．解锁Unlock语句的功能是释放由 （2） 设置的对一个文件的多重访问保护。 3．为了改变Label控件中显示的文本，可使用 （3） 属性。
4．第一次显示某窗体时，将引发Initialize、Activate和Load三个事件，最先引发的事件是 （4） 事件。
5．窗体上有一个shape控件，其shape属性设置为2-Oval，则显示为一个 （5） 图形。
6．下列程序的执行结果是 （6） 。
Private Sub Form_Click()
Dim s As Integer, k As Integer s = 1: k = 1
Do While k < 10 s = s + k k = k + 1 Loop Print s End Sub
7．下列程序程序单击窗体后，则在窗体上的text1和text2中的内容分别是 （7） 和 （8） 。
Private Sub Form_Click()
Dim s As Variant, s1 As String s = #5/24/2003# Text1.Text = Day(s) s1 = CStr(s)
s1 = Left(s1, 1) + Space(3) + Right(s1, 1)
Text2.Text = s1 End Sub
8．下列程序的功能是，找出1～10之间所有的因子之和，并在图片框Picture1中显示出来，如图1所示。给定的程序不完整，将程序补充完整。
图1
Private Sub form_Click()
Dim a() As Integer, Id As Integer For I = 1 To 10
Picture1.Print I; \ （9）
For j = 2 To I - 1
If I Mod j = 0 Then Id = Id + 1
ReDim Preserve a(Id) a(Id) = j End If Next j
For j = 1 To Id （10） Next j
Picture1.Print Next I End Sub
9．给定程序其功能是：建立并打印主对角线的元素为1外，主对角线之上的元素为5，主对角线之下的元素为0的方阵，如图2所示。给定的程序不完整，将程序补充完整。
图2
Option Base 1
Private Sub Form_Click() Dim A(5, 5) For i = 1 To 5 For j = 1 To 5
If i = j Then
（11）
ElseIf （12） Then A(i, j) = 5 Else
A(i, j) = 0 End If Next j Next i
For i = 1 To 5 For j = 1 To 5 Print A(i, j); Next j
（13） Next i End Sub
10．1955年，卡普耶卡(D.R.Kaprekar)研究了对四位数的一种变换：任给出四位数k0，用它的四个数字由大到小重新排列成一个四位数m，再减去它的反序数rev(m)，得出数k1=m-rev(m)，然后，继续对k1重复上述变换，得数k2。如此进行下去，卡普耶卡发现，无论k0是多大的四位数，只要四个数字不全相同，最多进行7次上述变换，就会出现四位数6174。例如：k0=5298，k1=9852-2589=7263，k2=7632-2367=5265，k3=6552-2556=3996，k4=9963-3699=6264，k5=6642-2466=4176，k6=7641-1467=6174。给定下列程序实现其功能。给定的程序不完整，将程序补充完整。
Option Base 1
Private Sub Form_Click() Dim n(4) As Integer Randomize
k = （14） m = 0 Do
Print k
For i = 1 To 4
n(i) = k Mod 10 （15） Next i
For i = 1 To 3 For j = i To 4
If （16） Then t = n(i) n(i) = n(j) n(j) = t End If Next j Next i
Max = n(1) * 1000 + n(2) * 100 + n(3) * 10 + n(4) Min = n(4) * 1000 + n(3) * 100 + n(2) * 10 + n(1) k = Max - Min （17） Loop Until k = 6174 Print k
Print \交换次数＝\End Sub
11．下面程序的功能是找出由两个不同的数字组成的回文平方数。程序界面参见图3。