1．  下面关于比特的叙述中，错误的是(   1      )

    A．比特是组成数字信息的最小单位

    B．比特只有“0”和“1”两个符号

    C．比特既可以表示数值和文字，也可以表示图像和声音

    D. 比特”1”总是大于比特“0”  

2．  在下列有关集成电路的叙述中，错误的是 (    2       )

  A．现代集成电路使用的半导体材料主要是硅

  B．大觑模集成电路一般以功能部件、子系统为集成对象

  C．我国第2代居民身份证中包含有IC芯片  

  D• 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右

3．  在下列有关通信技术的叙述中，错误的是  (   3       )

  A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成

  B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信

  C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率

D•学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质

4.下面是关于PC机主存储器的一些叙述，其中正确的是(  4  )

  A.主存储器是一种动态随机存取存储器(RAM)

  B.主存储器的基本编址单位是字(即32个二进位)

  C.目前市场上销售的PC机，其内存容量可达数十GB

  D.所有PC机的内存条都是通用的：可以互换

5．  现行PC机中，IDE(或SATA)接口标准主要用于(      5      )

  A．打印机与主机的连接    C．声卡与主机的连接

  B．显示器与主机的连接    D．硬盘与主机的连接

6. 下列有关PC机的CPU、内存和主板的叙述中，正确的是(    6    ) 。

    A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片

    B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分

    C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关

D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息

7.下列有关目前Pc机辅助存储器的叙述中，错误的是  (   7       )

  A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多

  B．硬盘的内部传输速率一般小于外部传输速率

  c．优盘采用Flash存储器技术，属于半导体存储器

  D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱

8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是 (   8   ) 。

A．Windows操作系统支持系统中多个任务的并发执行

B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况

C．系统规定文件名最多由128个字符组成

D．Vista是Microsoft公司推出的Windows XP操作系统的后继版本

9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是  (  9  )  。

A．  算法必须产生正确的结果    C．  算法可以没有输出

B．  算法必须具有确定性        D．算法的表示必须使计算机能理解

10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机

 都有一个IP地址。下面不能作为IP地址的是(  10    )

A．  120．34．0．18       C．  21．18．33．48

B.   201.256.39.68        D．  37．250．68．0

11.常用局域网有以太网、FDDI网等，下面的叙述中错误的是  (  11  )

A•  总线式以太网采用带冲突检测载波侦听多路访问(CSMA/CD)方法进行通信

B． FDDI网和以太网可以直接进行互连

C•  交换式集线器比总线式集线器具有更高的性能，它能提高整个网络的带宽．

D•  FDDI网采用光纤双环结构，具有高可靠性和数据传输的保密性

12.某用户在WWW浏览器地址栏内键入一个URL“http://www.zdxy.cn/index.htm”，其中

的“/index.htm”代表(    12   )

A．协议类型      C．路径及文件名

B．主机域名      D．用户名

13.交换式以太网与总线式以太网在技术上有许多相同之处，下面叙述中错误的是(   13     )

A.使用的传输介质相同             C.传输的信息帧格式相同

B.网络拓扑结构相同               D.使用的网卡相同

14.下面是关于我国汉字编码标准的叙述，其中正确的是  (   14    )

  A．Unicode是我国最新发布的也是收字最多的汉字编码国家标准

  B．不同字型(如宋体、楷体等)的同一个汉字在计算机中的内码不同

  C．在GBl8030汉字编码标准中，共有2万多个汉字

  D．GBl8030与GB2312、GBK汉字编码标准不能兼容

15．数字图像的文件格式有多种，下列哪一种图像文件能够在网页上发布且可具有动画效

    果(     15      )

  A．BMP    B．GIF    C．JPEG D．TIF

16．声卡是获取数字声音的重要设备，．在下列有关声卡的叙述中，错误的是

    A．声卡既负责声音的数字化(输入)，也负责声音的重建(输出)

    B．声卡既处理波形声音，也负责MIDI音乐的合成   。

    C．声卡中的数字信号处理器(DSP)在完成数字声音编码、解码及编辑操作中起着重

    要的作用

    D．因为声卡非常复杂，所以它们都被做成独立的PCI插卡形式

17．彩色图像所使用的颜色描述方法称为颜色模型。显示器使用的颜色模型为RGB三基色模

型，PAL制式的电视系统在传输图像时所使用的颜色模型为

    A．YUV    B．HSB    C．CMYK

18．在信息系统的结构化生命周期开发方法中，绘制E-R图属于(   18       )阶段的工作

  A．系统规划   B．  系统分析

  C．系统设计   D．  系统实施

19．在下列有关Microsoft Word 2000／2003(中文版)功能的叙述中，(  19  )

  A．起始页的页码可以不为1

  B．利用菜单命令，可更改所选英文文本的大小写

  C．利用菜单命令“字数统计”，可以统计出当前文档的行数和段落数

  D．表格中的数据不可排序，也不能利用公式进行统计计算

20．在下列有关Microsoft PowerPoint 2001/2003(中文版)功能的叙述中，错误的是(         )   

  A．可通过“另存为”操作，将每张幻灯片保存为一个图片文件

  B．幻灯片的大小是固定的，用户不可以对其进行设置

  C．在排练计时的基础上，可以将幻灯片设置为循环放映

  D．可以对字体进行替换，例如将幻灯片中的“宋体”替换为“楷体”

21.下列语句中，正确的是__________

A．Textl．SetFocus    B．Forml．Clear  C．Labell．SetFocus D．Listl．Cls

22．创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入_________。

 A．文件($F)    B．文件(&F)    C．文件(#F)    D．文件(％F)

23．数学表达式的VB算术表达式为_______ 。

    A．Sin(27)+Sqr(X+Exp3)／(X+Y)

    B．Sin(27*3．14159／180)+Sqr(X+Exp(3))／Abs(X+y)

    C．Sin(27*3．14159／180)+Sqr(X+e^3)／Abs(X+Y)

    D．Sin(27*pi／180)+Sqr(X+Exp(3)／Abs(X+Y)

24．以下说法不正确的是____________。

    A．使用不带关键字Preserve的ReDim语句可以重新定义数组的维数

    B．使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界

    c．使用不带关键字Preserve的ReDim语句可以改变数组的数据类型

    D．使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化

25．下列____________是合法的变量名。

    A．abs    B．-al    C．cdc  d  D．Abe_10

26．要向文件datal．txt添加数据，正确的文件打开命令是_____________。

    A．Open”datal．txt”For Output  As #1

    B．Open”datal．txt”For Input  As #1

    C．Open”datal．txt”For Append  As #5

    D．Open“datal．txt“ For Write As #5

27．以下对数组参数的说明中，错误的是___________ 。

    A．在过程中可以用Dim语句对形参数组进行声明

    B．形参数组只能按地址传递

    c．实参为动态数组时，可用ReDim语句改变对应形参数组的维界

    D．只需把要传递的数组名作为实参，即可调用过程

28．设a=3，b=2，c=1，运行print a>b>c的结果是____________。

    A．True    B．False    C．1    D．出错

29．下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________。

    ①Val(Right(X，1)&Left(X，1))

    ②Val(Right(Str(X)，1)＆Left(Str(X)，1))

    ③Val(Right(CStr(X)，1)＆Left(CStr(X)，1))

    ④Val(Mid(X，2，1)+Mid(X，1，1))

A．①②    B．②③    c．②④    D．①③④

30．下列______是正确的VB常量。

A．D-6    B．E-6    C．5D    D．5E-6

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

  1．执行下面程序，单击Commandl，则窗体上显示的第一行是  (1)  ，第二行是

(3)  ，第三行是(3)  。

    Option Explicit

    Private Sub Commandl—Click()

        Dim a As String，i As Integer

        Dim X As String，z As String

        a=’’iamstudent’’

        i=InStr(5，a，”d”)

    Do

       x=Mid(a，i，3)

       z=Right(X，1)

       z=UCase(x＆Z)

       i=i-2

       Print z

    Loop Until i=1

    End Sub

 2．执行以下程序，单击Commandl，则在Picturel上显示的第一行是  (4)  ，第二行是(5)  ，第三行是(6)  。

    Option Explicit

    Private Sub Commandl_Click()

       Dim A(3，3)As Integer，i As Integer，J As Integer

       Dim k As Integer

       i=3：j=2：A(i，j)=l：k=1

       Do Until k>9

           k=k+1

           If i+1>3 Aod j+1<=3 Then

                i=1：J=j+1

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

                i=i+1：j=1

           Elself  i+1>3 And j+1>3 Then

                i=i-1

           ElseIf i+1<=3 And j+1<=3 And A(i+1，j+1)<>0 Then

                i=i-1

           Else

                i=i+1：j=j +1

           End If

           A(i,j)=k  

    Loop

    For i=1 To 3

       For j=1 To 3

          Picture1.Print A(i,J);

       Next J

    Next I

End Sub

3．执行下面的程序，单击Commandl，则窗体上第一行显示的是  (7)  ，第二行显示的

  是(8)  。

    Option Explicit

    Dim X As Integer

    Private Sub Commandl_Click()

       Dim Y  as  Integer

       X=10：Y=2

       Call process(Y)

       Print X，Y

       Call process((Y))

       Print X，Y

    End Sub

    Private Sub process(n As Integer)

       Dim Y As Integer

       If n>0 Then

         X=X—n

         Y=X

       Else

         X=X+n

         Y=X+2  

       End If

       n=-n

    End Sub

    4．执行下面的程序，连续三次单击命令按钮Commandl之后，A数组共有  (9)  个元

  素；数组元素A(2)的值是(10)  ，A(4)的值是．(11)  。

    Option Explicit

    Option Base 1

    Private Sub Commandl_Click()   

        Static A()As Integer，n As Integer

        Dim i As Integer，k As Integer

        k=n    ‘

        n=n +2

        ReDim  Preserve  A(n)

        For i=k+1 To  n   

A(i)=i*n+1

        Next i

        For i=1 To n

           Print A(i)；

        Next i

        Print

    End Sub

    5．执行下面的程序，单击Commandl，在窗体界面上显示的第一行是  (12) ，第二行是 (13)  ，第三行是(14)  ，第四行是(15)  。

    Option Explicit

    Private Sub Commandl_Click()

         Dim a As Integer，b As Integer，i As Integer

         i=1218

         a=i\100

         b=i Mod 100

         If b<>0 Then

            Print a

            Print b

．          Print Lcd((a)，(b))；a；b

            Print Lcd(a，b)；a；b

        End If

    End Sub

    Private Function Lcd(x As Integer，Y As Integer)As Integer

         Dim d As Integer    ’

         If x

             d=x：x = Y：Y = d

         End If

         d=X

         Do

            If x Mod Y=0 Then

              Lcd=x

              Exit Do

            Else

             X=x+d

            End If

         Loop

End Function

6.本程序的功能是利用无穷级数求cos(x)的近似值,已知:

当第n项的绝对值小于等于10^-7时计算终止。

    Option Explicit

    Private Sub Commandl_Click()

       Dim X As Single，n As Integer，sum As Single

       Dim a As Single

       x=Textl   

        (  16  )

       a=1

       n=1

       Do

         a=-a

         a=(   17   )

         sum=sum+a

         n=n+1

       Loop Until(  18  )

       Text2=sum

    End Sub

7．定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。以下程序的功能

是求一个4×4方阵的范数。该方阵的数据是随机生成的-20～20之间的整数。

    Option Explicit

    Option Base 1

    Private Sub Commandl_Click()

      Dim a(4，4) As Integer

      Dim i As Integer，j As Integer

      For i=1 T0 4

        For j=1 To 4

          a(i，j)=  ( 19 )

          Picturel．Print Right(" "

    &Str(a(i，j))，4)；

        Next j

        Picturel．Print

     Next i

     Textl.Text=  ( 20 )

    End Sub

    Private Function fan(a()As Integer)As Integer

         Dim b(4) As Integer，max As Integer

         Dim i As Integer，j As Integer

         For i=1 To  4

For j=1 To 4

                 b(j)=(    21  )

              Next J

         Next i

    max=b(1)

         For i=2 To 4

           If max

         Next i

         fan=max

    End Function  

    8．下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不 同数字组成。算法提示：函数Validate用于验证一个4位数是否由4个不同数字组成。在函 数中用A数组的各个元素分别对应数字0～9，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。

Option Explicit

   Private Sub Commandl_Click()

      Dim i As Integer，Flg As Boolean

      For i=1234 To 4321

          (  22 )

          Call Prime(i，Flg)

          If Flg Then

             If Validate(i)Then

                 Textl=Textl & i & vbCrLf

    ．       End If

          End If

      Next i

    End Sub

    Private Sub Prime(n As Integer，f As Boolean)

      Dim k As Integer

      For k=2 To Sqr(n)

          (   23   )

      Next k

      f=True

    End Sub

    Private Function Validate(n As Integer)As Boolean

       Dim A(0 To 9)As Integer，s As String，i As Integer

       Dim sl As String*1

．     (   24   )

    For i=1 To Len(s)

       sl=Mid(s，i，1)

      (    25   )

    Next i

      If A(1)+A(2)+A(3)+A(4)=4 Then

       (   26   )

      End If

    End Function

    9．下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。

  Option Explicit

  Dim a( )As Integer

Private Sub Form_Activate()

    Dim i As Integer

    ReDim a(10)

    For i=1 To 10

      a(i)=(i-1)*10+1

      Textl=Textl & Str(a(i))

    Next i

    Text2.SetFocus

End Sub

Private Sub Commandl_Click()

  Dim n As Integer，i As Integer

  n=Text2

  For i=1 To UBound(a)

    If (   27   )Then Exit For

  Next i

  (   28   )

    For i=1 To UBound(a)

       Text3=Text3 & Str(a(i))

    Next i

End Sub

Private Sub inst(P()As Integer，n As Integer，k As Integer)

                                  '数组元素移位并实现插入

    Dim i As Integer

    (   29   )

    For i=UBound(P)-l To k Step -1

    (   30   )

    Next i

    P(k)=n

End Sub

参考答案:

21.A22.B 23.B.24.C.25.D.26.C27A28B29D30D

填空

(1)DENN(2)TUDD(3)MSTT(4)4 9 2(5)3 5 7 (6)8 1 6 (7)8 -2  (8)6 -2  (9)6  (10)5 (11)17 (12)12 (13)18 (14)36 12 18  (15)36 36 12 (16)sum=1 (17)a*x*x/(2*n*(2*n-1)) (18)Abs(a)<=0.0000001  (19)Int(Rnd*41)-20  (20)fan(a)  (21)b(j)+Abs(a(i,j)) (22)Flg=False

(23)If n Mod k=0 Then Exit Sub  (24)s=Cstr(n)或s=n (25)A(Val(s1))=1或A(s1)=1 (26)Validate=True  (27)n (28)Call Inst(a,n,i)或inst a,n,i (29)Redim Preserve p(UBound(p)+1)  (30)p(i+1)=p(i)

二：编程题目(26分)

编写一个查找介于整数A、B之间所有同构数的程序，若一个数出现在自己平方数的右端，则称此数为同构数，例如：5在5^2=25的右端，25在25^2=625的右端，故5和25为同构数