2007年秋季江苏省等级考试vb考试真题

2007年秋季江苏省等级考试vb考试真题





2007年秋季江苏省等级考试vb考试真题
2007年秋季vb考试真题
1． 下面关于比特的叙述中，错误的是( 1 )
A．比特是组成数字信息的最小单位
B．比特只有“0”和“1”两个符号
C．比特既可以表示数值和文字，也可以表示图像和声音
D. 比特”1”总是大于比特“0”
2． 在下列有关集成电路的叙述中，错误的是 ( 2 )
A．现代集成电路使用的半导体材料主要是硅
B．大觑模集成电路一般以功能部件、子系统为集成对象
C．我国第2代居民身份证中包含有IC芯片
D• 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右
3． 在下列有关通信技术的叙述中，错误的是 ( 3 )
A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成
B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信
C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率
D•学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质
4.下面是关于PC机主存储器的一些叙述，其中正确的是( 4 )
A.主存储器是一种动态随机存取存储器(RAM)
B.主存储器的基本编址单位是字(即32个二进位)
C.目前市场上销售的PC机，其内存容量可达数十GB
D.所有PC机的内存条都是通用的：可以互换
5． 现行PC机中，IDE(或SATA)接口标准主要用于( 5 )
A．打印机与主机的连接 C．声卡与主机的连接
B．显示器与主机的连接 D．硬盘与主机的连接
6. 下列有关PC机的CPU、内存和主板的叙述中，正确的是( 6 ) 。
A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片
B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分
C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关
D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息
7.下列有关目前Pc机辅助存储器的叙述中，错误的是 ( 7 )
A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多
B．硬盘的内部传输速率一般小于外部传输速率
c．优盘采用Flash存储器技术，属于半导体存储器
D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱
8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是 ( 8 ) 。
A．Windows操作系统支持系统中多个任务的

并发执行
B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况
C．系统规定文件名最多由128个字符组成
D．Vista是Microsoft公司推出的Windows XP操作系统的后继版本
9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是 ( 9 ) 。
A． 算法必须产生正确的结果 C． 算法可以没有输出
B． 算法必须具有确定性 D．算法的表示必须使计算机能理解
10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机
都有一个IP地址。下面不能作为IP地址的是( 10 )
A． 120．34．0．18 C． 21．18．33．48
B. 201.256.39.68 D． 37．250．68．0
11.常用局域网有以太网、FDDI网等，下面的叙述中错误的是 ( 11 )
A• 总线式以太网采用带冲突检测载波侦听多路访问(CSMA/CD)方法进行通信
B． FDDI网和以太网可以直接进行互连
C• 交换式集线器比总线式集线器具有更高的性能，它能提高整个网络的带宽．
D• FDDI网采用光纤双环结构，具有高可靠性和数据传输的保密性
12.某用户在WWW浏览器地址栏内键入一个URL“/index.htm”，其中
的“/index.htm”代表( 12 )
A．协议类型 C．路径及文件名
B．主机域名 D．用户名
13.交换式以太网与总线式以太网在技术上有许多相同之处，下面叙述中错误的是( 13 )
A.使用的传输介质相同 C.传输的信息帧格式相同
B.网络拓扑结构相同 D.使用的网卡相同
14.下面是关于我国汉字编码标准的叙述，其中正确的是 ( 14 )
A．Unicode是我国最新发布的也是收字最多的汉字编码国家标准
B．不同字型(如宋体、楷体等)的同一个汉字在计算机中的内码不同
C．在GBl8030汉字编码标准中，共有2万多个汉字
D．GBl8030与GB2312、GBK汉字编码标准不能兼容
15．数字图像的文件格式有多种，下列哪一种图像文件能够在网页上发布且可具有动画效
果( 15 )
A．BMP B．GIF C．JPEG D．TIF
16．声卡是获取数字声音的重要设备，．在下列有关声卡的叙述中，错误的是
A．声卡既负责声音的数字化(输入)，也负责声音的重建(输出)
B．声卡既处理波形声音，也负责MIDI音乐的合成 。
C．声卡中的数字信号处理器(DSP)在完成数字声音编码、解码及编辑操作中起着重
要的作用
D．因为声卡非常复杂，所以它们都被做成独立的PCI插卡形式
17．

彩色图像所使用的颜色描述方法称为颜色模型。显示器使用的颜色模型为RGB三基色模
型，PAL制式的电视系统在传输图像时所使用的颜色模型为
A．YUV B．HSB C．CMYK
18．在信息系统的结构化生命周期开发方法中，绘制E-R图属于( 18 )阶段的工作
A．系统规划 B． 系统分析
C．系统设计 D． 系统实施
19．在下列有关Microsoft Word 2000／2003(中文版)功能的叙述中，( 19 )
A．起始页的页码可以不为1
B．利用菜单命令，可更改所选英文文本的大小写
C．利用菜单命令“字数统计”，可以统计出当前文档的行数和段落数
D．表格中的数据不可排序，也不能利用公式进行统计计算
20．在下列有关Microsoft PowerPoint 2001/2003(中文版)功能的叙述中，错误的是( )
A．可通过“另存为”操作，将每张幻灯片保存为一个图片文件
B．幻灯片的大小是固定的，用户不可以对其进行设置
C．在排练计时的基础上，可以将幻灯片设置为循环放映
D．可以对字体进行替换，例如将幻灯片中的“宋体”替换为“楷体”

21.下列语句中，正确的是__________
A．Textl．SetFocus B．Forml．Clear C．Labell．SetFocus D．Listl．Cls
22．创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入_________。


A．文件($F) B．文件(&F) C．文件(#F) D．文件(％F)
23．数学表达式的VB算术表达式为_______ 。
A．Sin(27)+Sqr(X+Exp3)／(X+Y)
B．Sin(27*3．14159／180)+Sqr(X+Exp(3))／Abs(X+y)
C．Sin(27*3．14159／180)+Sqr(X+e^3)／Abs(X+Y)
D．Sin(27*pi／180)+Sqr(X+Exp(3)／Abs(X+Y)
24．以下说法不正确的是____________。
A．使用不带关键字Preserve的ReDim语句可以重新定义数组的维数
B．使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界
c．使用不带关键字Preserve的ReDim语句可以改变数组的数据类型
D．使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化
25．下列____________是合法的变量名。
A．abs B．-al C．cdc d D．Abe_10
26．要向文件datal．txt添加数据，正确的文件打开命令是_____________。
A．Open”datal．txt”For Output As #1
B．Open”datal．txt”For Input As #1
C．Open”datal．txt”For Append As #5
D．Open“datal．txt“ For Write As #5
27．以下对数组参数的说明中，错误的是___________ 。
A．在过程中可以用Dim语句对形参数组进

行声明
B．形参数组只能按地址传递
c．实参为动态数组时，可用ReDim语句改变对应形参数组的维界
D．只需把要传递的数组名作为实参，即可调用过程
28．设a=3，b=2，c=1，运行print a>b>c的结果是____________。
A．True B．False C．1 D．出错
29．下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________。
①Val(Right(X，1)&Left(X，1))
②Val(Right(Str(X)，1)＆Left(Str(X)，1))
③Val(Right(CStr(X)，1)＆Left(CStr(X)，1))
④Val(Mid(X，2，1)+Mid(X，1，1))
A．①② B．②③ c．②④ D．①③④
30．下列______是正确的VB常量。
A．D-6 B．E-6 C．5D D．5E-6

二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)
1．执行下面程序，单击Commandl，则窗体上显示的第一行是 (1) ，第二行是
(3) ，第三行是(3) 。
Option Explicit
Private Sub Commandl—Click()
Dim a As String，i As Integer
Dim X As String，z As String
a=’’iamstudent’’
i=InStr(5，a，”d”)
Do
x=Mid(a，i，3)
z=Right(X，1)
z=UCase(x＆Z)
i=i-2
Print z
Loop Until i=1
End Sub
2．执行以下程序，单击Commandl，则在Picturel上显示的第一行是 (4) ，第二行是(5) ，第三行是(6) 。
Option Explicit
Private Sub Commandl_Click()
Dim A(3，3)As Integer，i As Integer，J As Integer
Dim k As Integer
i=3：j=2：A(i，j)=l：k=1
Do Until k>9
k=k+1
If i+1>3 Aod j+1<=3 Then
i=1：J=j+1
ElseIf i+1<=3 And j+1>3 Then
i=i+1：j=1
Elself i+1>3 And j+1>3 Then
i=i-1
ElseIf i+1<=3 And j+1<=3 And A(i+1，j+1)<>0 Then
i=i-1
Else
i=i+1：j=j +1
End If
A(i,j)=k
Loop
For i=1 To 3
For j=1 To 3
Picture1.Print A(i,J);
Next J
Next I
End Sub
3．执行下面的程序，单击Commandl，则窗体上第一行显示的是 (7) ，第二行显示的
是(8) 。
Option Explicit
Dim X As Integer
Private Sub Commandl_Click()
Dim Y as Integer
X=10：Y=2
Call process(Y)
Print X，Y
Call process((Y))
Print X，Y
End Sub

Private Sub process(n As Integer)
Dim Y As Integer
If n>0 Then
X=X—n
Y=X
Else
X=X+n
Y=X+2
End If
n=-n
End Sub
4．执行下面的程序，连续三次单击命令按钮Commandl之后，A数组共有 (9) 个元
素；数组元素A(2)的值是(10) ，A(4)的值是．(11) 。
Option Explicit
Option Base 1
Private Sub Commandl_Click()
Static A()As Integer，n As Integer
Dim i As Integer，k As Integer
k=n ‘
n=n +2
ReDim Preserve A(n)
For i=k+1 To n
A(i)=i*n+1
Next i
For i=1 To n
Print A(i)；
Next i
Print
End Sub
5．执行下面的程序，单击Commandl，在窗体界面上显示的第一行是 (12) ，第二行是 (13) ，第三行是(14)
，第四行是(15) 。
Option Explicit
Private Sub Commandl_Click()
Dim a As Integer，b As Integer，i As Integer
i=1218
a=i\100
b=i Mod 100
If b<>0 Then
Print a
Print b
． Print Lcd((a)，(b))；a；b
Print Lcd(a，b)；a；b
End If
End Sub
Private Function Lcd(x As Integer，Y As Integer)As Integer
Dim d As Integer ’
If x
d=x：x = Y：Y = d
End If
d=X
Do
If x Mod Y=0 Then
Lcd=x
Exit Do
Else
X=x+d
End If
Loop
End Function
6.本程序的功能是利用无穷级数求cos(x)的近似值,已知:

当第n项的绝对值小于等于10^-7时计算终止。
Option Explicit
Private Sub Commandl_Click()
Dim X As Single，n As Integer，sum As Single
Dim a As Single
x=Textl
( 16 )
a=1
n=1
Do
a=-a
a=( 17 )
sum=sum+a
n=n+1
Loop Until( 18 )
Text2=sum
End Sub
7．定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。以下程序的功能
是求一个4×4方阵的范数。该方阵的数据是随机生成的-20～20之间的整数。
Option Explicit


Option Base 1
Private Sub Commandl_Click()
Dim a(4，4) As Integer
Dim i As Integer，j As Integer
For i=1 T0 4

For j=1 To 4
a(i，j)= ( 19 )
Picturel．Print Right(" "
&Str(a(i，j))，4)；
Next j
Picturel．Print
Next i
Textl.Text= ( 20 )
End Sub
Private Function fan(a()As Integer)As Integer
Dim b(4) As Integer，max As Integer
Dim i As Integer，j As Integer
For i=1 To 4
For j=1 To 4
b(j)=( 21 )
Next J
Next i
max=b(1)
For i=2 To 4
If max
Next i
fan=max
End Function


8．下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不
同数字组成。算法提示：函数Validate用于验证一个4位数是否由4个不同数字组成。在函
数中用A数组的各个元素分别对应数字0～9，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。
Option Explicit
Private Sub Commandl_Click()
Dim i As Integer，Flg As Boolean
For i=1234 To 4321
( 22 )
Call Prime(i，Flg)
If Flg Then
If Validate(i)Then
Textl=Textl & i & vbCrLf
． End If
End If
Next i
End Sub
Private Sub Prime(n As Integer，f As Boolean)
Dim k As Integer
For k=2 To Sqr(n)
( 23 )
Next k
f=True
End Sub
Private Function Validate(n As Integer)As Boolean
Dim A(0 To 9)As Integer，s As String，i As Integer
Dim sl As String*1
． ( 24 )
For i=1 To Len(s)
sl=Mid(s，i，1)
( 25 )
Next i
If A(1)+A(2)+A(3)+A(4)=4 Then
( 26 )
End If
End Function

9．下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。
Option Explicit
Dim a( )As Integer
Private Sub Form_Activate()
Dim i As Integer
ReDim a(10)
For i=1 To 10
a(i)=(i-1)*10+1
Textl=Textl & Str(a(i))
Next i
Text2.SetFocus
End Sub
Private Sub Commandl_Click()
Dim n As Integer，i As Integer
n=Text2
For i=1 To UBound(a)
If ( 27 )Then Exit For
Next i
( 28 )
For i=1 To UBound(a)
Text3=Text3 & Str(a(i))
Next i
End Sub
Private Sub ins

t(P()As Integer，n As Integer，k As Integer)
'数组元素移位并实现插入
Dim i As Integer
( 29 )
For i=UBound(P)-l To k Step -1
( 30 )
Next i
P(k)=n
End Sub
参考答案:
21.A22.B 23.B.24.C.25.D.26.C27A28B29D30D
填空
(1)DENN(2)TUDD(3)MSTT(4)4 9 2(5)3 5 7 (6)8 1 6 (7)8 -2 (8)6 -2 (9)6
(10)5 (11)17 (12)12 (13)18 (14)36 12 18 (15)36 36 12 (16)sum=1
(17)a*x*x/(2*n*(2*n-1)) (18)Abs(a)<=0.0000001 (19)Int(Rnd*41)-20
(20)fan(a) (21)b(j)+Abs(a(i,j)) (22)Flg=False
(23)If n Mod k=0 Then Exit Sub (24)s=Cstr(n)或s=n (25)A(Val(s1))=1或A(s1)=1
(26)Validate=True (27)n (28)Call Inst(a,n,i)或inst a,n,i (29)Redim
Preserve p(UBound(p)+1) (30)p(i+1)=p(i)
二：编程题目(26分)
编写一个查找介于整数A、B之间所有同构数的程序，若一个数出现在自己平方数的右端，则称此数为同构数，例如：5在5^2=25的右端，25在25^2=625的右端，故5和25为同构数
4098