江苏省计算机二级VB试题及答案 下载本文

一台计算机完成的。

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