十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
C
专注于为中小企业提供成都网站设计、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业红古免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了千余家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
A
B
B
don't konw
don't konw
don't konw
A
B
don't konw
----------------
B
A
B
A
A
don't konw
B
A
don't konw
don't konw
--------------------------------
累S了
Private Sub Command1_Click()
Dim A, B, C
A = 10
B = 3
C = f(A) / (f(B) * f(A - B))
Print C
End Sub
Private Function f(n)
Dim I As Integer
f = 1
For I = 1 To n
f = f * I
Next I
End Function
2010年春江苏省计算机二级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.按交易商品规模分类
第二部分Visual Basic程序设计 .
一、选择题(用答题卡答题,答案依次填在21—30答题号内)
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 ②A0 Xor B0 ③A0 Or B0 ④A0 And B=0 Or B0 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 60 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 c0 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倍数仍由组成该数的数字构成的六位整数。例如:126873的6倍数是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