内容发布更新时间 : 2024/5/12 15:20:51星期一 下面是文章的全部内容请认真阅读。
A． TCP/IP B． WWW C．DNS
D．ADSL
15．计算机网络有两种基本的工作模式：对等模式和 15 模式。
A．不对等 B．QQ C．C/S
D．传奇
16．电子邮件的特点之一是 16 。
A．在通信双方的计算机都开机工作的情况下方可快速传递数字信息 B．比邮政信函、电报、电话、传真都更快
C．只要在通信双方的计算机之间建立起直接的通信线路后，便可快速传递数字信息 D．采用存储—转发方式在网络上逐步传递信息，不像电话那样直接，但费用较低 17．下列有关Unicode汉字编码标准（字符集）中，叙述不正确的是 17 。
A．Unicode 编码的长度为16位
B．Unicode收录了一万多个汉字及符号 C．Windows支持Unicode编码
D．Unicode中包含拉丁字母和音节符号
18．计算机中的数字图像按其生成方法可以分为两类：一类是从现实世界中通过扫描仪、数码相机等设备获取的，称为 18 ；另一类是使用计算机合成的，称为图形。
A．图形 B．图案
C．图片
D．图像
19．对于信息系统的说法中，不正确的是 19 。 A．GIS就是地理信息系统
B．制造资源计划系统记为MRP C．ERP是企业资源计划的简称
D．电子商务（简称：EC）是指对整个贸易活动实现电子化
20．在Microsfot PowerPoint 97/2000/2003中，在幻灯片的“动作设置”对话框中设置的超级链接对象不允许是 20 。
A．下一张幻灯片 B．一个应用程序 C．幻灯片中的某一对象 D．其他演示文稿 21．下面有关文件管理控件的说法，错误的是 21 。
A．改变驱动器列表框的ListIndex属性值，会改变Drive属性值并触发Change事件 B．Drive属性只能用程序代码设置，不能通过属性窗口设置
C．在程序执行期间，驱动器列表框下拉显示系统所拥有的驱动器名称 D．ChDir语句改变缺省目录位置的同时，改变缺省驱动器位置
22．“工程资源管理器”窗口又称为“工程浏览器”窗口，在窗口中会列出当前工程的所有 22 。
A．变量和常数 B．变量和数组 C．窗体和模块 D．过程和事件 23．窗体上仅有一个文本框Text1，当执行程序后按下键盘“a”键时打印出的结果是 23 。
Private Sub Text1_KeyDown(KeyCode As Integer, ShIft As Integer) key1 = KeyCode > 0 Print key1 End Sub A．True
B．False
C．65
D．0
24．关于Close语句的叙述正确的是 24 。
A．执行Close语句后，所有打开的文件也会自动关闭。
B．打开文件后，必须要用Close语句关闭文件，否则当程序结束时，产生一个错误 C．执行Close语句后，程序将关闭所有窗口
D．执行Close语句后，每次只能关闭一个文件，否则要用Reset语句 25．下列操作中不能向工程中添加窗体的是 25 。
A．执行“工程”菜单中的“添加窗体”命令 B．单击工具栏上的“添加窗体”按钮
C．右击窗体，在弹出的菜单中选择“添加窗体”命令
D．右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令。 26．运行下列程序：
Private Sub form_Click() For i = 1 To 2 x = 1
For j = 1 To 3 x = 5
For k = 1 To 4 x = x + 2
Next k Next j Next i Print x End Sub
单击窗体后，则输出结果是 26 。
A．5 B．13 C．25 D．48
27．运行下列程序：
Private Sub form_Click()
Dim sl As String, s2 As String s1 = \ m = 0
For i = 3 To 1 Step -1 m = m + 1
s2 = fun1(s1, m) s2; Next i End Sub
Private Function fun1(x, y) As String fun1 = Right(x, y) End Function
单击窗体后，则在立即窗口内显示结果是 27 。
A．1234 B．4321 28．运行下列程序：
Dim x, y
Private Sub Form_Click() x = 1: y = 1: z = 1 fun1 (1) Print x; y; z End Sub
Private Sub fun1(a)
x = a + x: y = a + x: z = a + y End Sub
单击窗体后，则输出结果是 28 。
A．1 1 1 B．2 3 1 29．运行下列程序：
Private Sub Form_Click() a$ = 2 b$ = 1
Call abcd(a, b, c$, d$) Print c; d End Sub
Private Sub abcd(x$, y$, z$, s$) z = x + y s = x - y End Sub
单击窗体后，则在窗体上显示的结果是 29 。
A．3 1 C．211 30．运行下列程序：
Private Sub Form_Click() a = 3
t = InputBox(\请输入一个整数\ Select Case t Case Is > 0 b = a + l Case Is = 0 b = a + 2 Case Else b = a + 5 End Select Print a; b End Sub
从键盘输入5，在窗体上显示的结果是 30 。
A．1 5 B．3 3 C．434234 C．2 3 4 B．1 3 D．显示出错信息 C．1 1
D．1111
D．2 2 1
D．5 5
二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）
1．用Dim x, y As integer定义的x变量类型是 （1） 。
2．为了在TextBox上定制滚动条组合，需要设置属性是 （2） 。
3．运行下列程序，单击窗体，则在窗体上显示的第一行是 （3） ，第二行是 （4） ，第三行是 （5） 。
Private Sub Form_Click()
Dim m As Integer, s1 As String, k As Integer, s2 As String m = 99 Do
s2 = m Mod 7 s1 = s1 & s2 m = m \\ 5 Loop Until m < 10 s1 = s1 & m Print m Print s1 s2 = \
For k = Len(s1) To 1 Step -1 s2 = s2 & Mid(s1, k, 1) Next k Print s2 End Sub
4．下列程序运后，当单击鼠标的左键时，在窗口打印的结果是 （6） 。
Private Sub Form_MouseUp(Button As Integer, ShIft As Integer, X As Single, Y As Single) Print Format, “##,##”) End Sub 5．当程序运行单击窗体后。则在窗体上显示的结果是 （7） 。
Private Sub form_Click() Dim x As Integer x = 1 For i = 1 To 4
If x <= 1 Then x = 2 + x If x <= 2 Then x = 2 - x If x <= 3 Then x = 4 * x If x >= 4 Then x = x / 2 Print x; Next i
End Sub
6．执行下列的程序，单击窗体后在窗体上打印的结果是 （8） 。
Private Sub Form_Click()
Dim s1 As String, s2 As String Dim s3 As String, I As Integer s1 = \
For I = 1 To 2
s2 = UCase(s1) s1 = s2 + s1 s3 = s3 + s1
s1 = Chr(Asc(s1) + I) Next I Print s3 End Sub
7．运行下列程序：
Option Explicit
Private Sub Form_Click()
Dim n As Integer, i As Integer n = 1
For i = 1 To 3
Call sub1(i, n) Print n Next i End Sub
Private Sub sub1(ByVal x As Integer, y As Integer) Static n As Integer Dim i As Integer For i = 1 To 3 n = n + x x = x - 1 Next i y = y + n End Sub
单击窗体后，则在窗体输出的第二行和第三行的值分别是 （9） 和 （10） 。
8．下列程序的功能是，系统随机产生10个两位数的正整数，然后将求其最大数。给定的程序不完整，将程序补充完整。
Option Base 1
Private Sub form_Click() Dim i As Integer Dim x(10)
For i = 1 To UBound(x)
x(i) = Int(Rnd * 90) + 10 Next i
（11）
For i = 2 To UBound(x)
If Max < x(i) Then （12） Next i Print Max End Sub
9．下列程序的功能是：从文本框Text1中读入一个正整数，将在窗体上打印各位数之和。例如123为1＋2＋3＝6。给定的程序不完整，将程序补充完整。
Private Sub Command1_Click() Dim s As String s =
Print fun1(s, （13） ) End Sub
Private Function fun1(p As String, n As Integer) As Integer Dim sum As Integer, k As Integer sum = 0 k = 1
Do While k <= n
sum = sum + Val(Mid(p, k, 1)) k = k + 1 Loop
（14） End Function
10．下列程序的功能是：将文本框Texe1中的字符串下标为奇数，且ASCII码值为偶数的字符删除，将剩余字符在图片框Pic1中显示出来。程序结果运行如图1所示，给定的程序不完整，将程序补充完整。
图1
Option Base 1
Private Sub Form_Click()
Dim s As String, i As Integer, t As String s = （15） t = \
For i = 2 To Len(s) Step 2 p = Mid(s, i, 1)
If Asc(p) Mod 2 = 1 Then t = （16） End If Next i t End Sub
11．运行下列程序：
Private Sub Form_Click()