A． B．768KB C．24KB D．
8．目前许多外部设备（如打印机、数码相机、扫描仪等）采用了USB接口。下面关于USB的叙述中，错误的是 8 。
A．USB接口有两种规格，版的数据传输速度要比版快得多 B．主机不能通过USB连接器引脚向外设供电
C．利用“USB集线器”，一个USB接口能连接多个设备
D．USB属于一种串行接口
9．下列说法中，错误的是 9 。
A．硬盘安装在机箱内，属于主机的组成部分
B．硬盘驱动器和盘片是密封在一起的，不能随意更换盘片的 C．硬盘是多张盘片组成的盘片组
D．硬盘的技术指标除容量外，另一个是转速 10． 下列属于应用软件的是 10 。
①Word ②Windows XP ③Linux ④Visual Basic ⑤MSN Messenger ⑥图书管理系统 A．①③④⑤ B．①④⑤⑥ C．①⑤⑥ D．①⑥
11．在下列有关Ｗindows98／2000／XP操作系统的叙述中，错误的是 11 。
A．它们都支持即插即用（ＰnＰ）功能 B．它们都支持支持FAT32文件系统
C．优盘中被删除的文件可从“回收站”中回复出来 D．它们都是32位操作系统
12．下列各条中，对计算机操作系统的作用完整描述的是 12 。
A．它是用户与计算机的界面
B．它对用户存储的文件进行管理，方便用户
C．它管理计算机系统的全部软、硬件资源，合理组织计算机的工作流程，以达到充分发挥计算机资源的效率，为用
户提供使用计算机的友好界面
D．它执行用户键入的各类命令
13．比较算法和程序，以下说法中正确的是 13 。
A．程序中的指令和算法中的运算语句都必须用高级语言表示 B．算法和程序都必须满足有穷性
C．算法可采用“伪代码”或流程图等方式来描述
D．算法就是程序
14． 14 由两部分组成，第一部分指出客户端希望得到主机提供的哪一种服务，第二部分是主机名和网页在主机上的位置。
A．HTTP B．TELNET C．URL D．WWW
15．在数据库系统中，最常用的一种基本数据模型是关系数据模型。在这种模型中，表示实体集及实体集之间联系的结构是 15 。
A．网络 B．图 C．二维表 D．树
16．发送邮件时，邮件传送程序必须与远程的邮件服务器建立TCP连接，并按照 16 协议传输邮件。如果接受方邮箱在服务器上确实存在，才进行邮件的发送，以确保邮件不会丢失。 A．POP3 B．TCP C．SMTP D．IP
17．在中文Windows 98/2000/XP环境下，设有一段文本，该文本中有4个汉字和2个西文字符，则这段文字的内码，最有可能是 17 。
A．CB F5 D0 B4 50 B．9B 95 90 94 50 43 8A 87 D6 B8 C．CB 45 D0 B4 50 43 CA C7 46 B8 D．CB F5 D0 B4 50 43 CA C7 D6 B8 18．在下列有关声卡的描述中，错误的是 18 。
A．声卡的主要功能是控制波形声音和MIDI声音的输入输出 B．波形声音的质量与量化位数、采样频率有关
C．声卡中数字信号处理器在完成数字声音的解码及编辑操作中起着重要作用 D．声卡所要求的数据率不高，用ISA 总线进行传输
19．信息分析系统是一种高层次的信息系统，为管理决策人员掌握企事业单位运行规律和趋势、制订规划、进行决策的辅助系统，可分为 19 和经理支持系统。
A．信息处理系统 B．决策支持系统 C．学生信息系统 D．图书管理系统
20．在使用Excel 97/2000/2003处理数据时，下列叙述中不正确的是 20 。
A．在Excel中提供了许多内置函数, 函数范围包括数据库、数学和三角函数、查询与引用函数等
B．在默认情况下，每一个工作簿文件会打开3个工作表文件，分别以Sheet1、Sheet2、Sheet3来命名 C．每个工作表中的行和列数量是没有限制的
D．在Excel中，输入公式前要先输入一个等号“＝”才行
第二部分 Visual Basic程序设计
一、选择题（用答题卡答题，答案依次填在21～30答题号内）
1?21．代数式
A．sqr((1+(s+t)/(x+y))/log(s)) C．sqr((1+(s+t)/(x+y))/ln(s))
a?bc?dln(a)对应的Visual 表达式是 21 。
B．(1+(s+t)/(x+y))/log(s)/2 D．sqr((1+s+t/x+y)/log(s))
22．设变量D为Date型、A为Integer型、S为String型、L为Long型，下面赋值语句中不能执行的是 22 。 A．D=#11:30:00 PM# B．A= \
C．S=Date D．L=\
23．在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。
其中，计时器有Timer1_Timer事件过程如下：
Private Sub Timer1_Timer() If >= Then = 0 + 50 End Sub
运行后，窗体中的现象是 23 。
A．仅框架框移动
B．框架框携带复选按钮和命令按钮同时移动 C．框架框携带复选按钮同时移动 D．框架框携带命令按钮同时移动
24．Loc函数作用是，返回一个 24 。
A．Long型数据，在已打开的文件中指定当前读／写位置 B．Long型数据，计算其文件长度 C．Integer型数据，表示文件号的范围
D．Long型数据，表示用Open语句打开的文件的大小
25．文件操作的一般顺序是 25 。
A．操作→关闭文件
B．打开文件→操作→关闭文件 C．打开文件→操作
D．打开文件→关闭文件→操作 26．运行下列程序：
Private Sub Form_Click() For i = 0 To 2
Print Tab(4 - i); String(i * 2 + 1, \ Next i Print End Sub
单击窗体后，则在窗体上显示的结果是 26 。
A．AAA B． AAA AAA AAA AAA AAA
C． A D．AAA AAA AAA AAAAA AAA 27．运行下列程序：
Private Sub form_Click()
x = InputBox(\请输入一个数：\ Select Case x
Case Is > 0: y = x + 1: x = y + 1 Case Is = 0: y = x + 2: x = y + 2 Case Else: y = x + 3: x = y + 3 End Select Print x; y End Sub
从键盘输入1，输出的结果是 27 。
A．3 2 B．2 3 C．2 2 D．1 4 28．在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件，数据文件的内容是
abc 10 20 30 efg 40 50 60
若运行程序，要在文本框中显示的内容是 28 。
Private Sub Form_Click()
Open \ Do Until EOF(10)
Line Input #10, lines = + Mid(lines, 5, 2) Loop Close #10 End Sub A．abc B．1040 C．efg D．10 20 29．运行下列程序：
Private Sub form_Click() Dim x x = 0
Do While x < 10 x = x + 3 Loop
MsgBox x End Sub
单击窗体后，则在窗体上显示的结果是 29 。
A．0 B．3 C．10 D．12 30．运行下列程序：
Private Sub form_Click()
s = InputBox(\请输入一个字符A：\ Select Case Asc(s) Case Is > 65
n = String(3, UCase(s)) Case Is = 65
n = String(3, LCase(s)) Case Else n = s End Select Print n End Sub
从键盘输入A，输出的结果是 30 。
A．aaa B．AAA C．65 D．a 二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分） 1．由Visual Basic系统中，引发事件的对象叫做 （1） 。 2．在中，CInt的函数值是 （2） 。
3．Stretch的属性只使用于 （3） 控件。
4．在用Open语句打开文件时，设定为二进制访问模式是 （4） 。
5．指示复选框处于选定、未选定或禁止状态(暗淡的)中的属性是 （5） 。 6．下列程序运行时，单击鼠标的右键时，窗体上打印出的数值是 （6） 。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls
Print Button
End Sub
7．下列程序运行后，输出的图形是一个 （7） 。
Private Sub Form_Click() Dim Cx, Cy
Cx = ScaleWidth / 2 Cy = ScaleHeight / 2
Line (Cx, 0)-(Cx, ScaleHeight) Line (0, Cy)-(ScaleWidth, Cy) End Sub
8．运行下列程序,单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 （8） 和 （9） 。
Private Sub Command1_Click() t = 1: x = 2: y = 3: z = 4
If t > 0 Or t = x And x <> y Or y > z Then t = fun1(t, z) Print t Else
t = fun1(x, y) Print t End If Print x Print y End Sub
Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer Do While y <> 0 t = x \\ y x = y y = t Loop fun1 = x End Function
9．当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是 （10） 。
Private Sub Form_Click() Dim x As Integer, y As Integer x = Val(InputBox(\输入整数72\ y = Val(InputBox(\输入整数24\ z = fun1(x, y) MsgBox Str(z) End Sub
Private Function fun1(ByVal a As Integer, ByVal b As Integer) As Integer Do
r = a Mod b a = b b = r Loop Until r = 0 fun1 = a End Function