内容发布更新时间 : 2024/5/19 8:55:26星期一 下面是文章的全部内容请认真阅读。

一台计算机完成的。

A．文件服务

B．消息服务 C．应用服务 D．打印服务

12．随着新型号微处理器的不断推出，它们的指令系统也发展变化。为了解决软件兼容性问题，通常采用“ 12 ”方式来开发新的处理器，即在新的处理器中保留老处理器的所有指令，同时扩充功能更强的新指令。

A．新老结合 B．向下兼容 C．不断更新 D．与时俱进

13． 13 负责对计算机系统的各类资源进行统一控制、管理、调度和监督，合理地组织计算机的工作流程。 A．操作系统 B．应用软件 C．语言处理程序 D．数据库管理系统 14．下列有关计算机网络的描述，不正确的是 14 。 A．计算机网络最有吸引力的功能是资源共享

B．计算机网络包含有三个组成部分：若干服务器(又叫主机)、一个通信子网和一系列通信协议 C．在网络传输介质中，双绞线的传输速率可达100Mb/s D．在家庭中，如果用电话线上网，则应使用调制解调器 15．怎样在计算机中描述乐谱呢？这就需要有一种标准的描述语言。目前普遍使用的标准叫 15 。

A．MIDI B．Rel C．MPEG D．JPEG 16．下列关于电子邮件的叙述中，不正确的是 16 。

A．向对方发送电子邮件时，并不要求对方计算机一定处于开机状态 B．发送电子邮件时，一次发送操作只能发送给一个接受者 C．可以发送文字、声音、图像等形式的文件 D．也可以向自己电子邮箱发送电子邮件

17．组成“北京”（拼音为BEIJING）、“南京”（拼音为NANJING）、“南宁”（拼音为NANNING）这三个词组的汉字均属于GB2312_80字符集中的一级汉字，则按机内码这三个词组从小到大排序的结果为 17 。

A．南宁、北京、南京 B．南京、南宁、北京 C．北京、南京、南宁 D．南宁、南京、北京

18．在使用IE浏览网页的时候，网页上的图片一般不会下载并保存在Windows的某个文件夹中。目前网页上使用的图片文件大多数为 18 格式文件。

A． BMP B．WMF C． TIF D．JPG

19．下列关于数据库系统特点的叙述中，正确的是 19 。

A．数据库避免了一切数据重复

B．数据的一致性是指数据库中的数据类型一致

C．数据库共享是指各类用户均可任意访问数据库中的数据

D．数据库减少了数据冗余

20．在Microsoft PowerPoint 97/2000/2003中，要播放演示文稿，正确的操作是执行 20 。

A．“视图”菜单中的“幻灯片放映”命令 B．“工具”菜单中的“观看放映”命令 C．“视图”菜单中的“幻灯片浏览”命令 D．“文件”菜单中的“开始”命令

21．下面关于Sub过程的说法，错误的是 21 。

A．不能用GoTo 语句进入或转出一个Sub过程 B．可以通过调用执行Sub过程，而且可以嵌套调用 C．Sub过程可以嵌套

D．在Sub过程内，不能定义Sub过程或Function过程 22．可以用InputBox函数产生“输入对话框”。若执行下列语句

s = InputBox(\请输入\一个\数字\

当用户输入完毕，按“确定\按钮后，s变量的内容是 22 。

A．请输入 B．一个 C．数字 D．用户输入内容 23．Sub过程与Function过程最根本的区别是 23 。

A．Function过程可以有参数，Sub过程不可以 B．两种过程参数的传递方式不同

C．Sub过程无返回值，但Function过程有返回值

D．Sub过程是语句级调用，可以使用Call或直接使用过程名，Function过程是在表达式中调用 24．打开顺序文件时，下列叙述正确的是 24 。

A．选用Input模式，文件不存在时，将会产生一个错误 B．选用Append模式，文件不存在时，将会产生一个错误 C．选用Output模式，文件不存在时，将会产生一个错误 D．必须用Len参数指定缓冲区的字符数

25．能在窗体的文本框Text1中显示“祝你成功”的语句是 25 。

A．Text= \祝你成功\

B．Text1= \祝你成功\

C．Text1 \祝你成功\ D． \祝你成功\26．窗体上有一个通用对话框控件CommonDialog1，有下列语句：

= ShowSave

其表示为 26 。

A．显示“打开”对话框 B．显示“另存为”对话框 C．显示“颜色”对话框 D．显示“字体”对话框 27．运行下列程序：

Private Sub form_Click() x$ = \ n = Len(x) For i = 1 To n

Print Mid(x$, n + 1 - i, 1) + Mid(y$, i, 1); Next i Print End Sub

单击窗体后，则输出结果是 27 。

A．a1b2c3 B．a3b2c1 C．3a2b1c D．1c2b3a 28．运行下列程序：

Private Sub form_Click() For i = 1 To 4 t = t * 10 + i s = s + t Next i Print s End Sub

单击窗体后，则输出结果是 28 。

A．1234 B．4321 C．1370 D．4444 29．运行下列程序：

Private Sub Form_Click() For i = 3 To 1 Step -1 For j = 2 To 1 Step -1

\ Next j Next i End Sub

单击窗体后，则在立即窗口内显示结果是 29 。

A．AAA*A**A*** B．AAA*A*A**A** C．A*A*A*A*A*A* D．A*** 30．运行下列程序：

Private Sub Form_Click() For i = 1 To 3

Print Spc(3); (2 * i + 1) * (2 * i - 1); Next i Print End Sub

单击窗体后，则在窗体上显示的结果是 30

A．1 2 3 B．3 3 3 15 3 35 C．3 15 35 D．3 2 1 二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分） 1．一个以连字符“-”作为它的Caption属性的菜单控件，作为一个 （1） 出现。 2．以下所列的7个控件中，具有Caption属性的有 （2） 个。

PictureBox（图片框）、Frame（框架）、OptionButton（单选按钮）、ListBox（列表框）、TextBox（文本框）、Form（窗体）、CommandButton（命令按钮）

3．下列程序运后，当单击鼠标的左键时，在窗口打印的结果是 （3） 。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print Format, \End Sub

4．使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑定的控件和数据提供者之间的连接，应该使用 （4） 控件。

5．运行下列程序，单击窗体后在窗体上显示第三行和第四行的结果分别是是 （5） 。和 （6） 。

Private Sub Form_Click() Dim x As Integer

Dim i As Integer, j As Integer i = 1: j = 1: x = 0 Do Do

x = x + j j = j + 2 Loop Until j > 4 i = i + 1 Print i Loop While i < 4 Print x End Sub

6．执行下列的程序，单击窗体后在窗体上打印的结果是 （7） 。

Private Sub Form_Click() Dim s1 As String, I As Integer s1= \

For I = Len(s1) To 1 Step -1

s1 = s1 & Chr(Asc(Mid(s1, I, 1)) + I) Next I Print s1 End Sub

7．当程序运行单击窗体后，则在窗体上显示的结果是 （8） 。

Private Sub form_Click()

Dim x As Integer, y As Integer, z As Integer x = -2: y = 2 For I = 1 To 3 Select Case x Case Is < 0 x = x + 3 Case 1 To 10

z = x + 10: x = y + 10: y = z + 10 Case Else x = y Mod 5 End Select Next I Print x End Sub

8．当程序运行单击窗体后。则在窗体上显示的结果是 （9） 。

Private Sub form_Click()

Dim s1 As String, s2 As String, s As Integer Dim i As Integer s1 = \ s = 0

For i = 1 To Len(s1)

s = s + InStr(s1, Chr(i + 96)) Next i Print s End Sub

9．下列程序运行的sum结果为 （10） 。执行完该程序后，共循环了 （11） 次。

Private Sub form_Click()

Dim sum As Integer, i As Integer, j As Integer For i = l To 5 Step 2 For j = 1 To 3 Step 2 sum = sum + i Next j Next i Print sum End Sub

10．当程序运行单击窗体后。则在窗体上显示的结果是 （12） 。

Private Sub form_Click() Dim k As Integer, s As Integer Dim i As Integer k = 1111 s = 0

For i = 1 To Len(CStr(k)) k = k \\ 10 s = s + k Next i Print s End Sub

11．用牛顿迭代法求函数f(x)=2x3-2x2+5x-2=0在x=0附近的一个实根，已知函数的导数公式为f'(x)=6*x2-4x+5，迭代公式为x=x-f(x)/f'(x)，其计算误差为|f(x)|<10-6。请将下列程序补充完整。程序如下：

Private Sub form_Click() Dim x As Single, y As Single x = 0 y = fun1(x)

Do While （13） x = x - y / fun2(x) y = fun1(x) Loop

Print \End Sub

Private Function fun1(x As Single) As Single fun1 = 2 * x * x * x - 2 * x * x + 5 * x - 2 End Function