历年江苏省计算机二级考试真题及答案2009-2010
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
绝密★启用前
2010年秋
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试
二级试卷
试卷语种:VB语言
说明:
1.本试卷包括计算机基础知识部分和程序设计部分,考试时间共12 0分钟;
2.本试卷满分为60分,分选择题和填空题,试卷不分A、B类型;
3.计算机基础知识部分全部是选择题(20分),程序设计部分分为选择题(1 0
分)和填空题(30分)两种;
4.选择题用答题卡答题。
每一项有A、B、C、D四个可供选择的答案,请选
择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内。
每选对一项得1分,不选或选错不得分;
5.填空题用答题纸答题。
请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的
相应答题号内,每个答案只占一行,不得换行。
每填对一个答案得1分,
不填或填错不得分;
6.请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是
否填写正确。
7.考试结束时将试卷、答题卡和答题纸放在桌上,不得带走。
待监考人员收
毕清点后,方可离场。
第一部分计算机基础知识
1.微电子技术是信息技术领域中的关键技术,它以集成电路为核心.下列有关集成电路的叙述中,错误的是 ___A___
A. 现代集成电路使用的半导体材料只能是硅(Si),不能使用其它任何半导体材料
B. 集成度是指集成电路包含的电子元件数目,可分为SSI、MSI、VLSI等
C. Moore定律指出,单块集成电路的集成度平均18--24个月翻一番
D. 我国第二代身份证中嵌入了集成电路芯片,可以实现电子防伪和数字管理功能
2. 数据传输速率是数据通信中重要的性能指标。
Gb/s是数据传输速率的计量单位之一,其正确含义是 ___B___ 。
A.每秒兆位
B.每秒千兆位
C.每秒百兆位
D.每秒百万位
3. 所谓"变号操作"是指将一个整数变成绝对值相同但符号相反的另一个整数。
假设使用补码表示的8位整数
x=10010101,则经过变号操作后结果为___D__.
A.01101010
B.00010101
C.11101010
D.01101011
4. 下列有关PC机主板的叙述中,错误的是 ___A___ 。
A. 主板的物理尺寸没有标准,各厂家均可自行定义
B. 主板上包含芯片组,它是PC机各组成部分相互连接和通信的枢纽
C. 主板上包含BIOS和CMOS芯片
D. 主板上包含CPU插座、内存条插槽及其它类型的插槽
5. 下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中,正确的是 __C___ .
A.PC机所采用的CPU都是Intel公司生产的Pentium系列芯片,其它厂商生产的CPU都与之不兼容
B.目前已有双核的微处理器(例如Core 2 Duo),但还没有四核的微处理器
C. 通常来说,DRAM的速度比SRAM的存取速度慢
D. 一般来说,一个内存条上仅有一个DRAM或SRAM芯片
6. 下列有关PC机I/O总线与I/O接口的叙述中,错误的是 _C___ .
A. 目前PC机中协调与管理总线操作的总线控制器包含在主板上的芯片组中
B. 总线最重要的性能是数据传输速率,其单位通常为MB/s或GB/s
C. SATA接口的数据传输速率通常低于USB 2.0的数据传输速率
D. USB连接器有4个引脚,其中一个引脚连接+5V电源
7. 下列有关PC机常用I/O设备的叙述中,错误的是__D____。
A. 目前台式机键盘通常有一百零几个按键,笔记本电脑的键盘有八十几个按键
B. 目前流行的鼠标是光电鼠标,其与主机的接口有PS/2与USB两种
C. 宽屏LCD显示器的宽高比为16:9或16:10
D. 打印速度是打印机的重要性能指标,速度单位通常为dpi
8. 下列有关PC机外存储器的叙述中,错误的是___C___ 。
A. 目前硬盘的盘片大多为3.5、2.5或1.8英寸,一个硬盘中可有一个或多个盘片
B. 目前有些u盘可以模拟硬盘和光盘存储器启动操作系统
C. 目前光盘存储器主要分为CD、DVD和BD三种,它们均采用红外激光进行读写
D. 目前光驱的速率通常用多少倍速表示
9. 下列有关计算机软件的叙述中,错误的是___C___.
A. 软件一般是指程序及其相关的数据和文档资料
B. 从软件的用途考虑,软件可以分为系统软件和应用软件,主要的系统软件有操作系统、语言处理系统和数据库管
理系统等。
C. 从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件,共享软件和自由软件均为无版权的免费软
件
D.Linux是一种系统软件、自由软件
10.到目前以止,Windows系列操作系统已推出多个版本。
在下列版本中,最新的Windows
版本是___A___
A. Windows7
B. Windows Me
C. Windows XP
D. Windows Vista
11.下列有关Windows XP操作系统功能的叙述中,错误的是___B___.
A. 系统通过"时间片”轮转策略支持多任务处理
B. 系统利用SPOOLing技术进行存储管理
C. 在设备管理中引入了缓冲技术,以减少I/O操作的等待时间
D. 系统支持PnP功能,并按ACPI标准进行电源管理
12.在因特网中某台主机的IP地址为20.25.30.8,子网掩码为255.255.255.0,那么该主机
的主机号为 ___D___ 。
A. 20
B. 25
C. 30
D. 8
13.局域网中需要传输的数据必须预先组织成若干数据帧,每一数据帧的格式如下图所示:上图中最末部分"?”表示的是___B___ 。
A.协议信息
B.校验信息
C.冗余信息
D.结束标志
14.目前网络用户接入因特网有多种方式,例如ADSL、HFC等。
通过HFC接入因特网时采用的网络是___B____。
A. 有线电话网
B. 有线电视网
C. 无线局域网
D. 移动电话网
15.下列网络协议中,直接与电子邮件传输相关的网络协议是___B___。
A.FTP
B.SMTP
C.TELNET
D.NNTP
16.下列有关计算机中文本与文本处理的叙述中,错误的是 ___A____
A. 西文字符主要是采用ASCII字符集,基本ASCII字符集共有256个字符
B. 我国最早采用的汉字字符集是GB2312,包含6000多个汉字和若干个非汉字字符
C. 无论采用何种方式输入汉字,在计算机中保存时均采用统一的汉字内码
D. 简单文本和丰富格式文本中字符信息的表示相同,区别在于格式信息的表示
17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间)。
下列四种颜色模型中,
彩色喷墨打印机使用的是___D___.
A. RGB
B. HSB
C. YUV
D. CMYK
18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件的扩展名,下
列文件中,属于数字声音的文件是__B____
A. ABC.RM
B. AB
C.WMA
C. ABC.MKV
D. ABC.SWF
19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统实施和系统维
护等几个阶段。
下面各项工作中,属于系统实施阶段的是___C___
A.问题定义
B.可行性研究
C.系统测试
D.绘制E-R图
20.下列有关Micmsoft Word 2003和Microsoft Excel 2003软件的叙述中,错误的是___D___
A. 利用Word软件编辑文档,可以将其保存为TXT、DOC、RTF和HTM格式文件
B. 利用Word软件编辑文档时,可以统计选定文本的字符数
C. 在Excel软件中,可以打开(导入)TXT、DBF、HTML格式的文件(数据)
D. Excel文件可以设置打开权限密码,但不可以单独设置修改权限密码
第二部分Visual Basic程序设计
一、选择题(用答题卡答题,答案依次填在21--30答题号内)
21.以下有关事件过程的说法中,正确的是___A___
A.所有的事件过程都是Sub子过程
B.所有的事件过程都没有参数
C.所有的事件都是由用户的操作直接引发的
D.事件过程不能使用Call语句调用执行
22.以下语句中,正确的是___B___ 。
A.List1.AddItem x,"=",y
B.Picture1.Print x,"=",y
C.Text1.Text=x,"=",y
bel1.Caption=x,"=",y
23.以下有关VB程序书写规则的说法中,错误的是___B_____
A.一行可以书写多条语句,语句间用":"分隔
B.使用注释时,"'"可与注释语句定义符"Rem"互换使用
C.过长的语句,可使用续行标志" _",分写在多行上
D.代码输入时,可不用区分字母大小写,系统会将"保留字"首字母自动改为大写
24.设变量I和J是整型变量,K是长整型变量。
I已赋值32763,J和K分别赋值5,若接着执行以下语句,可正确执行的是__D__。
A.I=I+K
B.J=I+K
C.K=I+J+K
D.K=K+I+J
25.以下关系表达式中,运算结果为False的是 ___C___
A.CInt(3.5)-Fix(3.5)>=0
B.CInt(3.5)-Int(3.5)>=0
C.Int(3.5)+Int(-3.5)>=0
D.Int(3.5)+Fix(-3.5)>=0
26.以下字符运算表达式中,其功能与函数Mid(s,i,i)相同的是___B___
A.Left(s,i) & Right(s,Len(s)-i)
B.Left(Right(s,Len(s)-i+1),i)
C.Left(Right(s,i),Len(s)-i+1)
D.Left(s,Len(s)-i) & Right(s,i)
27.数学表达式的VB算术表达式为___B___
A.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/(x-y))
B.Sqr(x*y^3)+Abs((Exp(x)+Sin(x)^3)/(x-y))
C.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/x-y)
D.Sqr((x*y)^3)+Abs((Exp(x)+Sin(x)^3)/(x-y))
28.以下有关数组的说法中,错误的是___A ___。
A.使用ReDim语句,可以改变任何数组的大小与维数
B.使用ReDim语句,可以定义一个新数组
C.使用ReDim语句重新定义动态数组时,维界表达式中可以采用变量
D.使用ReDim语句重新定义的新数组,既可比原数组大,也可比原数组小
29.以下有关Function过程的说法中,正确的是___D__
A.函数名在过程中只能被赋值一次
B.如果在函数体内没有给函数名赋值,则该函数无返回值
C.如果在定义函数时没有说明函数的类型,则该函数是无类型的
D.执行函数过程中的Exit Function语句,将退出该函数,返回到调用点
30.以下有关文件用法的描述中,正确的是___C___
A.只有顺序文件在读写前需要使用Open语句打开
B.使用同一个文件号,可同时打开多个不同的文件
C.如果以Input方式试图打开一个不存在的顺序文件,则会出错
D.如果程序中缺少Close语句,即使程序运行结束,打开的文件也不会自动关闭
二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)
1.运行下面程序,单击CmdRun,在窗体上显示a的值是___5___;b的值是___14___;i的值是___13___ 。
Option Explicit
Private Sub CmdRun_Click()
Dim i As Integer,a As Integer,b As Integer
a=1:b=10
For i=a To b Step a+1
a=a+1
b=b+1
i=i+1
Next i
Print a,b,i
End Sub
2.执行下面程序,单击Command1,数组元素a(3,2)的值是___(4)___,a(1,2)的值是___(5)___,a(2,3)的值是___(6)___
Option Explicit
Option Base 1
Private Sub Commandl_Click()
Dim n As Integer,i As Integer,j As Integer
Dim a(3,3)As Integer,k As Integer
n=3:k=1
i=n:j=(n+1)/2
a(i,j)=k
For k=2 To n*n
i=i+1:j=j+1
If i>n And j<=n Then
i=1
ElseIf i<=n And j>n Then
j=1
ElseIf i>n And j>n Then
i=i-2:j=j-1
ElseIf i<=n And j<=n And a(i,j)<>0 Then
i=i-2:j=j-1
End If
a(i,j)=k
Next k
For i=1 To n
For j=1 To n
Pic1.Print Right(" " & Str(a(i,j)),3);
Next j
Next i
End Sub
3.运行下面的程序,单击Cmd1,窗体上显示的第一行是___(7)___,第二行是___(8)___ ,,最后一行是___(9)___。
Option Explicit
Private Sub Cmd1_Click()
Dim A As Integer
A=3
Call Sub1(A)
Print A
End Sub
Private Sub Sub1(X As Integer)
X=X*2+1
If X<10 Then
Call Sub1(X)
End If
X=X*2+1
Print X
End Sub
4.执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是___(10)___,UBound(a)的值是___(11)___,其中a(1)的值为___(12)___.
Option Explicit
Private Sub CmdRun_Click()
Dim St As String,i As Integer
Dim a() As String,j As Integer,k As Integer
St="abcd"
Call Sub1(St)
Print St
For i=1 To Len(St)
For j=i+1 To Len(St)
If Mid(St,i,1)=Mid(St,j,1) Then Exit For
Next j
If j>Len(St) Then
ReDim Preserve a(k)
a(k)=Mid(St,i,1)
Print "a(";k;")=";a(k)
End If
Next i
End Sub
Private Sub Sub1(S As String)
Dim i As Integer
For i=1 To Len(S)\2
Mid(S,i,1)=Mid(S,Len(S)-i+1,1)
Next i
End Sub
5.执行下面程序,在文本框Text1中输入"21 23 2 3 5 17 54#"后,单击命令按钮Cmdl,数组元素A(1)的值是___(13)___,A(3)的值是___(14)___,A(5)的值是___(15)___.
Option Explicit
Private Sub Cmd1_Click()
Dim A() As Integer,K As Integer
Dim L As Integer,S As String
S=Text1
Do
K=K+1
ReDim Preserve A(K)
L=InStr(S," ")
If L<>0 Then
A(K)=Val(Left(S,L-1))
S=Right(S,Len(S)-L)
Else
A(K)=Val(S)
End If
Loop Until L=0
Call Exchang(A)
For K=1 To 7
Text2=Text2 & A(K) & " "
Next K
End Sub
Private Sub Exchang(A() As Integer)
Dim i As Integer,Tem As Integer
Dim Point1 As Integer
Point1=1
For i=1 To UBound(A)
If A(i) Mod 3 =0Then
Tem=A(i)
A(i)=A(Point1)
A(Point1)=Tem
Point1=Point1+1
End If
Next i
End Sub
6.本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。
请完善本程序. cos(x)=1-
通用公式可知:a=
Option Explicit
Private Sub Command1_Ciick()
Dim S As Single,T As Single,K As Integer,x As Single
Const eps As Single=0.000001
x=Val(Text1)
___(16)___
S=1
T=1
Do
T= ___(17)___
S=S+T
K=K+1
Loop While ___(18)___
Text2=S
EndSub
7.本程序的功能是找出一组连续的整数,它们的和数等于给定的数。
通常给定一个数,可能会找出多组符合要求的连续整数。
查找的方法是穷举法。
请完善本程序。
Option Explicit
Private Sub CmdRun_Click()
Dim m As Integer,sum As Integer,st As String
Dim i As Integer,j As Integer,k As Integer
m=Text1
For i=1 To m-1
___(19)___
For j=i To m
sum=___(20)___
If sum=m Then
st="" 'st赋以空值
For k=i To j
st= ___(21)___
Next k
List1.AddItem Left(st,Len(st)-1)
End If
Next j
Next i
End Sub
8.本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。
汉字的区位码由4位数字组成,前两位数
字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。
例如汉字"中"的区位码是5448,即"中"的区号是54,位号是48。
将区号与位号分别加上160,再转换成十六进制数形式,就是"中"的机内码。
请完善本程序。
Option Explicit
Private Sub CmdChange_Click()
Dim qw As String,jn As String
qw=Text1
Text2=qw2jn(qw)
End Sub
Private Function qw2jn(st As String) As String
Dim n1 As Integer,n2 As Integer
n1=Val(Left(st,2))+160
n2=___(22)___
qw2jn=d2h(n1) & d2h(n2)
End Function
Private Function d2h(d As Integer) As String
Dim p As Integer,q As String*1
Do
p= ___(23)___
If p>9 Then
q=Chr(55+p)
Else
q=CStr(p)
EndIf
___(24)___
d=d\16
Loop Until ___(25)___
End Function
可能有多个.(即有多个数据的出现次数相同)。
事件过程Cmdfind主要功能是生成n个随机整数存入数组,再调用Freq 过程,求出数组中每个不相同的数据出现的次数:再求出其中最大的出现次数值,最后,将求出相应的众数输出。
请完善本
程序。
Option Explicit
Option Base 1
Private Sub Cmdfind_Click()
Dim a() As Integer,n As Integer,i As Integer
Dim Shu() As Integer,Cs() As Integer,Max As Integer
n=InputBox("输入数据个数:","查找众数",20)
ReDim a(n)
Randomize
For i=1 To n
a(i)=Int(Rnd*5)+5
Text1=Text1 & Str(a(i))
If i Mod 10=0 Then Text1=Text1 & vbCrLf
Next i
Call Freq(a,Shu,Cs)
Max=Cs(1)
For i=2 To UBound(Cs)
If Cs(i)>Max Then
___(26)___
End If
Next i
For i=1 To UBound(Cs)
If ___(27)___ Then Text2=Text2 & Shu(i) & " "
Next i
Private Sub Freq(a() As Integer,Shu() As Integer,Cs() As Integer)
'shu数组用于存放A数组中不相同数据的值
'Cs数组用于存放对应不相同数据出现的次数
Dim i As Integer,j As Integer,js As Integer,n As Integer
For i=1 To UBound(a)
js=1
For j=1 To n '搜索数组a中不相同的数据
If Shu(j)=a(i) Then Exit For
Next j
If ___(28)___ Then
n=n+1
ReDim ___(29)___
Shu(n)=a(i)
For j=i+1 To UBound(a)
If a(j)=a(i) Then ___(30)___
Next j
Cs(n)=js
List1.AddItem a(i) & "---" & js
End If
Next i
End Sub
一选择题
1.A
2.B
3.D
4.A
5.C
6.C
7.D
8.C
9.C 10.A11.B 12.D 13.B 14.B 15.B16.A 17.D 18.B 19.C 20.D (21)A (22)B (23)B (24)D (25)C (26)B (27)B (28)A (29)D (30)C
二:填空题
(1)5 (2)14 (3)13 (4)1 (5) 9 (6)7 (7)31 (8)63 (9) 63 (10)dccd
(11)2 (12)c (13)21 (14)54 (15)5 (16)k=1 (17)T*(-1)*x*x/((2*k-1)*(2*k))
(18)Abs(t)>0.000001 (19)sum=0 (20)sum+j (21)st & k & "+"
(22)Val(Right(st,2))+160 或Val(Mid(st,3,2))+160
(28)j>n (29)preserve shu(n),cs(n) (30)js=js+1
405
2010年3月江苏VB考试真题
绝密★启用前
2010年春
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试
二级试卷
试卷语种:VB语言
说明:
1.本试卷包括计算机基础知识部分和程序设计部分,考试时间共12 0分钟;2.本试卷满分为60分,分选择题和填空题,试卷不分A、B类型;
3.计算机基础知识部分全部是选择题(20分),程序设计部分分为选择题(1 0 分)和填空题(30分)两种;
4.选择题用答题卡答题。
每一项有A、B、C、D四个可供选择的答案,请选择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内。
每选对一项得1分,不选或选错不得分;
5.填空题用答题纸答题。
请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的相应答题号内,每个答案只占一行,不得换行。
每填对一个答案得1分,不填或填错不得分;
6.请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。
7.考试结束时将试卷、答题卡和答题纸放在桌上,不得带走。
待监考人员收毕清点后,方可离场。
第一部分:(公共基础知识)
参见2010春VFP考试试题
第二部分Visual Basic程序设计 .
一、选择题(用答题卡答题,答案依次填在21—30答题号内)
21.关于窗体,以下叙述中正确的是 A 。
A.仅当窗体上没有可以获得焦点的控件时,窗体才可以获得焦点
B.一个VB工程只能从某个指定的窗体开始启动
C.只有窗体可以作为控件的容器
D.Unload Me和End语句的效果总是等同的
22.若a为长整型变量,则执行a=12 : Print Len(a);Len(Str(a)); Len(CStr(a))后,在窗体上看到的是 C 。
A.4 2 3
B.2 3 2
C.4 3 2
D.2 2 3
23.数学表达式对应的visual Basic表达式是 B 。
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)的值是 A 。
A.-8
B.-7
C.-6
D.-5
25.以下说法中,错误的是 C 。
A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小
B.ReDim语句只能出现在过程中
c.使用ReDim语句重新定义的动态数组,只能比原数组大
D.使用ReDim语句可以对动态数组的所有元素进行初始化
26.下列关于菜单的说法中,错误的是. D 。
A.可以为菜单项选定快捷键
C.除了Click事件之外,菜单项还可以响应其他事件
D.菜单编辑器的"名称"文本框用于输入菜单项的名称
27.以下有关过程中形式参数的描述中,错误的是 B 。
A.函数过程可以没有形式参数
B.事件过程一定没有形式参数
C.形参数组只能按地址与实参数组结合
D.窗体与控件也可以作为过程的参数
28.以下表达式中,可以表示"A和B之一大于0"的是 C 。
①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为长整型,则下面不能正常执行的语句是 C 。
A.A=32768*2 B.A=2*1.5*16384
C.A=16384*2 D.A=190^2
30.以下有关滚动条控件(ScrollBar)的说法中错误的是 A 。
A.只能在设计时设置Max与Min属性值
B.Value属性返回滚动条内滑块当前所处位置的值
C.拖动滚动条内滑块时,将触发滚动条的Scroll事件
D.单击滚动箭头时,将触发滚动条的Change事件
二:填空题
1.执行下面的程序后,A(1,4)的值是_____,A(2,3)的值是_______,A(3,2)的值是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
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
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
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
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时终止计算=1-1/3+1/5-1/7+…(-1)
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
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
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.
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)
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
2010春江苏省计算机等级考试vb试题参考答案以下答案仅供参考
8.B 9.D 10.D 11.D 12.B 13.B
14.B 15.C 16.A 17.B 18.C 19.C
20.A
21.A 22.B 23.B 24.A 25.C 26.C 27.B
28.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
2009秋季江苏二级VB等考试题江苏计算机等级考试2009秋VB考试真题
第一部分:计算机基础知识
1.下列关于个人移动通信的叙述中,错误的是____A
A.第1代个人移动通信(简称1G)采用的通信技术是数字通信技术
B.目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术(简称2G)
C.第3代移动通信技术(简称3G)将无线通信与互联网、多媒体通信相结合
D.3G有多个国际技术标准,其中也有我国自主制定的3G技术标准。
2.在下列有关集成电路的叙述中,正确的是2。
D
A.现代集成电路所使用的半导体材料都是硅
B.所有的集成电路都是数字集成电路
C.Moore定律认为单块集成电路的集成度平均每年翻一番
D.Intel公司微处理器产品Core 2 Duo,其集成度已高达数千万个电子元件
3.与十六进制数AB等值的八进制数是A
A. 253
B.254
C.171
D.172
4.在下列有关PC机CPU的叙述中,错误的是B
A.CPU中包含几十个甚至上百个寄存器,用来临时存放数据、指令和控制信息
B.所有PC机的CPU都具有相同的指令系统,因而PC机可使用相同的软件
C.一台计算机至少包含1个CPU,也可以包含2个、4个、8个甚至更多个CPU
D.Intel公司是国际上研制和生产CPU的主要公司,我国也能生产CPU
5.在下列有关PC机主板上部件的叙述中,错误的是5 D。
A.BIOS保存在主板上的一个闪存中,其内容在关机后通常不会改变
B.CMOS中保存有用户设置的开机口令,关机后主板上的电池继续给CMOS供电
C.启动CMOS设置程序可以重新设置CMOS中的数据,该程序是BIOS的组成部分
D.网卡通常集成在主板上,由主板上独立的IC实现其功能,与芯片组无关
6.从PC机存储器的层次结构来看,下列存储器中存取速度最快的是6 C。
A.Cache存储器
B.RAM和ROM
C.寄存器
D.硬盘和优盘
7.在下列4种PC机常用I/O接口中,数据传输速率最高的是7。
B
A.PS/2
B.SATA
C.IEEE-1394b
B 2.0
8.在下列有关I/O操作、I/O总线和I/O接口的叙述中,错误的是8。
B
A.I/O操作的任务是在I/O设备与内存的指定区域之间传送信息
B.I/O总线传送的只能是数据信号,它不能传送控制信号和地址信号
C.不同类型的I/O接口,其插头/插座以及相应的通信规程和电气特性通常各不相同
D.并行总线的数据传输速率不一定比串行总线高
9.在下列有关PC机I/0设备的叙述中,错误的是9。
B
A.数码相机的成像芯片可以为CCD器件或CMOS芯片,目前大多数用CCD器件
B.平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚筒式扫描仪
C.常见的宽屏液晶显示器的宽度与高度之比为16:9(或16:10)
D.目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据
10.在下列有关计算机软件的叙述中,错误的是10 。
D
A.程序设计语言处理系统和数据库管理系统被归类为系统软件
B.共享软件是一种具有版权的软件,它允许用户买前免费试用
C.机器语言和汇编语言与特定的计算机类型有关,取决于CPU
D.目前PC机只能使用Windows系列操作系统,均不能使用UNIX和Linux操作系统
11.在下列常用的PC机软件中,编辑的文档(内容)能直接保存为图片类型(例如JPEG文件类型)的 C。
A.Microsoft Word
B.Microsoft Excel
C.Microsoft PowerPoint
D.Microsoft FrontPage
12.在下列关于以太网(局域网)的叙述中,错误的是B。
A.在共享式以太网中,任何时间只允许一对计算机进行通信
c.无论是共享式以太网还是交换式以太网,网络中的所有计算机都要安装以太网网卡
D.无论是共享式以太网还是交换式以太网,它们的数据帧和MAC地址格式均相同
13.连接在因特网上的每一台主机都有一个IP地址。
下面不能作为IP地址的是13 A 。
A.211.256.49.68
B.21.18.33.48
C.120.34.0.18
D.37.251.68.0
14.为了将异构的计算机网络互相连接起来,必须使用的网络设备是14 。
D
A.调制解调器
B.以太网集线器 c.以太网交换机 D.路由器
15.下列网络协议中,与发送电子邮件有关的是15 。
C
A.Http
B.FTP
C.SMTP
D.TELNET
16.在下列有关字符集及其编码的叙述中,错误的是16 。
D
A.基本的ASCII字符集共有128个字符,每个字符使用7个二进位进行编码
B.GB2312字符集中收录了6千多个汉字,每个字符在机内通常使用双字节编码
C.GBK字符集中的字符也采用双字节编码,且该字符集收录了部分繁体汉字
D.GB18030字符集中所有的字符均采用4字节编码,因此该字符集的代码空间很大
17.目前数码相机拍摄的照片在保存时通常采用的文件类型是17 C。
A.BMP
B.GIF
C.JPEG
D.TIF
18.MP3是数字波形声音的一种压缩编码文件格式,它采用的压缩编码标准属于18 A。
A.MPEG-1
B.MPEG-2
C.MPEG-4
D.Dolbv AC-3
19.使用Macromedia公司的Flash软件制作的动画是一种矢量图形,在保存为动画文件时其文件扩展名通常为19 。
B
A.GIF
B.SWF
C.AVI
D.MPG 。
20.在计算机应用中,CAD和CAM是典型的信息系统。
它们属于20 B。
A.管理业务系统
B.辅助技术系统
c.信息检索系统 D.信息分析系统
第二部分:vb程序设计
21.要将焦点设置在某个控件上,以下四个选项中正确的是____D____
A.只能使用鼠标直接点击该控件
B.只能使用Tab键将焦点移到该控件
C.只能在程序中调用该控件的setfocus方法
D.A、B、C三选项中涉及的方法均可用
22.在下列属性中,属于CommandButton控件、ListBox控件共有的是22。
B
A.Caption、Text
B.Visible、Font
C.Caption、Visible
D.List、Visible
23.数学表达式对应的visual Basic表达式是 23 。
D
A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)
B.(Sin(30*/180)+sqr(Ln(x)+y))/(2*+Exp(x+y))
D.(Sin(30*3.14159/180)+Sqr(Log(x)+Y))/(2*3.14159+Exp(x+y))
24.下列的关系表达式中,运算结果为True的是24。
B
A.CInt(1.5)=Int(1.5)
B.Fix(1.5)=Int(1.5)
C.Fix(-1.5)=CInt(-1.5)
D.Fix(-1.5)=Int(-1.5)
25.下列有关数组的叙述中,不正确的是25 。
A
①在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量
②数组作为形式参数时,传递的是每个数组元素的值
③在窗体模块的通用声明处可以用Public说明一个全局数组
④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值
A.②③
B.①③④ c.①②③④ D.③④
26.以下关于文件的叙述中,错误的是26 。
C
A•用Output模式打开一个顺序文件,即使不对它进行写操作,原来的内容也被清除
B.可以用Print#语句或Write#语句将数据写到顺序文件中
C•若以Output、Append、Random、Binary方式打开一个不存在的文件,系统会出错
D.顺序文件或随机文件都可以用二进制访问模式打开
27.下列有关控件数组的说法中,错误的是27 。
B
A•控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组
B.控件数组中的所有控件不得具有各自不同的属性设置值
C.控件数组中的所有控件共享同一个事件过程
D.控件数组中每个元素的下标由控件的Index属性指定
28.以下Case语句中,能正确描述Y的绝对值大于6的是28。
D
A.Case Abs(Y)>6
B.Case -6 To 6
C.Case Not (-6 To 6)
D.Case Is<-6,Is>6
29•若在模块中用Private Function Fun(A As Single,B As Integer)As Integer定义了函数Fun。
调用函数Fun的过程中定义了I、J和K三个Integer 型变量,则下列语句中不能正确调用函数Fun的语句是29。
B
A.Fun 3.14,J
B.Call Fun(I,365)
C.Fun (I),(J)
D.K=Fun("24”,”35”)
30•若需要在同一窗体内安排两组相互独立的单选按钮(OptionButt.Dn),可使用30控件做容器将它们分开。
C
①TextBox ②PictureBox ③Image ④Frame
•A.①或② B.②或③ c.②或④ D.③或④
二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)
1.执行下面程序,单击Commandl,则数组元素a(1,2)的数值是 ( 1 ),a(2,3)的数值
是(2),a(4,3)的数值是(3)。
Option Explicit
Private Sub Commandl_Click()
Dim a(4,4)As Integer,i As Integer
Dim j As Integer,k As Integer,n As Integer。