1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            2009年春江蘇計算機等級考試二級vb試卷

            絕密★啟用前

                   2009年春

                江蘇省高等學校非計算機專業學生

                計算機基礎知識和應用能力等級考試

                        二級試卷   

                試卷語種:  Visual Basic

              明:

            1.本試卷包括計算機基礎知識部分和程序設計部分,考試時間共120分鐘

            2.本試卷滿分為60分,分選擇題和填空題,試卷不分A、B類型;

            3.計算機基礎知識部分全部是選擇題(20),程序設計部分分為選擇題(10)和填空題(30)兩種;   

            4.選擇題用答題卡答題。每一項有A、B、C、D四個可供選擇的答案,請選擇其中一個你認為正確的答案,用HB鉛筆涂寫在答題卡的相應答題號內。每選對一項得1分,不選或選錯不得分;

            5.填空題用答題紙答題。請將答案用藍、黑色鋼筆或圓珠筆填寫在答題紙的相應答題號內,每個答案只占一行,不得換行。每填對一個答案得1分,不填或填錯不得分;

            6.請認真填寫并仔細核對答題卡和答題紙上的學校名稱、準考證號和姓名是否填寫正確。

            7.考試結束時將試卷、答題卡和答題紙放在桌上,不得帶走。待監考人員收點

                第一部分計算機基礎知識

            1.  在下列有關現代信息技術的一些敘述中,正確的是    1    。

              A.集成電路是20世紀90年代初出現的,它的出現直接導致了微型計算機的誕生

              B.集成電路的集成度越來越高,目前集成度最高的已包含幾百個電子元件

              C.目前所有數字通信均不再需要使用調制解調技術和載波技術

              D.光纖主要用于數字通信,它采用波分多路復用技術以增大信道容量‘    .

            2.  最大的10位無符號二進制整數轉換成八進制數是    2    .。

              A.1023    B.1777

              C.1000    D.1024

            3.  在下列有關目前PCCPU的敘述中,錯誤的是    3   。

                A.CPU芯片主要是由Intel公司和AMD公司提供的

                B."雙核"是指PC機主板上含有兩個獨立的CPU芯片

                C.Pentium 4微處理器的指令系統由數百條指令組成

                D.Pentium 4微處理器中包含一定容量的Cache存儲器

            4.  在下列有關當前PC機主板和內存的敘述中,正確的是    4    。

                A.主板上的BIOS芯片是一種只讀存儲器,其內容不可在線改寫

                B.絕大多數主板上僅有一個內存插座,因此PC機只能安裝一根內存條

                C.內存條上的存儲器芯片屬于SRAM(靜態隨機存取存儲器)

                D.目前內存的存取時間大多在幾個到十幾個ns(納秒)之間

            5.  在下列有關PC機輔助存儲器的敘述中,正確的是    5    。

                A.硬盤的內部傳輸速率遠遠大于外部傳輸速率

                B.對于光盤刻錄機來說,其刻錄信息的速度一般小于讀取信息的速度

                C.使用USB 2.0接口的移動硬盤,其數據傳輸速率大約為每秒數百兆字節

                D.CD-ROM的數據傳輸速率一般比USB 2.0還快

            6.  在下列PCI/O接口中,數據傳輸速率最快的是    6    。

                A.USB 2.0          B.IEEE-1394

                C.IrDA (紅外)      D.SATA

             7.  計算機軟件可以分為商品軟件、共享軟件和自由軟件等類型。在下列相關敘述中,錯誤的是    7    。

                A.通常用戶需要付費才能得到商品軟件的使用權,但這類軟件的升級總是免費的

                B.共享軟件通常是一種"買前免費試用"的具有版權的軟件

                C.自由軟件的原則是用戶可共享,并允許拷貝和自由傳播

                D.軟件許可證是一種法律合同,它確定了用戶對軟件的使用權限

            8.  人們通常將計算機軟件劃分為系統軟件和應用軟件。下列軟件中,不屬于應用軟件類型的是    8  

                A.AutoCAD     B.MSN    C.Oracle      D.Windows Media Player

            9.  在下列有關Windows 98/2000/XP操作系統的敘述中,錯誤的是    9    。

                A.系統采用并發多任務方式支持多個任務在計算機中同時執行

                B.系統總是將一定的硬盤空間作為虛擬內存來使用

                C.文件()名的長度可達200多個字符

                D.硬盤、光盤、優盤等均使用FAT文件系統

            10. 在下列有關算法和數據結構的敘述中,錯誤的是    10    。

                A.算法通常是用于解決某一個特定問題,且算法必須有輸入和輸出

                B.算法的表示可以有多種形式,流程圖和偽代碼都是常用的算法表示方法

                C.常用的數據結構有集合結構、線性結構、樹形結構和網狀結構等

                D.數組的存儲結構是一種順序結構

            11•因特網的IP地址由三個部分構成,從左到右分別代表    11    。

                A.網絡號、主機號和類型號

                B.類型號、網絡號和主機號

                C.網絡號、類型號和主機號

                D.主機號、網絡號和類型號

            12•在下列有關ADSL技術及利用該技術接入因特網的敘述中,錯誤的是    12    。

                A.從理論上看,其上傳速度與下載速度相同

                B.一條電話線上可同時接聽/撥打電話和進行數據傳輸

                C.利用ADSL技術進行數據傳輸時,有效傳輸距離可達幾公里

                D.目前利用ADSL技術上網的計算機一般需要使用以太網網卡

            13.人們往往會用"我用的是10M寬帶上網"來說明白己計算機連網的性能,這里的"10M"

              指的是數據通信中的    13    指標。

              A.最高數據傳輸速率

              B.平均數據傳輸速率

              C.每分鐘數據流量

              D.每分鐘IP數據包的數目

            14•計算機局域網按拓撲結構進行分類,可分為環型、星型和    14    型等。

              A.電路交換

              B.以太  

              C.總線

              D.對等

            15.網絡信息安全主要涉及數據的完整性、可用性、機密性等問題。保證數據的完整性就是 15   。

              A.保證傳送的數據信息不被第三方監視和竊取

              B.保證發送方的真實身份

              C.保證傳送的數據信息不被篡改

              D.保證發送方不能抵賴曾經發送過某數據信息

            16.某計算機系統中,西文使用標準ASCII碼、漢字采用GB2312編碼。設有一段純文本,其機內碼為CB F5 DO B4 50 43 CA C7 D6 B8,則在這段文本中含有:  16    。

                A.2個漢字和1個西文字符

                B.4個漢字和2個西文字符   

                C.8個漢字和2個西文字符

                D.4個漢字和1個西文字符

            17.以下關于漢字編碼標準的敘述中,錯誤的是   17    。

                A.GB 2312標準中所有漢字的機內碼均用雙字節表示      

                B.我國臺灣地區使用的漢字編碼標準BIG 5收錄的是繁體漢字

                C.GB 18030漢字編碼標準收錄的漢字在GB 2312標準中一定能找到

                D.GB 18030漢字編碼標準既能與UCS(Unicode)接軌,又能保護已有中文信息資源

            18.若波形聲音未進行壓縮時的碼率為64kb/s,已知取樣頻率為8kHz,量化位數為8,那么它的聲道數是    18    。

              A.1    B.2   C.4 D.8 

            19.從信息處理的深度來區分信息系統,可分為業務處理系統、信息檢索系統和信息分析系統等。在下列幾種信息系統中,不屬于業務處理系統的是    19    。

                A.DSS  B.CAI   C.CAM   D.OA

             20.在下列有關信息系統開發、管理及其數據庫設計的敘述中,錯誤的是    20    。

                A.常用的信息系統開發方法可分為結構化生命周期方法、原型法、面向對象方法和CASE方法等

                B.在系統分析中常常使用結構化分析方法,并用數據流程圖和數據字典來表達數據和處理過程的關系

                C.系統設計分為概念結構設計、邏輯結構設計和物理結構設計,通常用E-R模型作為描述邏輯結構的工具

                D.從信息系統開發過程來看,程序

            第二部分Visual Basic程序設計

            一、選擇題(用答題卡答題,答案依次填在2130答題號內)

            21.在列表框Listl中有若干列表項,可以刪除選定列表項的語句是 21

                AList1.text=""    BList1List(ListlListIndex)=""

                CList1.Clear      DList1.RemoveItem List1.ListIndex

            22.執行  22  語句時,會出現出錯提示信息。

                APrint 5+7=14      BPrint 16384*2

                CPrint 32768*2     DPrint "14"+32

            23.數學表達式 對應的VB表達式是  23  。

            A。(e^(2**x5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))

                B(Exp(2*314159*x5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)Cos(x^2))

                C(Exp(2**x5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)Cos(x^2))

                De^(2*3.14159*x5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sing(x)Cos(x^2))

            24.以下關于數組的說法中,錯誤的是  24    。

                A.使用了Preserve予句的ReDim語句,只允許改變數組最后一維的上界

                B.對于動態數組,ReDim語句可以改變其維界但不可以改變其數據類型

                CErase語句的功能只是對固定大小的數組進行初始化

                DLBound函數返回值是指定數組某一維的下界

            25.下列有關過程的說法中,錯誤的是    25    。   

              A.在SubFunction過程內部不能再定義其它SubFunction過程

                B.對于使用ByRef說明的形參,在過程調用時形參和實參只能按傳址方式結合

                C.遞歸過程既可以是遞歸Function過程,也可以是遞歸Sub過程

                D.可以像調用Sub過程一樣使用Call語句調用Function過程

            26.以下有關對象屬性的說法中,錯誤的是  26    。

                A.工具箱中的控件并不是VB中所有的控件

                B.若將FrameEnabled屬性設置為False,則不能使用放置在Frame里面的控件

                C.對象的Name屬性在運行時不能改變

                D.對象的所有屬性都可以在屬性窗口中設置

            27.以下關于變量作用域的敘述中,正確的是:  2Z  。

                A.窗體中凡用Private聲明的變量只能在某個指定的過程中使用

            B.模塊級變量只能用Dim語句聲明

            C.凡是在窗體模塊或標準模塊的通用聲明段用Public語句聲明的變量都是全局變量

                D.當不同作用域的同名變量發生沖突時,優先訪問局限性小的變量

            28.表達式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的運算結果是  28

                A.1    B.-1    C.-2   D.-3

            29.若要使邏輯表達式x>y Xor Y結果為True,則x、Y、z的取值應為下列選項中的  22  。

                A.X=3、Y=3、Z=4    B.X=2、Y=1、Z=2

                C.x=1、Y=3、Z=2    D.x=2、Y=2、Z=2

            30.在一個多窗體程序中,可以僅將窗體Form2從內存中卸載的語句是  30   

              A.Form2.Unload  BUnload Form2  CForm2.End DForm2.Hide

            二、填空題(請將答案填寫在答題紙的相應答題號內,每個答案只占一行)

            1.執行下面程序,單擊Commandl,則圖片框中顯示的第一行是(1),顯示的第二行是(2)  ,最后一行顯示的是  (3) 。

             Private Sub Command1_Click()

                Dim a(3,3)As Integer

                Dim i As Integer,j As Integer

                For i=1 To 3

                  For  j=3 To 1 Step -1

                   If i>=j Then

                        a(i,j)=i-j

                   Else

                       a(i,j)=j-i

                   End If

                 Next j

                Next i

                For i=1 to 3   

                  For  j=3 To 1 Step -1

                   Picture1.Print a(i,j);

                  Next j   

                  PicturelPrint

                Next i

             EndSub

            2.運行下面程序,如果連續三次單擊命令按鈕之后,A數組共有(4)    個元素;數組元素A(2)的值是(5),A(5)的值是(6)

              Option Explicit

              Option Base l

              Private Sub Command1_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

                ForI=1 To N

                  Print A(I);

                Next I

                Print

                EndSub

            3.運行下面的程序,單擊commandl,在窗體上顯示的變量A的值為( 7 ),變量B的值為( 8 )

              Option Explicit

              Dim A As Integer   

              Private Sub Command1_Click()   

                Dim B As Integer

                B=3   

                A=4

                B=Fun(Fun(A,B+2),A)+B

                Print A,B

              EndSub

              Private Function Fun(N As Integer,K As Integer)  

                N=N+A   

                K=N-K

                Fun=N+K+A

              End Function

             4.執行下面的程序,單擊command1,窗體上顯示的第一行是( 9 ),第二行是( 10 ),第四行是( 11 ),最后一行是( 12 )

                Option Explicit

                Private Sub Command1_Click()

                 Dim n As Integer   

                 n=5   

                 Call test(n)   

                 Print n

                End Sub   

                Private Sub test(ByVal n As Integer)

                  Dim i As Integer,S As String

                  If n>0 Then   

                    For i=l To n   

                      S=S & CStr(i)

                    Next i

                    Print S   

                    Call test(n-2)   

                 Else

                   Print "0VER"

                 EndIf

                EndSub

              5.運行下列程序,單擊Command1,在窗體上顯示的第一行內容是    ( 12  ),第二行的內容是( 14 ),第三行的內容是( 15 )("A"ASCII碼是65,"z"90)

                Option Explicit

                Private Sub Commandl_Click()

                Dim i As Integer,st As String,n As Integer,p As String*1

                P="B"

                For i=3 To 1 Step -1

                  n=Asc(p)-i

                  If n<65 Then n=n+26

                   st=Chr(n)

                   st=st & F(i)

                   Print st

                Next i  

                EndSub

                Private Function F(n As Integer)

                   Dim i As Integer

                   Static S As Integer

                   For i=1 To n

                    s=s+i

                   Nexti

                   F=S

                End Function

             6•用以下公式求f(x)的值。當通項的絕對值小于10^-7時停止計算,x的值由鍵盤輸入。

                f(x)=a1x1-a2x2+a3x3-+(-1)n+1anxn+  |X|

                1

            其中  a1=1,a2=2,an= ,n=3,4,5…

            Option Explicit

            Private Sub Commandl_Click()、

              Dim x As Single,fx As Single

              Dim a As Single,a1 As Single,a2 As Single

              Dim t As Single

              a1=la2=2

              x=text1

              If  ( 16 ) Then

                MsgBox("x必須在-1---1之間")

                ExitSub

              End If

              fx=a1*x-a2*x*x

                t=(-1)*x*x

              DO

                a=1/(al+a2)

                t=(-1)*x*x

                fx=( 17 )

                al=a2

                ( 18 )

              Loop Until Abs(a*t)<0.0000001

              Text2=fx

             End Sub

            7.學生的某次課程測驗中,選擇題的答案已記錄在列表框list1中,其數據行格式是:學號為6個字符長度,2個空格,選擇題的答案為15個字符長度,程序根據標準答案進行批改,每答對一題給1分,并將得分存放到列表框list1中,標準答案存放在變量Exact中。

            Option Explicit

            Private Sub Command1_click()

              Dim  Anw as string , StudId as string

              Dim Scor as Integer, Exact as string

              Dim I as Integer, J as integer

              Exact=”ABCCBAACBBDCCDA”

              For I=(   19   )

            Anw=  20 

            StudId=Left(Anw,6)

            Anw=Right(Anw,Len(Anw)-8)

            (  21  )

            For J=1 to  Len(Anw)

               If  22 Then

                  Scor=Scor+1

               End If

               Next J

               List2.AddItem StudId & “  “ & Scor

             Next I

            End Sub

            8.下面程序的功能是:統計存放在數組A中的N個數有多少個是不同的。具體做法是:變量Left指向要被處理的數(從第2個元素開始),Right指向數組最后一個元素。若A(Left)與排在它前面的某個數組元素值相同,就用數組元素A(Right)的值來替換A(Left)的值,同時將變量Right的值減1;否則將變量Left的值加1,處理數組下一個元素,重復以上過程,直到Left>Right為止。Right的值即為不同的數的個數。

             Option Explicit

             OptionBase 1  

             Private Sub Commandl_Click()

            Dim A() As Integer,N As Integer,I AS Integer

            Dim OP As Integer

            N=InputBox("請輸入數據個數", ,10)

            ReDim A(N)   

            Randomize

            For I=1 To N   

               A(I)=Int(Rnd*10)+1

               Text1=Text1 & A(1) & " "

            Next I

            Call Statistic(A,OP)

            Text2=""  & oP & "個不同的數:"

            For I=1 To OP

              Text2=Text2 & A(I) & " "

             Next I

            End Sub

            Private Sub Statistic(A() As Integer,Right As Integer)

                Dim Left As Integer,K As Integer,I As Integer

                Right=( 23 )

                Left=2

                Do While Left<=Right

                   K=( 24 )

                   For I=K To 1 Step -1

                     If A(Left)=A(I) Then Exit For

                   Next I

                   If ( 25 )Then

                     Left=Left+1

                 Else

                     A(Left)=A(Right)

                    ( 26 )

                   End If

               Loop

            End Sub

            9.在計算機中用一個字節(8),來存儲一個字符的Ascii碼,其中低7位二進制數對應字符的編碼,每個字節的最高位一般保持為0”,在數據傳輸時可用作奇偶校驗位,傳輸時Ascii代碼轉換成傳輸碼的方法是:7Ascii碼有偶數個1,最高位為1,有奇數個1,則最高位為0,例如字母”A”Ascii碼十進制表示為65,二進制表示為00100001。”A”的傳輸碼則為”1010 0001”,本程序的功能就是把Ascii碼轉換成這種傳輸碼

            Option Explicit

            Private Sub Commandl_Click()

               Dim i As Integer,S As String

               Dim str As String,ch As String

               str=Text1.text

               For i=1 To Len(str)   

                ( 27 )

                Call convert(ch,s)

                List1.AddItem ch & "==>" & S

              Next i

            End Sub

            Private Sub convert(ch As String,S As String)

              Dim m As Integer,k As Integer,n As Integer,i As Integer

              s= ( 28 )

              n=Asc(ch)

              Do While n>0

                (  29  )

                S=m & S

                If m=1 Then

                   k=k+1

                End If

                n=n\2

                Loop

                For i=1 To 7-Len(s)  '將字符的二進制代碼補足7

                S="0" & S

                Next i

                If k Mod 2=0 Then

                     ( 30 )

                Else

                  S="0" & S

                End If

              End Sub

             答案:

                2009年(春)筆試試卷    。
                第一部分計算機基礎知識
              (1)D    (2)B    (3)B    (4)D    (5)B
              (6)D    (7)A    (8)C    (9)D    (10)A
              (11)B    (12)A    (13)A    (14)C    (15)C
              (16)B    (17)C    (18)A    (19)A    (20)C    ,
                第二部分Visual Basic程序設計
            一、選擇題
              (21)D    (22)B    (23)B    (24)C    (25)B
              (26)D    (27)C    (28)D    (29)A(30)B
            二、填空題    ,
              (1)2 1 0    (2)1 0 1
              (3)0 1 2    (4)6
              f5)5    (6)31
              (7)19    (8)68    .
              f9)12345    (10)123
              (11)OVER    (12)5    ,
              (13)Y6    (14)Z9
              (15)A10    (16)Abs(x)>=1    .
              (17)fx+a*t    (18)a2=a
            (19)0 To Listl.ListCount-1    (20)Listl.List(I)
            (21)Scor=0    (22)Mid(Anw,J,1)=Mid(Exact,J,1)
            (23)UBound(A)    (24)Left-1
            (25)I=0    (26)Right=Right-1
            (27)ch=Mid(str,i,1)    (28)" "
            (29)m=n Mod 2    (30)s="1" & s

             

            国产在线精品一区二区三区不卡_亚洲第一极品精品无码_永久免费无码网站在线观看_亚洲av综合日韩