2023年江苏省计算机二级VB试卷.doc

春江苏省计算机二级VB试卷
1．下面关于通信技术论述中，错误是 ___1___ 。
A．任何一种通信系统均有信源、信道和信宿这三个基本构成某些
B．为了实现远距离传播信息，在模仿通信和数字通信中均采用载波技术
C．为了减少传播信息成本，在通信中广泛采用多路复用技术
D．数字通信系统一种重要性能参数是信道带宽,它指实际进行数据传播时单位时间内传播二进位数目
2．在下列关于集成电路及其应用论述中，错误是 ___2___ 。
A．集成电路制造工序繁多，工艺复杂且技术难度高
B．通过抛光后硅片称为晶圆，每个晶圆最多可以制成一种合格集成电路芯片
C．IC卡分为接触式IC卡和非接触式IC卡，后者普通又称为射频卡或感应卡
D．集成电路应用十分广泛，当前国内第2代居民身份证中就有集成电路芯片
3．在下列关于数字技术某些论述中，错误是 _____3_____ 。
A．数字技术是采用有限个状态(例如"0"和"1")来表达、解决、存储和传播信息
B．在逻辑代数中，1与1进行逻辑加(V)和逻辑乘(^)成果相似
C．任何一种十进制数，均可以精确地转换成等值二进制数
D．在PC机中，通惯用原码表达正整数、用补码表达负整数
4． 在下列关于PC机主机论述中，错误是___4___ 。
A．BIOS和CMOS存储器安装在主板上，普通顾客普通不能自己更换
B．由于PC机主板物理尺寸等没有原则化，因此不同PC机主板均不能互换
C．芯片组是PC机各构成某些互相连接和通信枢纽，普通由2块VLSI芯片构成
D．芯片组决定了主板上所能安装内存最大容量、速度及可使用内存条类型
5． 在下列4个Intel微解决器产品中，采用双核构造是 _____5_____ 。
A. Core 2 Duo B．Pentium PRO C．Pentium III D．Pentium 4
6． 在下列四种PC机主存储器类型中，当前惯用是 _____6_____ 。
A．EDODRAM B．SDRAM C．RDRAM D．DDR SDRAM
7． 在下列关于PC机惯用I/O接口论述中，错误是 7 。
A． 当前显卡与显示屏接口大多采用VGA接口
B. 可用于连接鼠标器USB接口和PS/2接口数据传播方式均是串行传播方式
C. USB接口连接器有4个引脚，其中1个引脚可获得由主机提供+1.5V电源
D． IEEE-1394b接口也是PC机惯用一种高速接口
8． 在下列关于PC机外存储器论述中，错误是 8 。
A．由于数据存取速度慢、容量小等因素，软盘存储器已逐渐被淘汰
B. 所有硬盘都是由2个或2个以上盘片构成，硬盘中盘面数为盘片数2倍
C．当前有些优盘产品可以模仿软盘和硬盘启动操作系统
D. 当前常用组合光驱(“康宝”)既有DVD只读光驱功能，又有CD光盘刻录机功能
9． 在下列关于光盘存储容量论述中，错误是 9 。
A．80ram CD存储容量大约为200多兆字节
B．120mm CD存储容量大约为600多兆字节
C．单面单层120mm DVD存储容量大约为4.7GB
D．单面单层120mm蓝光光盘存储容量大约为17GB
10．在下列关于Windows系列操作系统及其功能论述中，错误是 10 。
A.Windows操作系统采用并发多任务方式支持系统中各种任务执行
B.Windows XP分为各种版本，它们可用于不同计算机和不同应用
C.与Windows XP相比，Windows Vista做了许多改善，但其硬件运营环境规定较高
D.无论是硬盘还是光盘，它们均采用相似文献系统，即FAT文献系统
11．在下列惯用应用软件中，不能对编辑文档设立密码是 11 。
A．Microsoft Word B．Microsoft Excel
C．Microsoft PowerPoint D．Microsoft FrontPage
12．在下列关于无线局域网论述中，错误是 12 。
A.在无线局域网中，无线接入点事实上是一种无线互换机，在室内覆盖距离可达几十米
B.当前无线局域网可采用协议有Wi-Fi和蓝牙等，后者数据传播速率比前者更高
C.若某电脑贴有Intel公司"Centrino"(迅驰)标记，则该电脑应有集成无线网卡
D.无线网卡有各种类型，例如PCI无线网卡、USB无线网卡等
13．IP地址分为A、B、C、D、E五类。下列4个IP地址中，属于C类地址是 13
A． 1.110.24.2 B． 202.119.23.12 C． 130.24.35.68 D． 26.10.35.4R
14．因特网上有许多不同构造局域网和广域网互相连接在一起，它们能互相通信并协调工作基本是由于都采用了 ______14______
A．ATM协议 B．TCP/lP协议 C．X.25协议 D．NetBIOS协议
15．下列关于因特网接入论述中，错误是______15______ 。
A．采用电话拨号接入时,数据传播速率只能达几十kbps
B．采用ADSL接入时，网络下行数据传播速率普通高于上行数据传播速率 ．
C．采用ADSL接入时，只需要ADSL调制解调器，不需要使用网卡
D．采用有线电视接入时，各种终端顾客将共享连接段线路带宽
16．在下列关于字符集及其编码论述中，错误是 ______16______ 。
A.在国内台湾地区使用中文编码原则重要是GBK，该原则中收录了大量繁体中文
B．GBl8030原则中收录中文数目超过2万，Windows XP操作系统支持该原则
C．Unicode字符集中既收录了大量简体中文，也收录了大量繁体中文
D．GB2312是国内颁布第一种中文编码原则，该字符集还收录了俄文、希腊字母等
17．若一幅图像大小为1024×768，颜色深度为16位，则该图像在不进行数据压缩时，其数据量大约为______17______ 。
A．768KB B．1.5MB C．3MB D．12.3MB
18．在下列4种类型数字化声音文献中，不也许涉及人说话声音是 18 。
A. WAV B．MP3 C．MID D．WMA
19．在下列关于数字视频论述中，错误是 19 。
A．PC机所使用视频卡能将输入模仿视频信号进行数字化
B．当前使用摄像头获取视频信息时,不需要使用专门视频卡
C.数字视频在数据压缩时只能使用MPEG原则，DVD就是采用MPEG一4原则压缩
D．计算机动画是一种合成视频，这种技术是发展动漫产业基本
20.下列是几种常用电子商务分类办法。若将电子商务分为B-C、B-B等类型，则该分类是 ______20______ 。
A．按交易双方进行分类 B．按使用网络类型分类
C．按交易商品性质分类 D．按交易商品规模分类
21.关于窗体，如下论述中对的是 21 。
A.仅当窗体上没有可以获得焦点控件时，窗体才可以获得焦点
B.一种VB工程只能从某个指定窗体开始启动
C.只有窗体可以作为控件容器
D.Unload Me和End语句效果总是等同
22.若a为长整型变量，则执行a=12 ：Print Len(a);Len(Str(a))；Len(CStr(a))后，在窗体上看到是 22 。
A.4 2 3 B.2 3 2 C.4 3 2 D.2 2 3
23.数学表达式 相应visual Basic表达式是 23 。
A.Cos(30*3.14159/180)/(4*y+Ln(x))+Exp(2)
B.Cos(30*3.14159/180)/(4*y+Log(x))+Exp(2)
C.Cos(30*3.14159/180)/(4*y+Ln(x))+e^2
D.Cos(30)/(4*y+Log(x))+e^2
24.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)值是 24 。
A.-8 B.-7 C.-6 D.-5
25.如下说法中，错误是 25 。
A.使用缺省Preserve核心字ReDim语句可以变化数组维数和大小
B.ReDim语句只能出当前过程中
c.使用ReDim语句重新定义动态数组，只能比原数组大
D.使用ReDim语句可以对动态数组所有元素进行初始化
26.下列关于菜单说法中，错误是. 26 。
A.可觉得菜单项选定快捷键
B.若在"标题"文本框中键入连字符(一)，则可在菜单两个菜单命令项之间加一条分隔线
C.除了Click事件之外，菜单项还可以响应其她事件
D.菜单编辑器"名称"文本框用于输入菜单项名称
27.如下关于过程中形式参数描述中，错误是 27 。
A.函数过程可以没有形式参数 B.事件过程一定没有形式参数
C.形参数组只能按地址与实参数组结合 D.窗体与控件也可以作为过程参数
28.如下表达式中，可以表达"A和B之一不不大于0"是 28 。
①A*B<=0 ②A>0 Xor B>0 ③A>0 Or B>0 ④A>0 And B<=0 Or B>0 And A<=0
A．①③ B．③④ C．②④ D．①②④
29．设变量A为长整型，则下面不能正常执行语句是 29 。
A．A=32768*2 B．A=2*1.5*16384 C．A=16384*2 D．A=190^2
30．如下关于滚动条控件(ScrollBar)说法中错误是 30 。
A．只能在设计时设立Max与Min属性值
B．Value属性返回滚动条内滑块当前所处位置值
C．拖动滚动条内滑块时，将触发滚动条Scroll事件
D．单击滚动箭头时，将触发滚动条Change事件
二:填空题
1.执行下面程序后,A(1,4)值是_（1）_,A(2,3)值是__（2）_,A(3,2)值是 （3） 。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(4，4) As Integer，ub As Integer
Dim i As Integer，j As Integer，n As Integer
ub = UBound(a，1)
n = 0
For i = ub To 1 Step -1
For j = 1 To ub + 1 - i
n = n + 1
a(j，j + i - 1) = n
Next j
Next i
For i = ub To 2 Step -1
For j = ub To i Step -1
a(j，j - i + 1) = a(5 - j，4 - j + i)
Next j
Next i
For i = 1 To ub
For j = 1 To ub
Picture1.Print a(i，j);
Next j
Picture1.Print
Next i
End Sub
2.在InputBox函数对话框中输入4(或直接单击”拟定”按钮)窗体显示第一行内容__(4)___,第二行是__(5)___,第四行是__(6)___
Option Explicit
private Sub command1_Click()
dim days as integer
Days=InputBox("输入正整数",4)
print fun(days)
End Sub
private function fun(d as integer) as integer
if D=1 then
fun=1
else
fun=2*fun(D-1)+1
print D;fun
end if
End Function
3窗体显示第一行是__(7)_____第三行是__(8)_____最后一行是___(9)__

private sub command1_Click()
Dim i as integer，k as integer
For i=1 to 5
k=fun(i)+I
print k
next i
print i
End Sub
Function Fun(N as integer) as Integer
Static M as integer
Dim j as integer
M=M+N
N=N+1
For J=1 To M
J=J+2
Fun=Fun+J
Next J
Fun=Fun+N
End Function

4.窗体显示第一行是__(10)_____第三行是__(11)_____,最后一行是_(12)____

Option Explicit
Private Sub Command1_Click()
Dim S as String,N as Integer
S="3AB"
N=14
Print Convert(S,N)
End Sub
Private Function Convert(S As string,N as Integer) as Long
Dim St as string，L as Integer，I as integer
L=Len(s)
Do while L>=1
st=Left(s,1)
if st>"9" then
st=Asc(st)-55
end if
Covert=Convert+Val(st)*N^(L-1)
print Val(st)*N^(L-1)
L=L-1
s=Right(S,L)
Loop
End Function

5.窗体显示第一行是__(13)___,第二行是__(14)____,第三行是___(15)__

Option Explicit
Private Sub Command1_Click()
Dim s as string，k as integer，ch() as string
Dim P as string,i as integer
s=Ucase("Meet me after the class.")
For i=1 to Len(s)
If Mid(s,i,1)<="Z" and Mid(s,i,1)>="A" then
p=p & Mid(s,i,1)
ElseIf p<>"" then
k=k+1
Redim Preserve ch(k)
ch(k)=p
p=""
End if
Next i
For i=1 to Ubound(ch)
if len(ch(i))<=2 then
Call move_c(ch(i),1)
else
Call move_c(ch(i),2)
end if
print ch(i)
next i
End Sub
Private Sub Move_c(s as string，k as integer)
Dim i as integer，j as integer，p as string*1
For i=1 to k
p=Right(s,1)
For j=Len(s)-1 to 1 step -1
Mid(s,j+1,1)=Mid(s,j,1)
Next j
s=p & Right(s,Len(s)-1)
next i
End Sub

6.下面程序是求下式近似值，当第n项绝对值不大于10^-5时终结计算

S=1-1/3+1/5-1/7+…
option explicit
Private Sub Command1_Click()
dim n as long，s as single，t as single，pi as single
Const eps=0.00001
n=1
t=1
s=0
do
s=s+t
n=n+1
t=___(16)______
Loop Until __(17)______
pi=s*4
Label1.Caption ="近似值为:"
End Sub

7.下面程序功能是，找出满足如下条件三位整数，不含数字0,且任意互换数字位置所得到数，均能被6整除

Option explicit
Private sub Command1_Click()
dim i as integer，j as integer，k as integer，st as string
Dim a(6) as integer
For i=100 to 999
if ______(18)_________ then
For j=1 to 6
if a(j) Mod 6<>0 then Exit For
Next j
if______(19)________THen
st=st & str(i)
k=k+1
if k mod 3 =0 then st=st & vbcrlf
End if
End if
Next I
Text1=st
End Sub
Private Function fj(a() as integer，s as string) as Boolean
Dim n as Integer，i as integer，j as integer
if Instr(s,"0")<>0 then
___(20)___
end if
For i=1 to 3
For j=1 to 2
n=n+1
____(21)___
s=Left(s,1) & Right(s,1) & Mid(s,2,1)
Next j
s=Right(s,1) & left(s,2)
Next i
fj=True
End Function

8.下面程序功能是求两个特大整数之和，由于vb中可以表达整数大小有一定限制，因此必要用新办法求特大整数之和，本程序将特大整数使用字符类型进行解决，其中函数add用于求两个1位整数之和，参数c用于保存进位，注意，求和前需一方面将两个整数按位对齐

option explicit
private Sub command1_Click()
Dim s1 as string，s2 as string，s3 as string
dim i as integer，n1 as integer，n2 as integer
dim c as integer，n as integer
s1=text1 ：s2=Text2
n=______22_____
if sgn(n)>0 then
s2=________23__________
elseif Sgn(N)<0 then
s1=String(Abs(n),"0") & s1
end if
For i=len(s1) to 1 step -1
n1=Val(Mid(s1,i,1))
n2=Val(Mid(s2,i,1))
s3=_______(24)________
Next i
if c<>0 then s3=________(25)________
Text3=s3
End Sub
Private Function Add(x as integer，y as integer，c as Integer) as string
Add=Cstr((x+y+c) Mod 10)
_________(26)________
End Function

9. 下面程序功能是：找出各位数字互不相似，且其6倍数仍由构成该数数字构成六位整数。例如：1268736倍数是761238，就是符合条件数。
提醒：程序中用a,b数构成标示数组元素下标值相应数字与否出当前六位整数中。例如：2出当前某六位整数中，则a（2）值为1。

Option Explicit
Private Sub Command1_Click()
dim i as long,i2 as long，flag as Boolean
Dim a(0 to 9) as integer，b(0 to 9) as integer
For i=100000 to 160000
Call Validate(i,a,flag)
if flag then
i2=i*6
call Validate(i2,b,flag)
if flag and Compare(a,b) then
List1.AddItem i & " " & i2
End if
End if
Next i
end sub
Private Sub validate(n as long，a() as Integer，f as Boolean)
dim p as integer，i as integer
Erase a
f=false
for i=1 to len(cstr(N))
p=___(27)___
if a(p)=1 then
exit sub
else
a(p)=1
end if
next i
___(29) f=true
End Sub
Private Function Compare(a() as integer，b() as integer) as Boolean
dim j as integer
compare=false
for j=1 to Ubound(a)
if a(j)<>b(j) then
____(30)____exit function
End if
next j
Compare=true
End Function

1.D 2.B 3.C 4.B 5.A 6.D 7.C8.B 9.D 10.D 11.D 12.B 13.B14.B 15.C 16.A 17.B 18.C 19.C 20.A21.A 22.B 23.B 24.A 25.C 26.C 27.B28.C 29.C 30.A
二:填空题
(1)1 (2)5 (3)5 (4)2 3 (5)3 7 (6)15 (7)7 (8)30 (9) 7 (10)588 (11)11 (12)739
(13)ETME (14)EM (15)SSCLA (16)(-1)^(n+1)/(2*n-1)(17)ABS(t)<0.00001 (18)fj(a,cstr(i))
(19)j>6或j>=7 (20)Exit Function (21)a(n)=val(s) (22)len(s1)-len(s2) (23)string(Abs(n),"0") & s2
(24)Add(n1,n2,c) & s3 (25)c & s3 (26)c=(x+y+c)\10
(27) Mid(n,i,1) (28)Exit Sub (29) f=true (30)Exit Function