绝密★ 启用前

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.微电子技术是信息技术领域中的关键技术,它以集成电路为核心.下列有关集成电路的叙述中,错误的是 ___(1)___  

    A.  现代集成电路使用的半导体材料只能是硅(Si),不能使用其它任何半导体材料

    B.  集成度是指集成电路包含的电子元件数目,可分为SSI、MSI、VLSI等

    C.  Moore定律指出,单块集成电路的集成度平均18--24个月翻一番

    D.  我国第二代身份证中嵌入了集成电路芯片,可以实现电子防伪和数字管理功能

2.  数据传输速率是数据通信中重要的性能指标。Gb/s是数据传输速率的计量单位之一,其正确含义是 ___(2)___   。

    A.每秒兆位   B.每秒千兆位   C.每秒百兆位   D.每秒百万位

3.  所谓"变号操作"是指将一个整数变成绝对值相同但符号相反的另一个整数。假设使用补码表示的8位整数x=10010101,则经过变号操作后结果为___(3)___.

    A.01101010     B.00010101    C.11101010     D.01101011

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

    A.  主板的物理尺寸没有标准,各厂家均可自行定义

    B.  主板上包含芯片组,它是PC机各组成部分相互连接和通信的枢纽

    C.  主板上包含BIOS和CMOS芯片

    D.  主板上包含CPU插座、内存条插槽及其它类型的插槽

5.  下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中,正确的是 __(5)____   .

    A.PC机所采用的CPU都是Intel公司生产的Pentium系列芯片,其它厂商生产的CPU都与之不兼容

    B.目前已有双核的微处理器(例如Core 2 Duo),但还没有四核的微处理器

    C.  通常来说,DRAM的速度比SRAM的存取速度慢

    D.  一般来说,一个内存条上仅有一个DRAM或SRAM芯片

6.  下列有关PC机I/O总线与I/O接口的叙述中,错误的是 __(6)____   .

    A.  目前PC机中协调与管理总线操作的总线控制器包含在主板上的芯片组中

    B.  总线最重要的性能是数据传输速率,其单位通常为MB/s或GB/s

    C.  SATA接口的数据传输速率通常低于USB 2.0的数据传输速率

    D.  USB连接器有4个引脚,其中一个引脚连接+5V电源

7.  下列有关PC机常用I/O设备的叙述中,错误的是__(7)____。

    A.  目前台式机键盘通常有一百零几个按键,笔记本电脑的键盘有八十几个按键

    B.  目前流行的鼠标是光电鼠标,其与主机的接口有PS/2与USB两种

    C.  宽屏LCD显示器的宽高比为16：9或16：10

    D.  打印速度是打印机的重要性能指标,速度单位通常为dpi

8.  下列有关PC机外存储器的叙述中,错误的是___(8)___    。

  A.  目前硬盘的盘片大多为3.5、2.5或1.8英寸,一个硬盘中可有一个或多个盘片

  B.  目前有些u盘可以模拟硬盘和光盘存储器启动操作系统

  C.  目前光盘存储器主要分为CD、DVD和BD三种,它们均采用红外激光进行读写

  D.  目前光驱的速率通常用多少倍速表示

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

  A.  软件一般是指程序及其相关的数据和文档资料   

  B.  从软件的用途考虑,软件可以分为系统软件和应用软件,主要的系统软件有操作系统、语言处理系统和数据库管理系统等。   

  C.  从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件,共享软件和自由软件均为无版权的免费软件

  D.Linux是一种系统软件、自由软件

10.到目前以止,Windows系列操作系统已推出多个版本。在下列版本中,最新的Windows

  版本是___(10)___

  A.  Windows7   B.  Windows Me  C.  Windows XP    D.  Windows Vista

11.下列有关Windows XP操作系统功能的叙述中,错误的是___(11)___.

    A.  系统通过"时间片”轮转策略支持多任务处理 

    B.  系统利用SPOOLing技术进行存储管理

    C.  在设备管理中引入了缓冲技术,以减少I/O操作的等待时间

    D.  系统支持PnP功能,并按ACPI标准进行电源管理

12.在因特网中某台主机的IP地址为20.25.30.8,子网掩码为255.255.255.0,那么该主机

  的主机号为  ___(12)___  。

  A.  20   B.  25    C.  30   D.  8

13.局域网中需要传输的数据必须预先组织成若干数据帧,每一数据帧的格式如下图所示：上图中最末部分"?”表示的是___(13)___    。

A.协议信息  B.校验信息   C.冗余信息    D.结束标志

14.目前网络用户接入因特网有多种方式,例如ADSL、HFC等。通过HFC接入因特网时采用的网络是___(14)____。

    A.  有线电话网   B.  有线电视网   C.  无线局域网    D.  移动电话网

15.下列网络协议中,直接与电子邮件传输相关的网络协议是___(15)___。

    A.FTP   B.SMTP    C.TELNET     D.NNTP

16.下列有关计算机中文本与文本处理的叙述中,错误的是 ___(16)____ 

    A.  西文字符主要是采用ASCII字符集,基本ASCII字符集共有256个字符

    B.  我国最早采用的汉字字符集是GB2312,包含6000多个汉字和若干个非汉字字符

    C.  无论采用何种方式输入汉字,在计算机中保存时均采用统一的汉字内码

    D.  简单文本和丰富格式文本中字符信息的表示相同,区别在于格式信息的表示

17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间)。下列四种颜色模型中,

    彩色喷墨打印机使用的是___(17)___.

    A.  RGB   B.  HSB    C.  YUV    D.  CMYK

 18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件的扩展名,下

    列文件中,属于数字声音的文件是______

    A.  ABC.RM

    B.  ABC.WMA

    C.  ABC.MKV

    D.  ABC.SWF

 19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统实施和系统维

    护等几个阶段。下面各项工作中,属于系统实施阶段的是___(19)___

    A.问题定义

    B.可行性研究

    C.系统测试

    D.绘制E-R图

20.下列有关Micmsoft Word 2003和Microsoft Excel 2003软件的叙述中,错误的是___(20)___

    A.  利用Word软件编辑文档,可以将其保存为TXT、DOC、RTF和HTM格式文件

    B.  利用Word软件编辑文档时,可以统计选定文本的字符数

    C.  在Excel软件中,可以打开(导入)TXT、DBF、HTML格式的文件(数据)

    D.  Excel文件可以设置打开权限密码,但不可以单独设置修改权限密码

第二部分Visual Basic程序设计

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

21.以下有关事件过程的说法中,正确的是___(21)___

  A.所有的事件过程都是Sub子过程

  B.所有的事件过程都没有参数

  C.所有的事件都是由用户的操作直接引发的

  D.事件过程不能使用Call语句调用执行

22.以下语句中,正确的是___(22)___    。

  A.List1.AddItem x,"=",y   B.Picture1.Print x,"=",y

  C.Text1.Text=x,"=",y      D.Label1.Caption=x,"=",y

23.以下有关VB程序书写规则的说法中,错误的是___(23)_____

  A.一行可以书写多条语句,语句间用":"分隔

  B.使用注释时,"'"可与注释语句定义符"Rem"互换使用

  C.过长的语句,可使用续行标志" _",分写在多行上

  D.代码输入时,可不用区分字母大小写,系统会将"保留字"首字母自动改为大写

24.设变量I和J是整型变量,K是长整型变量。I已赋值32763,J和K分别赋值5,若接着执行以

下语句,可正确执行的是___(24)___。

    A.I=I+K      B.J=I+K

    C.K=I+J+K    D.K=K+I+J

25.以下关系表达式中,运算结果为False的是 ___(25)___

  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)相同的是___(26)___

  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算术表达式为____(27)____

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.以下有关数组的说法中,错误的是___(28)___。

  A.使用ReDim语句,可以改变任何数组的大小与维数

  B.使用ReDim语句,可以定义一个新数组

  C.使用ReDim语句重新定义动态数组时,维界表达式中可以采用变量

  D.使用ReDim语句重新定义的新数组,既可比原数组大,也可比原数组小

29.以下有关Function过程的说法中,正确的是___(29)___    。

  A.函数名在过程中只能被赋值一次

  B.如果在函数体内没有给函数名赋值,则该函数无返回值

  C.如果在定义函数时没有说明函数的类型,则该函数是无类型的

  D.执行函数过程中的Exit Function语句,将退出该函数,返回到调用点

30.以下有关文件用法的描述中,正确的是___(30)___

    A.只有顺序文件在读写前需要使用Open语句打开

    B.使用同一个文件号,可同时打开多个不同的文件

    C.如果以Input方式试图打开一个不存在的顺序文件,则会出错

    D.如果程序中缺少Close语句,即使程序运行结束,打开的文件也不会自动关闭

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

1.运行下面程序,单击CmdRun,在窗体上显示a的值是___(1)___;b的值是___(2)___;i的值是___(3)___ 。

  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

          Pic1.Print

       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

            k=k+1

            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

9.本程序的功能是查找一组数据中的众数。所谓众数,就是在这组数据中出现次数最多的数.注意:一组数据中的众数可能有多个.(即有多个数据的出现次数相同)。事件过程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

  End Sub

  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

(23)d Mod 16 (24)d2h=q & d2h (25)d=0 (26)max=cs(i) (27)cs(i)=max

(28)j>n (29)preserve shu(n),cs(n)  (30)js=js+1