|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2012春江苏省计算机二级VB笔试真题 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
绝密★ 启用前 2012年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种: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. 下列有关信息产业、信息化、信息社会等相关的叙述中,错误的是___(1)___ 。 A.信息产业是指生产制造信息设备的制造业,不包含信息服务行业 B.信息化是一个推动人类社会从工业社会向信息社会转变的过程 C.在信息社会中,信息将借助材料和能源的力量产生重要价值而成为社会进步的基 本要素 D.目前我国还处于工业化的中期阶段,需要大力推进信息化与工业化的融合式发展 2. 下列有关数字技术与微电子技术的叙述中,错误的是___(2)___ 。 A.数字技术的处理对象是"比特",它只有两种状态(取值) B.在计算机中,经常使用称为"触发器"的双稳态电路来存储比特,一个触发器可 以存储1个比特 C.微电子技术以集成电路为核心,现代集成电路所使用的半导体材料主要是硅 D.所有的IC卡均只能存储数据,不能处理和收发数据 3. 下列有关计算机发展与分类的叙述中,错误的是___(3)___ A.人们通常根据计算机采用的主要电子元器件的不同,将计算机的发展划分为四代 B.由于20世纪90年代计算机网络的发展,计算机应用进入了"网络计算模式" C.目前所有的服务器产品均为小型计算机、大型计算机或巨型计算机,PC机不能作 为网络服务器使用 D.美国的HP、DELL和我国的联想、方正、同方等均是知名的PC机品牌 4. 下列有关PC机CPU的叙述中,错误的是___(4)___。 A.长期以来,多数PC机采用Intel公司生产的CPU芯片 B.Intel Core i7是高端的CPU产品,其中i7表示它采用7个内核的结构 C.目前部分PC机使用AMD公司的CPU芯片,它们与Intel公司的CPU芯片指令 系统基本一致,因此这些PC机相互兼容 D.目前我国也能设计、生产PC机的CPU芯片 。 5. 下列有关PC机主板上CMOS和BIOS的叙述中.错误的是___(5)___ 。 A.主板上的CMOS芯片是一种易失性存储器,它通常使用电池供电 B.BIOS是存储在主板上闪烁存储器中的一组程序.每次机器加电时总是首先执行其 中的程序 C.CMOS设置程序存储在CMOS存储器中,它与BIOS无关 D.CMOS芯片中存储了许多配置信息,包括当前的日期与时间、开机密码等 6. 下列是PC机使用的四种外设接口,其中最新的一种是___(6)___。 A.USB3.0 B.IEEE.1394b C.IDE D.红外线接口(IrDA) 7. 下列有关扫描仪与数码相机的叙述中.错误的是___(7)___ A.扫描仪分为平板扫描仪、手持扫描仪、滚筒扫描仪等多种类型.相对来说使用平 板扫描仪的较多 B.光学分辨率是扫描仪的主要性能指标,其单位为dpi C.目前数码相机的成像芯片为CCD或CMOS.它可以将光信号转换为电信号 D.数码相机所拍摄的数字图像以GIF格式存储在存储卡中 8. 光盘分为多种不同类型,其容量大小差异较大。对于单面单层、 说.其容量大约为 ___(8)___。 A.670MB B.1.46GB C.4.7GB D.25GB 9. 通用的应用软件可以分为若干类型,例如文字处理软件、信息检索软件、媒体播放软 件等。在下列软件中,不属于文字处理软件的是___(9)___ A.WPS B.Adobe Acrobat C.Word D.Access 10.下列有关Windows XP操作系统的叙述中,错误的是___(10)___ A.Windows XP分为多种版本.例如家庭版、专业版 B.Windows xP采用并发多任务方式支持多个任务的执行 C.Windows XP一般采用按时间片轮转的策略调度处理器来执行每个任务 D.虚拟存储器由主板上的RAM、ROM及显示卡的显存联合组成,它与硬盘无关 11.在下列有关算法的叙述中.错误的是___(11)___ A.算法的设计一般采用由细到粗、由具体到抽象的方法 B.算法设计方法有多种,例如枚举法、迭代法、递归法等等 C.算法的表示可以有多种形式,例如文字说明、流程图表示、伪代码等 D.一个问题的解决往往可以有多种不同的算法 12.下列有关Microsoft Office 2000(及其后续版本)的叙述中.错误的是___(12)___ A.由Word、Excel、PowerPoint创建的文档,均可以设置打开文件的密码 B.在Word文档中,可以插入声音和视频对象 C.ExceI工作簿可以包含的工作表数量、工作表的行数与列数均没有限制,用户可以 根据需要无限制地增加 D.由PowerPoint创建的演示文稿,用户可以直接将其保存为HTML文件(即网页) 13.在下列有关调制解调技术、多路复用技术的叙述中.错误的是___(13)___ A.调制与解调技术中使用的"载波"信号,通常是低频正弦波信号 B.调制技术可以分为幅度调制、频率调制和相位调制 C.多路复用技术的作用主要是提高传输线路的利用率,降低通信成本 D.多路复用技术可以分为时分复用、频分复用等类型 14.目前IPv4协议只有大约36亿个地址.很快就会分配完毕。新的IPv6协议把IP地址 的长度扩展到___(14)___,几乎可以不受限制地提供IP地址。 A.32位 B.64位 C.128位 D.256位 15.下列与IP地址相关的叙述中.错误的是___(15)___ 。 A.IP地址由三个部分组成,从左到右分别代表类型号、网络号和主机号 B.因特网上的每台在线主机都必须有IP地址 C.通过ADSL上网时,用户主机的IP地址通常是由因特网服务提供者动态分配的 D.网络中的路由器不需要设置IP地址 16。通常所说的TCP/IP协议.是指由100多个协议组成的协议系列(包含下列几个协议)。 在下列协议中。实现文件传输服务主要依赖 ___(16)___ 。 A.NNTP协议 B.FTP协议 C.Telnet协议 D.SMTP协议 17.目前有线电视(CATV)系统已经广泛采用数字技术传输电视节目。下列是有关数字有 线电视的相关叙述.其中错误的是___(17)___ 。 A.数字有线电视采用光纤同轴电缆混合网.其主干线部分采用光纤连接到"小区" B.数字有线电视网络依赖于时分多路复用技术 C.借助数字有线电视网络接入因特网.需要专用的Cable MODEM或互动式机顶盒 D.借助数字有线电视网络接入因特网的多个终端用户共享连接段线路的带宽 18.下列有关文本与文本处理的叙述中,错误的是___(18)___ 。 A.文本信息在计算机中存储时,汉字均为双字节编码,非汉字字符均为单字节编码 B.文本输入可以是键盘输入,也可以是联机手写输入、语音输入等 C.DOC文档、HTML网页、PDF文档均为丰富格式文本,但它们的格式标记方式 不同 D.文本中的字符可以使用不同的字体,不同字体的同一个汉字,其机内码相同 19.在未压缩的情况下.存储一幅分辨率为1024×1024的24位彩色数字图像需要的存储 空间大约为 ___(19)___ A.24KB B.3MB C.8MB D.24MB 20.文件扩展名通常用于标识文件的类型。下列4个文件扩展名中,属于数字波形声音文 件的是___(20)___。 A. .WAV B. .MIDI C. .AVI D. .MPG 第二部分Visual Basic程序设计 一、选择题(用答题卡答题,答案依次填在2l～30答题号内) 21.以下说法中,错误的是___(21)___。 A.以.frm为扩展名的文件是窗体模块文件 B.以.bas为扩展名的文件是标准模块文件 C.窗体模块文件包含该窗体及其窗体上相关控件的属性信息 D.标准模块文件由事件过程、通用过程等内容组成 22.下列语句中,错误的是___(22)___。 A.Label1.Caption="Hello" B.Text1.Caption="Hello" C.Command1.Caption="Hello" D.Frame1.Caption="Hello" 23.在一个控件数组中用___(23)___属性标识不同的控件数组元素。 A.TabIndex B.Index C.Caption D.Left 24.在select Case X结构语句中(X为Integer类型),能正确描述5≤x≤10的Case语句是___(24)___ A.Case Is>=5,Is<=10 B.Case 5<=X<=10 C.Case 5<=X,X<=10 D.Case 5 To 10 25.分别执行以下语句,输出结果为True的是___(25)___。 A.Print CInt(4.5)>Int(4.5) B.Print CInt(-4.5)>Fix(-4.5) C.Print CInt(-4.5)>Int(-4.5) D.Print CInt(4.5)>Fix(4.5) 26.数学表达式 A.Sqr(x+y)-Sin(Abs(y^2*x)/(x-y)) B.Sqr(x+y)-Sin(Abs(y^2*x)/x-y) C.Sqr(x+y)-Sin(|y^2*x|/(x-y)) D.Sqr(x+y)-Sin(|y^2*x|/x-y) 27.以下关于变量的说法中,正确的是___(27)___。 A.同一个模块中的模块级变量不能和局部变量同名 B.同一模块的不同过程中的变量名不能相同 C.不同模块中的变量名不能相同 D.不同模块中的全局变量名可以相同 28.在窗体的通用声明处有语句Dim a() As Single,以下重新定义数组的语句中,正确的是___(28)___ A.ReDim a(3,3):ReDim a(3,4) As Double B.ReDim a(3,3):ReDim Preserve a(4,4) C.ReDim a(3): ReDim a(3,3) As Double D.ReDim a(3,3):ReDim Preserve a(3,4) 29.以下有关自定义函数过程的说法中,错误的是___(29)___。 A.在自定义函数过程中可以多次为函数名赋值 B.如果在函数体内没有给函数名赋值,则该函数无返回值 C.函数名的命名规则与变量名的命名规则相同 D.函数定义时如果没有说明函数名的类型,则为变体类型 30.设x为字符型变量,n为整型变量,以下关于Mid函数的说法中,错误的是___(30)___。 A.Mid(x,n)表示从字符串x的第n个位置开始向右取所有字符 B.若x="xyz",执行语句Mid(x,1,2)="ab"后,x的值为"abz" C.Mid(x,n,1)的取值与Left(x,n)的取值相同 D.使用Mid函数可提取字符串中指定位置、指定个数的字符 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行) 1.执行下面程序,单击命令按钮Command1后,a(2,3)的值为___(1)___,a(3,4)的值为___(2)___, a(5,4)的值为___(3)___。 Option Explicit Private Sub Commandl_Click() Dim a(5,5)As Integer,i As Integer,j As Integer For i=1 TO 5 For j=1 To 5 If i=1 Or j=1 Then a(i,j)=1 Else a(i,j)=a(i-1,j)+a(i,j-1) End If Print a(i,j)； Next j Print Next i EndSub 2.执行下面程序,单击命令按钮Cmd1后输出的fun函数值是___(4)___,a的值是___(5)___ , b的值是___(6)___。 Option Explicit Private Sub Cmd1_Click() Dim a As Integer,b As Integer a=8 b=12 Print fun(a,b);a;b End Sub Private Function fun(ByVal a As Integer,b As Integer)As Integer a=a Mod 5 b=b\5 fun=a+b End Function 3.执行下面程序,单击命令按钮Cmd1后,a(2)的值是___(7)___,a(3)的值是___(8)___,a(5) 的值是___(9)___。 Option Explicit Option Base 1 Private Sub Cmd1_Click() Dim a() As Integer,i As Integer,n As Integer Dim k As Integer n=8 ReDim a(n) For i=1 To n a(i)=2*i-1 Next i k=2 Do For i=UBound(a) To 1 Step -1 If i Mod a(k)=0 Then Call delete(a,i) End If Next i k=k+1 Loop Until a(k)>UBound(a) For i=1 To UBound(a) Text1=Text1 & Str(a(i)) If i Mod 5=0 Then Text1=Text1 & vbCrLf Next i End Sub Private Sub delete(a() As Integer,i As Integer) Dim k As Integer If i<>UBound(a) Then For k=i+1 To UBound(a) a(k-1)=a(k) Next k End If ReDim Preserve a(UBound(a)一1) EndSub 4.执行下面程序,单击命令按钮cmdRun后,窗体上显示的第一行内容是___(10)___,第二行内 容是___(11)___,最后一行内容是___(12)___。 Option Explicit Private Sub CmdRun_Click() Dim n As Integer n=10 Print F1(n) End Sub Private Function F1(ByVal n As Integer)As Integer Static x As Integer If n>6 Then F1=F1(n-2)+n Else F1=n+x+1 End If x=2*x+1 Print F1,x End Function 5.执行下面程序,单击命令按钮cmd1后,窗体上显示的第一行内容是___(13)___,第二行内容 是___(14)___ ;最后一行内容是___(15)___ Option Explicit Private Sub Cmdl_Click() Dim i As Integer,c As Integer,s As String,t As String*1 Dim a() As String,s1 As String,jg As Integer s="43X17Z23Y" ’ For i=1 To Len(s) t=Mid(s,i,1) s1=s1 & t If t>="X" And t<="Z" Then c=c+1 ReDim Preserve a(c) a(c)=s1 s1="" End If Next i Call sub1(a,jg) Print jg EndSub Private Sub sub1(a() As String,gj As Integer) Dim i As Integer For i=1 To UBound(a) gj=gj+tran(a(i)) Next i gj=gj/UBound(a) End Sub Private Function tran(ss As String)As Integer Dim i As Integer,t As Integer,st As String*1 Dim P As Integer P=Len(ss)-1 st=Right(ss,1) If st="X" Then t=8 ElseIf st="Y" Then t=10 Else t=16 End If For i=1 To P tran=tran+Val(Mid(ss,i,1))*t^(P-i) Next i Print tran End Function 6.本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于10 本程序。(提示:函数fact是用递归求阶乘。) f(x)=lnx+ Option Explicit Private Sub Command1_Click() Dim x As Single,y As Single Dim k As Integer,tx As Single x=Val(Text1.Text) y=Log(x) Do k=k+1 tx=___(16)___ y=y+tx Loop while ___(17)___ Text2.Text=Format(y,"0.#######") End Sub Private Function fact(ByVal n As Integer)As Long If n<=1 Then fact=1 Else fact=___(18)___ EndIf End Function 7.下面程序的功能是从输入的一串数字中找出全部由该数字串中连续数字组成的素数。 Option Explicit Private Sub CmdRun_Click() Dim n As Long,s As String Dim i As Integer,j As Integer S=Text1.Text For i=1 To Len(s) For j=1 To Len(s)-i+1 n=___(19)___ If prime(n) Then List1.AddItem CStr(n) Next j Next i End Sub Private Function prime(___(20)___)As Boolean Dim i As Integer For i=2 To Sqr(n) If n Mod i=0 Then Exit Function Next i ___(21)___ End Function 8.这是一个解密程序。密码由若干数字组成,每三位为一个数字组,若数字组中所有数字均小于5, 则该数字组有效,将有效的数字组按5进制转换成10进制数,再按ASCII代码转换为字符就可得到明 文。 Option Explicit Private Sub Command1_Click() Dim st As String,p As String st=Text1 Do P=___(22)___ If judge(p) Then Text2=Text2 & Chr(conv(p)) End If st=Right(st,Len(st)-3) Loop Until ___(23)___ End Sub Private Function judge(p As String) As Boolean '判断有效数字组 Dim q As String*1,i As Integer For i=1 To Len(p) q=Mid(p,i,1) If ___(24)___ Then Exit Function Next i judge=True End Function Private Function conv(p As String)As Integer '进制转换 Dim k As Integer,q As String*1,i As Integer For i=Len(p) To 1 Step-1 q=Mid(p,i,1) conv=conv+Val(q)*5^k ___(25)___ Next i End FUnction 9.以下程序的功能是验证"数学黑洞6174"。对于任意一个各位数字不全部相同的四位整数,将组成 该数的数字组合成一个最大的数和一个最小的数,二者相减,判断其差值是否为6174,若不是,再将 相减的结果组合成新的最大的数和最小的数,以上过程最多重复7次,必得结果6174。程序运行界面 如图所示。 Option Explicit Option Base 1 Private Sub Cmd1_Click() Dim i As Integer,k As Integer Dim max As Integer min As Integer k=Val(Text1) For i=1 T0 3 '判断4位数字是否全部一样 If Mid(CStr(k),i,1)<>Mid(CStr(k),i+1,1) Then ___(26)___ Next i If i>3 Then MsgBox "输入的数据不合要求" Text1="" Exit Sub End If For i=1 To 7 Call Validate(k max,min) List1.AddItcm k &":" & max &"-" & min & "=" & max-min If max-min=6174 Then Exit For Else k=___(27)___ End If Next i If ___(28)___ Then List1.AddItem "验证失败!" End Sub Private Sub Validate(n As Integer,max As Integer,min As Integer) Dim i As Integer,t(4)As Integer Dim s As String,s1 As String,s2 As String S=CStr(n) For i=1 To 4 t(i)=Val(Mid(s,i,1)) Next i Call sort(t) For i=1 To 4 s1=s1 & CStr(t(i)) s2=___(29)___ Next i min=Val(s1) max=VaI(s2) End Sub Private Sub sort(a() As Integer) Dim i As Integer,j As Integer,t As Integer For i=1 To UBound(a)-1 For j=i+1 To UBound(a) If ___(30)___ Then t=a(i):a(i)=a(j):a(j)=t End If Next j Next i End Sub 一、选择
二、填空
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||