首页:一级考试::二级vb::二级vfp::二级c语言::二级vc++::三级偏软::三级偏硬::成绩查询::在线考试系统::网上书店::留言
2006年春等级考试VB二级试卷(江苏)

2006年春VB二级试卷

第一部分  计算机基础知识

1、信息技术指的是用来扩展人的信息器官功能、协助人们进行信息处理的一类技术。在下列基本信息技术中,用于扩展人的效应器官功能的是____。

 A.感测与识别技术   B.通信与存储技术                    

 C.计算与处理技术  D.控制与显示技术

2、微电子技术是以集成电路为核心的电子技术。在下列关于集成电路(IC)的叙述中,正确的是____。

A.集成电路的发展导致了晶体管的发明

B.现代计算机的CPU均是超大规模集成电路

C.小规模集成电路通常以功能部件、子系统为集成对象

D.所有的集成电路均为数字集成电路

3、通信技术的发展促进了信息的传播。在下列有关通信与通信技术的叙述中,错误的是____。

A.通信系统必有“三要素”,即信源、信号与信宿

B.现代通信指的是使用电(光)波传递信息的技术

C.数据通信指的是计算机等数字设备之间的通信

D.调制技术主要分为三种,即调幅、调频和调相

4、在计算机中,数值为负的整数一般不采用“原码”表示,而是采用“补码”方式表示。若某带符号整数的8位补码表示为1000 0001, 则该整数为____.

A.129   B.-1  C.-127  D.127

5、在下列有关CPU(中央处理器)与Pentium微处理器的叙述中,错误的是____。

A.CPU除包含运算器和控制器以外,一般还包含若干个寄存器

B.CPU所能执行的全部指令的集合,称为该CPU的指令系统

C.Pentium系列处理器在其发展过程中,其指令系统越来越丰富

D.Pentium处理器与Power PC处理器虽然产自不同的厂商,但其指令系统相互兼容

6、根据存储器芯片的功能及物理特性,目前用作优盘存储器芯片的是____。

A.SRAM  B.SDRAM  C.EPROM  D.Flash ROM

7、I/O接口指的是计算机中用于连接I/O设备的各种插头/插座,以及相应的通信规程以及电气特性。在下列相关I/O总线与I/O接口的叙述中,错误的是____。

A.PC机系统总线一般分为处理器总线和主板总线

B.PCI总线属于I/O总线

C.PC机的I/O接口可分为独占式和总线式

D.USB是以并行方式工作的I/O接口

8、输入设备用于向计算机输入命令和数据,它们是计算机系统必不可少的重要组成部分。在下列有关常见输入设备的叙述中,错误的是____。

A.目前数码相机的成像芯片仅有一种,即CCD成像芯片

B.扫描仪的主要性能指标包括分辨率、色彩位数和扫描幅面等

C.目前台式PC机普遍采用的键盘可直接产生一百多个按键编码

D.鼠标器一般通过PS/2接口或USB接口与PC机相连

9、显示器的作用是将数字信息转换为光信息,最终将文字和图形/图像显示出来。在下列有关PC机显示器的叙述中,错误的是____。

A.目前出厂的台式PC机大多数使用AGP接口连接显示卡

B.彩色显示器上的每个像素由RGB三种基色组成

C.与CRT显示器相比,LCD的工作电压高、功耗小

D.从显示器的分辨率来看,水平分辨率与垂直分辨率之比一般为4:3

10、计算机软件(简称软件)指的是能指挥计算机完成特定任务的、以电子格式存储的程序、数据和相关的文档。在下列有关软件的叙述中,错误的是____。

A.软件的版权所有者不一定是软件作者

B.共享软件指的是一种无版权的软件

C.用户购买一个软件后,仅获得该软件的使用权,并没有获得其版权

D.软件许可证是一种法律合同,它确定了用户对软件的使用方式

11、在下列有关Windows操作系统(这里指Windows 95及其以后的版本)的多任务处理功能的叙述中,正确的是____。

A.在多任务处理过程中,前台任务与后台任务都能得到CPU的响应(处理)

B.由于CPU具有并行执行指令的功能,所以操作系统才能进行多个任务的处理

C.由于用户只启动一个应用程序,那么该程序就可以自始至终地独占CPU

D.Windows操作系统采用协作方式支持多个任务的处理

12、文件管理是操作系统的基本功能之一。在Windows操作系统环境下,下列有关文件管理功能的叙述中,错误的是____。

A.计算机中的所有程序、数据、文档都组织成文件存放在外存储器中

B.磁盘上的文件分配表(FAT)有两个,且内容相同

C.任何磁盘上的文件根目录表(FDT)仅有一个

D.文件管理以扇区为单位分配磁盘上的存储空间

13、随着Internet的飞速发展,其提供的服务越来越多。在下列有关Internet服务及相关协议的叙述中,错误的是____。

A.电子邮件是Internet最早的服务之一,主要使用SMTP/POP3协议

B.WWW是目前Internet上使用最广泛的一种服务,常使用的协议是HTTP

C.文件传输协议(FTP)主要用于在Internet上浏览网页时控制网页文件的传输

D.远程登录也是Internet提供的服务之一,它采用的协议称为Telnet

14、在下列有关程序设计语言及其处理程序的叙述中,错误的是____。

A.程序设计语言可分为机器语言、汇编语言和高级语言

B.机器语言与计算机硬件关系密切,用它编写的程序可移植性较差

C.用于辅助编写汇编语言程序的编辑软件称为汇编程序

D.高级程序设计语言可以有解释与编译两种方式

15、在下列有关最常见局域网、网络设备以及相关技术的叙述中,错误的是____。

A.以太网是最常用的一种局域网,它采用总线结构

B.每个以太网网卡的介质访问地址(MAC地址)是全球惟一的

C.无线局域网一般采用无线电波或红外线进行数据通信

D.“蓝牙”是一种远距离无线通信的技术标准,适用于山区住户组建局域网

16、字符编码标准规定了字种及其编码。在下列有关汉字编码标准的叙述中,错误的是____。

A.我国颁布的第一个汉字编码标准是GB2312-80,它包含常用汉字6000多个

B.GB2312-80和GBK标准均采用双字节编码

C.GB18030-2000标准使用3字节和4字节编码,与GB2312-80和GBK兼容

D.UCS-2是双字节编码,它包含拉丁字母文字、音节文字和常用汉字等等

17、不同格式的图像文件,其数据编码方式有所不同,通常对应不同的应用。在下列几组图像文件格式中,制作网页时用得最多的是____。

A.GIF与JPEG  B.GIF与BMP   C.JEPG与BMP   D.GIF与TIF

18、计算机中处理的声音分为波形声音和合成声音两类。在下列有关波形声音的叙述中,错误的是____。

A.波形声音的获取过程就是把模拟声音信号转换为数字形式,包括取样、量化和编码等步骤

B.声音信号的数字化主要由声卡来完成,其核心是数字信号处理器(DSP)

C.MP3采用MPEG-3标准对声音进行压缩编码

D.波形声音的主要参数包括取样频率、量化位数和声道数目等

19、在下列有关数据库技术的叙述中,错误的是____。

A.关系模型是目前在数据库管理系统中使用最为广泛的数据模型之一

B.从组成上看,数据库系统由数据库及其应用程序组成,它不包含DBMS及用户

C.SQL语言不限于数据查询,还包括数据操作、定义、控制和管理等多方面的功能

D.Access数据库管理系统是Office软件包中的软件之一

20、Microsoft Word是目前最常用的文字处理软件之一。在下列有关Microsoft Word(97及其以后的版本)功能的叙述中,错误的是____。

A.在默认情况下,页面的版面(纸张大小)能为A4

B.在同一文档中,所有页面的版面(纸张大小)只能相同(答题者注:插入分节符后就可以不同)

C.系统具有基于字典的拼写检查功能

D.在普通视图中,可以显示表格,但不能显示所插入的图片(答题者注:早期版本不可以,现在版本可以显示)

第二部分   Visual Basic程序设计

 一、选择题

21、窗体上放置了三个文本框,若在Text1中输入456,在Text2中输入78,在程序中执行了语句Text3=Text1+Text2后,则在Text3中显示____。

A.434    B.45678    C.溢出    D.语法错误 

22、如果窗体上有命令按钮“确定”,在代码编辑窗口有与之相对应的OK_Click()事件过程,则命令按钮控件的名称属性和Caption属性分别为____。

A.“OK”和“确定”

B.“确定”和“OK”

C.“Command1”和“确定”

D.“Command1”和“OK”

23.下面Sub子过程的各个语句中,正确的是( )
a Private Sub Sub1(A() As string)
b Private Sub Sub1(A(1 to 10) As string*8)
c Private Sub Sub1(S As string)
d Private Sub Sub1(s As string*8)
A abcd       B abc         C acd            D ac
24.执行赋值语句_____后,会触发相应控件的Change事件(控件名均为缺省名)。

A. Dirl.ListIndex =-2     B. Drive1.ListIndex =2
C. List1.ListIndex =3         D. File1.ListIndex =3
25.假设变量BOOL是一个布尔型变量,则下列赋值语句中,正确的是(  )。

  A. BOOL ='TRUE'          B. BOOL =.TRUE.
C. BOOL =#TRUE#          D. BOOL = True
26.表达式6.5*5 Mod 28\8的值是(   )。 
A. 0 B. 1 C. 2 D. 3
27.以下所列项目不属于窗体事件的是(   )。 
  A. Initialize    B. SetFocus    C. GotFocus    D. LostFocus
28.函数CInt Int Fix都返回整数值,以下能正确地描述它们返回整数值大小关系的是(   )。

A. CInt(-4.51)=Int(-4.51)< Fix(-4.51)
B. Int(-4.51)C. CInt(-4.51)< Fix(-4.51)D. Int(-4.51)29.下面有关数组的说法中,错误的是(   ) 
A.数组必须先定义后使用
B.数组形参可以是定长字符串类型
C.Erase语句的作用是对已定义数组的值重新初始化
D.定义数组时,数组维界值可以不是整数
30.可以把变化长字符串S中的第一个"ABC"子串,替换成“1234"的语句是(   )

A. S=Left(s, InStr(S,"ABC"))&"1234" & Right(S,Len(S)-InStr(S,"ABC")-2)
B. Mid(S,InStr(S,"ABC"),3)="1234"
C. Mid(S,InStr(S,"ABC"),4)="1234"
D. S=Left(s, InStr(S,"ABC")-1)&"1234"& Right(S,Len(S)-InStr(S,"ABC")-2)

二 执行下面程序,当单击窗体时,显示在窗体上第一行的内容是__(1)__,第二行的内容是__(2)__
Private Sub Form_Click()
   Dim I As Integer,Sum As Intger
   For I=0.5 To 8.5 Step2.5
   Sum=Sum+I*10
   Next I
   Print Sum
   print I
End Sub
2.运行下面的程序,当单击窗体时,窗体上显示的内容的第一行是_(3)___,第三行是_(4)_,第五行是_(5)__
Private Sub From_Click()
    Dim s As String, i As Integer,n(9) As Integer
    Dim s1 As String*1,j As Integer
    s=Trim("12345a307291b233")
    For i=1 To Len(s)
       s1=Mid(s,i,1)
       If s1>="0" And s1<="9"Then
         j=Val(s1)
         n(j)=n(j)+1
       End If
    Next i
    For j=0 To 9
     Print j; ":" ;n(j)
    Next j
End Sub
3.执行下面程序,单击命令按钮Command1后,显示在窗体上第一行的内容是_(6)_,第二行的内容是 (7)  ,最后一行的内容是   (8) 

最后一行的内容是   (9)   
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim I As Integer, J As Integer
    For I=3 To 1 Step -2
        N=Fun(I,N)
        Print N
    Next I
End Sub
Private Function Fun (A As Integer) As Integer
    Static X As Integer
    Dim Sum As Integer,I As Integer
    X=X+N
    For I =1 To A
        B=B+X+I
        N=N-I\2
        Sum=Sum+B
    Next I
    A=A+1
    Fun=Sum+A
End Function
4.执行下面程序,单击命令按钮Command1后,显示在窗体上第一行的内容是 (10)   ,A(2,1)的值是(11)   ,A(3,3)的值是 (12) 

Option Base 1
Private Sub Command1_Click()
    Dim A(3,3) As Integer,K As Integer
    Dim I As Integer,j As Integer
    Call SUB1(A)
        For I=1 To 3
            For J= 1 To 3
                Print Right("0"&A(I,J)&" ",3);
            Next J
        Print
     Next I
End Sub
Private Sub SUB1(A() As Integer)
    Dim N As Integer,K As Integer, J As Integer
    N=UBound(A,1)
    For I=1 To N-2
        For J= I To N-I
            A(I,J)=K+1
            A(J,N+1-I)=K+2
            A(N+1-I,N+1-J)=K+3
            A(N+1-J,I)=K+4
            K=K+4
      Next J
    Next I
    If N Mod 2<>0 Then
       A((N+1)/2, (N+1)/2)=K+1
    End If
End Sub
5.执行下面程序,单击命令按钮Command1后,显示在窗体上第一行的内容是 (13)  ,第二行的内容是 (14)  ,第三行的内容是  (15)   
Option Explicit
Private Sub Command1_Click()
    Dim N As Integer, M As Integer

    N=2

    DO While m<3
      N=N+2
      If Fun(N) Then
         Print N
         M=M+1
      End If
    Loop
End Sub
Private Function Fun(ByVal N As Integer) As Boolean
    If N/2=Int(N/2)Then
      Fun=Fun(N/2)
    Else
      If N=1 Then Fun=True
    End If
End Function
6.在下面程序中,Command1_Click()事件过程的功能是生成一个5x5的矩阵,该矩阵的副对角线(指矩阵左下角

到矩阵右上角连线上的元素)上方元素都是偶数,副对角线和它的下方元素都为奇数。Command2_Click()事件

过程的功能是,交换以副对角线为界线的上三角和下三角的对应元素。完善程序,实现以上功能。

Option Explicit
Option Base 1
Dim A(5,5) As Integer
Private Sub Command1_Click()  
     Dim I As Integer,J As Integer , N As Integer
     Randomize
     For I=1 To 5
         For J=1 To 5
             Do
               N=Int(rnd*90)+10
               If J <=5-I And N Mod 2=0 Then
               A(I,J)=N
             ElseIf J >5-I And N Mod 2<> 0 Then
               A(I,J)=N
             End If
         Loop___(16)    
         Text1=Text1 & Str(A(I,J))
     Next J
     Text1=Text1 & vbCrLf
   Next I
End Sub
Private Sub Command2_Click()
     Dim I As Integer,L As Integer,T As Integer
     Dim J As Integer,R As Integer
     For I =1 To 5
         For J=1 To 5-I
             T=A(I,J)
               (17)  
           (18) 
             A(I,J)=A(L,R)
             A(L,R)=T
         Next J
      Next I
      For I =1 To 5
         For J =1 To 5
             Text2=Text2 & Str(A(I,J))
         Next J
         Text2=Text2 & vbCrLf
      Next I
End Sub


7. 在下面程序中,Command1_Click()事件过程的功能是将26个大写字母A~Z依次写到二进制文件Myfile中,Command2_Click()

事件过程的功能是将文件中的大写字母在原位置——改写成小写字母,完善程序,实现以上功能。

Option Explicit
Dim S As String*1
Private Sub Command1_Click()
     Dim I As Integer
     For I=0 To 25
         S=  ( 19)   
         Put #12, , S
     Next I
End Sub

Private Sub Command2_Click()
     Dim Rc_NO As Integer
     Seek #12, 1
     Do While   (20)  

    S=    (21)   
       S=LCase(S)
    Rc_NO=Rc_NO+1
       Put #12,Rc_NO, S
     Loop
End Sub
Private Sub From_Load()
     Open"e:\Myfile" For Binary As #12
End Sub
8.下面程序的功能是对密文解密。密文的加密方法是以字符为单位,取其ASCII码,按逆序保存(例如字母"e"的ASCII码是01100101,密文中则为10100110)。解密是加密的逆过程。完善程序,实现以上功能。
Private Sub Command1_Click()
    Dim s As String, st As String, i As Integer,n As Integer
    s=Text1
    Do Until n >=Len(s)
      (22)  

       If n Mod 8 <> 0 Then
           st=st &Mid(s,n,1)
       Else
           st=st & Mid(s,n,1)
           List1.AddItem st
       (23 )    
       End If
    Loop
End Sub
Private Sub Command2_Click()
    Dim s As String, st As String, i As Integer
    For i=0 To (24       )
        st=List1.List(i)
        For j=1 To Len(st)
            s=Mid(st,j,1) & s
    Next j
    For j=Len(s) To 1 Step-1
         n=(25)      
    Next j
    Text2=Text2 & Chr(n)
     s=" "
   (26)   
  Next i
End Sub


9.下面程序的功能是,找出100以内所有可以表示成3个连续自然数之和的数。完善程序,实现以上功能。
  
Option Explicit
Private Sub Command1_Click()
     Dim I As Integer, N As Integer
     Dim Js As Integer, S As String
     For I =1 To 100
         If Fun(I,N,Js)Then
            S=Str(I) & "=" & N
            Do (27        )
               N=N+1
               S=S & "+" & N
            Loop
            List1.AddItem S
         End If
     Next I
End Sub
Private Function Fun(L As Integer, M As Integer, Js As Integer) As Boolean
    Dim I As Integer, Sum As Integer, K As Integer
    For I =1 To L
       (28       )
       K=0
    (29   )
        Do While Sum < L And K < 3
            K=K+1
            Js=Js+1
            Sum=Sum+Js
        Loop
        If (30   ) then
             M=I
             Fun=True 

E xit For

Exit if
  Next I
End Function  

  江苏省计算等级考试命题研究中心版权所有