2006年春VB二級試卷參考答案

第一部分  計算機基礎(chǔ)知識

1、信息技術(shù)指的是用來擴展人的信息器官功能、協(xié)助人們進行信息處理的一類技術(shù)。在下列基本信息技術(shù)中，用于擴展人的效應(yīng)器官功能的是____。

 A.感測與識別技術(shù)   B.通信與存儲技術(shù)                    

 C.計算與處理技術(shù)  D.控制與顯示技術(shù)

2、微電子技術(shù)是以集成電路為核心的電子技術(shù)。在下列關(guān)于集成電路（IC）的敘述中，正確的是____。

A.集成電路的發(fā)展導(dǎo)致了晶體管的發(fā)明

B.現(xiàn)代計算機的CPU均是超大規(guī)模集成電路

C.小規(guī)模集成電路通常以功能部件、子系統(tǒng)為集成對象

D.所有的集成電路均為數(shù)字集成電路

3、通信技術(shù)的發(fā)展促進了信息的傳播。在下列有關(guān)通信與通信技術(shù)的敘述中，錯誤的是____。

A.通信系統(tǒng)必有“三要素”，即信源、信號與信宿

B.現(xiàn)代通信指的是使用電（光）波傳遞信息的技術(shù)

C.數(shù)據(jù)通信指的是計算機等數(shù)字設(shè)備之間的通信

D.調(diào)制技術(shù)主要分為三種，即調(diào)幅、調(diào)頻和調(diào)相

4、在計算機中，數(shù)值為負的整數(shù)一般不采用“原碼”表示，而是采用“補碼”方式表示。若某帶符號整數(shù)的8位補碼表示為1000 0001, 則該整數(shù)為____.

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

5、在下列有關(guān)CPU（中央處理器）與Pentium微處理器的敘述中，錯誤的是____。

A.CPU除包含運算器和控制器以外，一般還包含若干個寄存器

B.CPU所能執(zhí)行的全部指令的集合，稱為該CPU的指令系統(tǒng)

C.Pentium系列處理器在其發(fā)展過程中，其指令系統(tǒng)越來越豐富

D.Pentium處理器與Power PC處理器雖然產(chǎn)自不同的廠商，但其指令系統(tǒng)相互兼容

6、根據(jù)存儲器芯片的功能及物理特性，目前用作優(yōu)盤存儲器芯片的是____。

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

7、I/O接口指的是計算機中用于連接I/O設(shè)備的各種插頭/插座，以及相應(yīng)的通信規(guī)程以及電氣特性。在下列相關(guān)I/O總線與I/O接口的敘述中，錯誤的是____。

A.PC機系統(tǒng)總線一般分為處理器總線和主板總線

B.PCI總線屬于I/O總線

C.PC機的I/O接口可分為獨占式和總線式

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

8、輸入設(shè)備用于向計算機輸入命令和數(shù)據(jù)，它們是計算機系統(tǒng)必不可少的重要組成部分。在下列有關(guān)常見輸入設(shè)備的敘述中，錯誤的是____。

A.目前數(shù)碼相機的成像芯片僅有一種，即CCD成像芯片

B.掃描儀的主要性能指標包括分辨率、色彩位數(shù)和掃描幅面等

C.目前臺式PC機普遍采用的鍵盤可直接產(chǎn)生一百多個按鍵編碼

D.鼠標器一般通過PS/2接口或USB接口與PC機相連

9、顯示器的作用是將數(shù)字信息轉(zhuǎn)換為光信息，最終將文字和圖形/圖像顯示出來。在下列有關(guān)PC機顯示器的敘述中，錯誤的是____。

A.目前出廠的臺式PC機大多數(shù)使用AGP接口連接顯示卡

B.彩色顯示器上的每個像素由RGB三種基色組成

C.與CRT顯示器相比，LCD的工作電壓高、功耗小

D.從顯示器的分辨率來看，水平分辨率與垂直分辨率之比一般為4：3

10、計算機軟件（簡稱軟件）指的是能指揮計算機完成特定任務(wù)的、以電子格式存儲的程序、數(shù)據(jù)和相關(guān)的文檔。在下列有關(guān)軟件的敘述中，錯誤的是____。

A.軟件的版權(quán)所有者不一定是軟件作者

B.共享軟件指的是一種無版權(quán)的軟件

C.用戶購買一個軟件后，僅獲得該軟件的使用權(quán)，并沒有獲得其版權(quán)

D.軟件許可證是一種法律合同，它確定了用戶對軟件的使用方式

11、在下列有關(guān)Windows操作系統(tǒng)（這里指Windows 95及其以后的版本）的多任務(wù)處理功能的敘述中，正確的是____。

A.在多任務(wù)處理過程中，前臺任務(wù)與后臺任務(wù)都能得到CPU的響應(yīng)（處理）

B.由于CPU具有并行執(zhí)行指令的功能，所以操作系統(tǒng)才能進行多個任務(wù)的處理

C.由于用戶只啟動一個應(yīng)用程序，那么該程序就可以自始至終地獨占CPU

D.Windows操作系統(tǒng)采用協(xié)作方式支持多個任務(wù)的處理

12、文件管理是操作系統(tǒng)的基本功能之一。在Windows操作系統(tǒng)環(huán)境下，下列有關(guān)文件管理功能的敘述中，錯誤的是____。

A.計算機中的所有程序、數(shù)據(jù)、文檔都組織成文件存放在外存儲器中

B.磁盤上的文件分配表（FAT）有兩個，且內(nèi)容相同

C.任何磁盤上的文件根目錄表（FDT）僅有一個

D.文件管理以扇區(qū)為單位分配磁盤上的存儲空間

13、隨著Internet的飛速發(fā)展，其提供的服務(wù)越來越多。在下列有關(guān)Internet服務(wù)及相關(guān)協(xié)議的敘述中，錯誤的是____。

A.電子郵件是Internet最早的服務(wù)之一，主要使用SMTP/POP3協(xié)議

B.WWW是目前Internet上使用最廣泛的一種服務(wù)，常使用的協(xié)議是HTTP

C.文件傳輸協(xié)議（FTP）主要用于在Internet上瀏覽網(wǎng)頁時控制網(wǎng)頁文件的傳輸

D.遠程登錄也是Internet提供的服務(wù)之一，它采用的協(xié)議稱為Telnet

14、在下列有關(guān)程序設(shè)計語言及其處理程序的敘述中，錯誤的是____。

A.程序設(shè)計語言可分為機器語言、匯編語言和高級語言

B.機器語言與計算機硬件關(guān)系密切，用它編寫的程序可移植性較差

C.用于輔助編寫匯編語言程序的編輯軟件稱為匯編程序

D.高級程序設(shè)計語言可以有解釋與編譯兩種方式

15、在下列有關(guān)最常見局域網(wǎng)、網(wǎng)絡(luò)設(shè)備以及相關(guān)技術(shù)的敘述中，錯誤的是____。

A.以太網(wǎng)是最常用的一種局域網(wǎng)，它采用總線結(jié)構(gòu)

B.每個以太網(wǎng)網(wǎng)卡的介質(zhì)訪問地址（MAC地址）是全球惟一的

C.無線局域網(wǎng)一般采用無線電波或紅外線進行數(shù)據(jù)通信

D.“藍牙”是一種遠距離無線通信的技術(shù)標準，適用于山區(qū)住戶組建局域網(wǎng)

16、字符編碼標準規(guī)定了字種及其編碼。在下列有關(guān)漢字編碼標準的敘述中，錯誤的是____。

A.我國頒布的第一個漢字編碼標準是GB2312-80，它包含常用漢字6000多個

B.GB2312-80和GBK標準均采用雙字節(jié)編碼

C.GB18030-2000標準使用3字節(jié)和4字節(jié)編碼，與GB2312-80和GBK兼容

D.UCS-2是雙字節(jié)編碼，它包含拉丁字母文字、音節(jié)文字和常用漢字等等

17、不同格式的圖像文件，其數(shù)據(jù)編碼方式有所不同，通常對應(yīng)不同的應(yīng)用。在下列幾組圖像文件格式中，制作網(wǎng)頁時用得最多的是____。

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

18、計算機中處理的聲音分為波形聲音和合成聲音兩類。在下列有關(guān)波形聲音的敘述中，錯誤的是____。

A.波形聲音的獲取過程就是把模擬聲音信號轉(zhuǎn)換為數(shù)字形式，包括取樣、量化和編碼等步驟

B.聲音信號的數(shù)字化主要由聲卡來完成，其核心是數(shù)字信號處理器（DSP）

C.MP3采用MPEG-3標準對聲音進行壓縮編碼

D.波形聲音的主要參數(shù)包括取樣頻率、量化位數(shù)和聲道數(shù)目等

19、在下列有關(guān)數(shù)據(jù)庫技術(shù)的敘述中，錯誤的是____。

A.關(guān)系模型是目前在數(shù)據(jù)庫管理系統(tǒng)中使用最為廣泛的數(shù)據(jù)模型之一

B.從組成上看，數(shù)據(jù)庫系統(tǒng)由數(shù)據(jù)庫及其應(yīng)用程序組成，它不包含DBMS及用戶

C.SQL語言不限于數(shù)據(jù)查詢，還包括數(shù)據(jù)操作、定義、控制和管理等多方面的功能

D.Access數(shù)據(jù)庫管理系統(tǒng)是Office軟件包中的軟件之一

20、Microsoft Word是目前最常用的文字處理軟件之一。在下列有關(guān)Microsoft Word（97及其以后的版本）功能的敘述中，錯誤的是____。

A.在默認情況下，頁面的版面（紙張大�。┠転锳4

B.在同一文檔中，所有頁面的版面（紙張大�。┲荒芟嗤�（答題者注：插入分節(jié)符后就可以不同）

C.系統(tǒng)具有基于字典的拼寫檢查功能

D.在普通視圖中，可以顯示表格，但不能顯示所插入的圖片（答題者注：早期版本不可以，現(xiàn)在版本可以顯示）

 

第二部分   Visual Basic程序設(shè)計

一、選擇題

21、窗體上放置了三個文本框，若在Text1中輸入456，在Text2中輸入78，在程序中執(zhí)行了語句Text3=Text1+Text2后，則在Text3中顯示____。

A.434    B.45678    C.溢出    D.語法錯誤 

22、如果窗體上有命令按鈕“確定”，在代碼編輯窗口有與之相對應(yīng)的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.執(zhí)行賦值語句_____后，會觸發(fā)相應(yīng)控件的Change事件（控件名均為缺省名）。

A. Dirl.ListIndex =-2  B. Drive1.ListIndex =2
C. List1.ListIndex =3  D. File1.ListIndex =3

25.假設(shè)變量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.函數(shù)CInt Int Fix都返回整數(shù)值，以下能正確地描述它們返回整數(shù)值大小關(guān)系的是（　　�。�。

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.下面有關(guān)數(shù)組的說法中，錯誤的是（　　　）
　
A.數(shù)組必須先定義后使用
B.數(shù)組形參可以是定長字符串類型
C.Erase語句的作用是對已定義數(shù)組的值重新初始化
D.定義數(shù)組時，數(shù)組維界值可以不是整數(shù)

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. 執(zhí)行下面程序，當(dāng)單擊窗體時，顯示在窗體上第一行的內(nèi)容是 200 ，第二行的內(nèi)容是 10
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.運行下面的程序，當(dāng)單擊窗體時，窗體上顯示的內(nèi)容的第一行是 0：1 ，第三行是 2：3 ，第五行是 4：1 。
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.執(zhí)行下面程序，單擊命令按鈕Command1后，顯示在窗體上第一行的內(nèi)容是 11 ，第二行的內(nèi)容是 61

最后一行的內(nèi)容是 136
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.執(zhí)行下面程序，單擊命令按鈕Command1后，顯示在窗體上第一行的內(nèi)容是 00 00 02 ，A(2,1)的值是 08 ，

A(3,3)的值是 03

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.執(zhí)行下面程序，單擊命令按鈕Command1后，顯示在窗體上第一行的內(nèi)容是 4 ， 第二行的內(nèi)容是 8 ，

第三行的內(nèi)容是 １6 。

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的矩陣，該矩陣的副對角線（指矩陣左下角

到矩陣右上角連線上的元素）上方元素都是偶數(shù)，副對角線和它的下方元素都為奇數(shù)。Command2_Click()事件

過程的功能是，交換以副對角線為界線的上三角和下三角的對應(yīng)元素。完善程序，實現(xiàn)以上功能。

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 ___until true
         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)
            L=6-i
　　　　　　 R=6-j
             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()

事件過程的功能是將文件中的大寫字母在原位置——改寫成小寫字母，完善程序，實現(xiàn)以上功能。

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

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

　　　　S=input(1,#12)
       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）。解密是加密的逆過程。完善程序，實現(xiàn)以上功能。
Private Sub Command1_Click()
    Dim s As String, st As String, i As Integer,n As Integer
    s=Text1
    Do Until n >=Len(s)
       n=n+1
       If n Mod 8 <> 0 Then
           st=st &Mid(s,n,1)
       Else
           st=st & Mid(s,n,1)
           List1.AddItem st
　　　　　　st=" "
       End If
    Loop
End Sub
Private Sub Command2_Click()
    Dim s As String, st As String, i As Integer
    For i=0 To List1.Listcount
        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=n+2^(j-1)
    Next j
    Text2=Text2 & Chr(n)
     s=" "
     n=0
　 Next i
End Sub

9.下面程序的功能是，找出100以內(nèi)所有可以表示成3個連續(xù)自然數(shù)之和的數(shù)。完善程序，實現(xiàn)以上功能。
　　
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 while n<=js-1
               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
       Sum=0
　      K=0
　　　 Js=i-1
        Do While Sum < L And K < 3
            K=K+1
            Js=Js+1
            Sum=Sum+Js
        Loop
        If　k=3 And Sum=L then
             M=I
             Fun=True 

E xit For

Exit if
  Next I
End Function