江苏省高校计算机等级考试命题研究院 江苏省高校计算机等级考试辅导
2011年春季江苏省二级VB考试真题与答案

第一部分计算机基础知识

1.下列有关通信技术的叙述中,错误的是___(1)___

  A  无论是模拟通信还是数字通信,目前都是通过载波技术实现远距离的信息传输

  B  多路复用技术可以降低信息传输的成本,常用的多路复用技术有TDMFDM

  C  卫星通信属于微波通信,它是微波接力通信技术和空间技术相结合的产物

  D  目前3G移动通信有多种技术标准,我国三大电信运营商均采用同一标准

2.使用存储器存储二进位信息时,存储容量是一项很重要的性能指标。存储容量的单位

    有多种,下面不是存储容量单位的是___(2)___   

    A  TB

    B  XB

    C  GB   

    D  MB  

3.设有补码表示的两个单字节带符号整数a=01001110b=01001111。则a-b的结果用补码表示为___(3)___ 

    A  11111111

    B  10011101

    C  00111111

    D  10111111

4  下列有关PC机主板上BIOSCMOS的叙述中,错误的是___(4)___ 

  A  BIOS芯片是一块闪烁存储器,其存储的信息关机后不会丢失

  B  BIOS中包含加电自检程序、系统自举程序等

  C  CMOS芯片属于易失性存储器,它使用电池供电

  D  CMOS中存放着与硬件相关的一些配置信息,以及CMOS设置程序

5  下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中,错误的是___(5)___ 

  A  目前PC机所使用的PentiumCore 2微处理器的指令系统有数百条不同的指令

  B  所谓双核CPU或四核CPU,是指CPU由两个或四个芯片组成

  C  DDR内存条、DDR2内存条在物理结构上有所不同,例如它们的引脚数目不同

  D  通常台式机中的内存条与笔记本电脑中的内存条不同,不能互换

6  下列有关PCIO总线与IO接口的叙述中,正确的是___(6)___ 

  APC机中串行总线的数据传输速率总是低于并行总线的数据传输速率

  B  SATA接口主要用于连接光驱,不能连接硬盘

  c  通过USB集线器,一个USB接口理论上可以连接127个设备

  D  IEEEl394接口的连接器与USB连接器完全相同,均有6根连接线

7  蓝光光盘(BD)是全高清影片的理想存储介质,其单层盘片的存储容量大约为___(7)___

  A4.7GB

  B. 8.5GB

  C17GB

  D25GB

8  下列有关PC机常用IO设备(性能)的叙述中,错误的是___(8)___

  A  通过扫描仪扫描得到的图像数据可以保存为多种不同的文件格式,例如JPEG

    TIF

  B  目前数码相机的成像芯片均为CCD类型,存储卡均为SD

    C  刷新速率是显示器的主要性能参数之一,目前PC显示器的刷新速率一般在60Hz

    以上

    D  从彩色图像输出来看,目前喷墨打印机比激光打印机有性价比优势

9  下列有关计算机软件的叙述中,错误的是___(9)___   ·

    A  软件的主体是程序,单独的数据和文档资料不能称为软件

    B  软件受知识产权(版权)法的保护,用户购买软件后仅得到了使用权

    C  软件的版权所有者不一定是软件的作者(设计人员)

    D  共享软件允许用户对其进行修改,且可在修改后散发

10PC机从硬盘启动Windows XP操作系统是一个比较复杂的过程·在这个过程中,它需

  要经过以下这些步骤:

  I.装入并执行引导程序

  .读出主引导记录

  Ⅲ.装入并执行操作系统

  .加电自检

在上述步骤中,正确的工作顺序是___(10)___

A  I

B  IlI

C  III

D  III

11.下列有关算法和程序关系的叙述中,正确的是___(11)___

  A  算法必须使用程序设计语言进行描述

  B  算法与程序是一一对应的

  C  算法是程序的简化

  D  程序是算法的具体实现

12.采用ADSL方式接入因特网时,ADSLModem将电话线传输信道分为三个信息通道:

  语音通道、上行数据通道、下行数据通道。下列有关这三个信息通道的叙述中,错误

的是 ___(12)___ ·

A  语音通道的频带最宽、采用的频率最高,以保证电话通话的质量

B  通常上行数据通道的数据传输速率低于下行数据通道的数据传输速率

C  ADSL的数据传输速率是根据线路情况自动调整的

D  这三个信息通道可以同时工作,即可以同时传输信息(数据)

13.无线局域网是以太网与无线通信技术相结合的产物,其采用的网络协议主要是IEEE

制订的___(13)___  

A  IEEE 8023

B  IEEE 80211

C  IEEE 1394

D  IEEE 1394b

14.在因特网中目前主要采用IPv4协议,IP地址长度为32位,只有大约36亿个地址。新

的第6IP协议(IPv6)已经将IP地址的长度扩展到___(14)___ 位,几乎可以不受限制地提供地址。

    A  48

    B  64

    C  128

    D  256   

15·因特网由大量的计算机和信息资源组成,它为网络用户提供了非常丰富的网络服务。

  下列与www服务相关的叙述中,错误的是___(15)___   

  A.  WWW采用客户机服务器工作模式

  B  网页到网页的链接信息由URL指出

  C  浏览器是客户端应用程序  

  D  所有的网页均是HTML文档

16·目前Windows操作系统支持多种不同语种的字符集,即使同一语种(例如汉语)也可

  有多种字符集。下列字符集中,不包括等繁体汉字的是___(16)___   

  A  GBK

  B  Big5

  C  GB2312

  D  GBl8030

17·下列与数字图恸图形相关的叙述中,错误的是___(17)___   

  彩色图像在数字化过程中需进行分色处理,然后对不同的基色进行取样和量化

  如果某RGB图像的像素深度为12,则可表示的颜色数目为2

  数码相机常用JPEG格式保存图像文件,该格式的图像大多采用有损压缩编码

D·’图形是计算机合成的图像,也称为矢量图形

18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件的扩展名。下列文件中,属于数字视频的文件是___(18)___

  A  ABCRMVB

  B  ABCDLL

  C  ABCPDF

  D  ABCMIDI

19.下列几种类型的系统软件中,不属于计算机集成制造系统(CIMS)范畴(或者说,CIMS无直接关系)的是___(19)___

  A  GIS

  B  CAM

  C  MRP

  D  ERP

20下列有关Microsoft PowerPoint 2003Microsoft FrontPage 2003软件的叙述中,错误的是  20 

  型用PowerPoint编辑演示文稿时,可以将每张幻灯片保存为JPEG图片

  利用PowerPoint编辑演示文稿时,可以录制声音   

  利用FrontPage制作网页时,无法直接查看网页的HTML代码

  利用FrontPage制作网页时,背景图片可以设置为水印效果

第二部分 Visual Basic程序设计

一、选择题(用答题卡答题,答案依次填在2130答题号内)

21.以下说法中,正确的是    21   

A.属性是对象的特征,所有的对象都有相同的属性

B.属性值只能在属性窗口中设置

C.在程序中可以用赋值语句给对象的任何一个属性赋值

D.对象的运行时属性不出现在对象属性窗口中

22.下面4个语句中,错误的是___(22)___

  AN=InputBox(输入N:,,5)

  B.InputBox(输入N:,,5)

  CMsgBox请回答

DK=MsgBox(”请回答”)

23.若设X=1,Y=2,则不能在窗体上显示出”A=3”的语句是___(23)___

APrint  A=X+Y

BPrint ”A=”X+Y

 CPrint ”A=”+Str(X+Y)

DPrint ”A=”& X+Y

24表达式InStr(4,”abcabca””c”)+Int(2.5)的值为___(24)___

  A7    B8    C5  D9

25.以下有关数组的说法中,错误的是___(25)___

A.用ReDim语句重新定义动态数组时,其下标的上下界可以使用赋了值的变量

B.用ReDim语句重新定义动态数组时,不能改变已经说明过的数组的数据类型

C.使用ReDim语句一定可以改变动态数组的上下界

D.定义数组时,数组维界值可以不是整数

26.以下有关过程的说法中,错误的是___(26)___  

A.不论在Function过程中是否给函数名赋过值,都会返回一个值

B.不能在FunctionSub过程内部,再定义FunctionSub过程

CFunction过程与Sub过程,都可以是无参过程

D.过程名可以和主调过程的局部变量同名

27.下列关于菜单的说法中,错误的是___(27)___。.

A.除了Click事件之外,菜单项不能响应其他事件

B.菜单的名称项(Name属性)不可缺省

C.只有当代码窗口为当前活动窗口时,才能打开菜单编辑器

D.菜单项的快捷键不能任意设置

28.设a=1b=2c=3,逻辑表达式ab Xor c的值是___(28)___

  AFalse    B-1    CTrue   D  1

29.在窗体Form1中用“Public Sub Fun(x As Integer,Y As Single)”定义过程Fun,在窗体Form2的某事件过程中定义了变量IJ均为Integer,若要在此过程中调用Form1中的Fun过程,则下列语句中正确的___(29)___   

ACall Fun(IJ)

BCall Forml.Fun(IJ)

CFun I(J)

DForm1.Fun I(J)

30.以下有关文件操作的说法中,正确的是  30   

A.在某过程中用Open语句打开的文件,只能在这个过程中使用

B.不能用OutputAppend方式打开一个不存在的顺序文件

C.在Input方式下,可以使用不同的文件号同时打开同一个文件

D.在不同的过程中,可以用同一个文件号同时打开不同的文件

二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)

执行下列程序,单击按钮Command1,窗体上显示的第一行内容是___(1)___,第二行是___(2)___,第三行内容是___(3)___   

Option Explicit

Private Sub Command1_Click()

  Dim a As Integer,b As Integer

  a=4

  b=3

  Do Until a>10

    b=b2

    Do Until b>10

      a=(a+b)\2+b

      b=b+5

      Print a,b

    Loop

    a=a-3

  Loop

End Sub

2.执行下面程序,当单击Cmd1时,在窗体上显示的第一行内容是___(4)___第二行的内容是___(5)___,第四行的内容是___(6)___   

Option Explicit

Private Sub Cmd1_Click()

  Dim a As Integer,b As Integer

  a=1

  b=2

  Print fun(2*bfun(a,(b)))

  Print a;b

End Sub

Private Function fun(x As Integer,y As Integer) As Integer

    x=x+2

    y=x-y+3

    fun=x+y

    Print fun

End Function

3.执行下面的程序,单击CmdRun后,数组元素a(12)的值是___(7)___,a(2,1)的值是

___(8)__a(32)的值是___(9)___

    Option Explicit

    Option Base 1

    Private Sub CmdRun_Click()

       Dim A(33)As Integer,i As Integer,j As Integer,k As Integer,n As Integer

       n=3

       i=1j=n

       A(ij)=1

       For k=2 To n*n

         If i+1>n Then

            i=n-j+2j=1   

         ElseIf i+1<=n And j+1>n Then

            j=j-ii=1

         Else

            i=i+1j=j+1

         End If

         A(i,j)=k

       Next k

       For i=1 To n

          For j=1 To n

             Print A(ij);

          Next J

          Print

       Next i

    End Sub

4.运行程序,在文本框Text1中输入用空格分隔的4位二进制数100101010110。单击处理按钮,在多行文本框Text2中第一行显示___(10)___,第二行显示___(11)___    ,第三行显示___(12)___

Option Explicit

Private Sub Cmd1_Click0

  Dim S(3) As Stringn As Integer

  Dim i As Integer,k As Integer

  k=1

  For i=1 T0 3

    S(i)=Mid(Text1k4)

    k=k+5

    Call Transform(nS(i))

    Text2=Text2 & n & vbCrLf

  Next i

End Sub

Private Sub Transform(n As Integer,S As String)

  Dim k As Integer,i As Integer,L As Integer

  L=Len(S)

  If Val(Mid(S11))=1 Then

    n=-(2^(L-1))

  Else

    n=0

  End  If

 For i=2 To L

    k=Mid(Si1)

    n=n+k*2^(L-i)

 Next i

End  Sub

  

5.执行下列程序,单击CmdRun按钮,则窗体上显示的第一行是___(13)___ ,第二行是___(14)___最后一行是___(15)___

Option Explicit

Private Sub Command1_Click()

  Dim n As Integer

  For n = 4 To 7

    If Fun1(n, Sqr(n)) Then

      Print n; "SS"

    Else

      Print n; "HS"

    End If

  Next n

End Sub

Private Function Fun1(n As Integer, i As Integer) As Boolean

    If i = 1 Then

      Fun1 = True

    ElseIf n Mod i <> 0 Then

      Fun1 = Fun1(n, i - 1)

    Else

      Fun1 = False

    End If

End Function

6.下面程序的功能是求S的值。

计算到第k项的值小于等于1O 为止.请完善本程序。

  Option Explicit

  Private Sub CmdSum_Click()

    Dim s As Singlex As Singlek As Integer,t As Single

x=CSng(Text1.Text)

   ___(16)___

DO

     t=pt(xk)

     s=s+t

     k=k+1

  Loop Until t<=0.000001

  Text2.Text=CStr(s)

End Sub

Private Function pt(x As Singlen As Integer)As Single

  Dim iAs Integer

  ___(17)___

For i=1 To n

    pt=___(18)___

Next i

pt=pt/x^n

End Function

7.下面程序的功能是,找出100---999之间具有以下特点的整数:其全部真因子(1和自身除外的因子)中,所有素数因子之和的2倍等于其余因子的和数.请完善本程序。

  Option Explicit

  Option Base 1

  Private Sub Command1_Click()

    Dim i As LongJ As Longm As Integer,st As String

    Dim a() As Integer

    For i=100 To 999

     ___(19)___

For j=2 To i-1

       If i Mod j=0 Then

         m=m+1

         ___(20)___

         a(m)=J

       End If

Next j

If m>O Then

      If yzh(ast) Then List1.AddItem i & “” & st

     End If

     Erase a

    Next i

End Sub

Private Function yzh(a() As Integer,st As String)As Bocllean

  Dim i As Integer,j As Integer

  Dim suml As Longsum2 As Longstl As Stringst2 As String

  For i=1 To UBound(a)

    For j=2 To Sqr(a(i))

      If a(i) Mod j=0 Then Exit For

    Next j

    If ___(21)___ Then

      sum1=sum1+a(i)

      st1=st1 & a(i) & ”+”

EIse

  sum2=sum2+a(i)

      st2=st2 & a(i) & ”+”

    End If

Next i

If sum1*2=sum2 Then

   ___(22)___

   st=”(” & Left(st1Len(st1)-1) & ”)*2=”& Left(st2,Len(st2)-1)

End If

End Function

8.本程序的功能是求-128+127之间整数n82进制补码。采用的算法是:若n≥O,则直接将其转换为相应的72进制数,前面的符号位设定为“O”;若n<0,则将n+128转换为相应的72进制数,前面的符号位设定为1”。请完善本程序。

Option Explicit

 Private Sub Command1_Click0

    Dim dec As Integer

dec=Textl

If  ___(23)___ Then

MsgBox ”无效数据,请重输!”,,求补码

Text1=””

Text1SetFOCUS

   Eise

    Text2=bm(dec)

   End If

End Sub

Private Function bm(n As Integer) As String

  If Sgn(n)>=0 Then

    bm=”0”& d2b(n)

  Else  

    n=n+128

    bm=___(24)___

 End If

End Function

Private Function d2b(n As Integer)As String

  Dim p As Integer

  Do

    p=n Mod 2

    d2b=CStr(p) & d2b

    n=n\2

Loop Until ___(25)___

d2b=Right(”000000”& d2b7)

End Function

9.本程序的功能是,按从大到小的次序给一组正整数标记序次。程序的算法是:先找出原数组中所有的最大数,假如有n个最大数,它们序次均标记为1,已处理的数据值改为-99:再找出所有的次大数,它们的序次标记为n+1……直到所有数据处理完毕。请完善本程序。(说明:数组sn用于存放数组a中相应的各个元素的序次,数组b用来保留原始数据)

  Option Explicit

  Option Base 1

  Private Sub Cmd1_Click()

    Dim a(10)As Integer,sn(10)As Integer,b(10)As Integer,i As Integer

    For i=1 To lO

      a(i)=Int(Rnd*61)+40

      b(i)=___(26)___

      Text1=Text1 & Str(a(i))

Next i

Call order(asn)

   For i=1 To 10

     List1.Addltem b(i) & “--“ & sn(i)

   Next i

End Sub

Private Sub order(a() As Integer,sn() As Integer)

  Dim i As Integer,j As Integer

  Dim n As Integer,maxi As Integer

  i=1

  Do While i<=UBonnd(a)

    n=___(27)___

maxi=a(1)

For J=2 To UBound(a)

       If ___(28)___ Then

         maxi=a(j)

       End If

    Nextj

    For j=1 To UBound(a)

       If  ___(29)___ Then

          sn(j)=i

          a(j)=-99

          n=n+1

       End If

    Nextj

    i=___(30)___

  Loop

End Sub