日日摸夜夜精品蜜臀AV一区二区_亚洲一区AV春药高潮_欧美双渗透金发美女精品视频在线_国产成人AV十八在线观_国产片婬乱18一级毛片动

江蘇省高校計算機(jī)等級考試命題研究院 江蘇省高校計算機(jī)等級考試輔導(dǎo)
2010秋江蘇計算機(jī)二級VB考試真題

 絕密★ 啟用前

2010年秋

江蘇省高等學(xué)校非計算機(jī)專業(yè)學(xué)生

計算機(jī)基礎(chǔ)知識和應(yīng)用能力等級考試

二級試卷

試卷語種:VB語言

 

  明:

1.本試卷包括計算機(jī)基礎(chǔ)知識部分和程序設(shè)計部分,考試時間共12 0分鐘;

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

3.計算機(jī)基礎(chǔ)知識部分全部是選擇題(20),程序設(shè)計部分分為選擇題(1 0

  )和填空題(30)兩種;

4.選擇題用答題卡答題。每一項有A、B、C、D四個可供選擇的答案,請選

  擇其中一個你認(rèn)為正確的答案,用HB鉛筆涂寫在答題卡的相應(yīng)答題號內(nèi)。

  每選對一項得1分,不選或選錯不得分;

5.填空題用答題紙答題。請將答案用藍(lán)、黑色鋼筆或圓珠筆填寫在答題紙的

  相應(yīng)答題號內(nèi),每個答案只占一行,不得換行。每填對一個答案得1分,

  不填或填錯不得分;

6.請認(rèn)真填寫并仔細(xì)核對答題卡和答題紙上的學(xué)校名稱、準(zhǔn)考證號和姓名是

  否填寫正確。

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

  畢清點后,方可離場。

 

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

1.微電子技術(shù)是信息技術(shù)領(lǐng)域中的關(guān)鍵技術(shù),它以集成電路為核心.下列有關(guān)集成電路的敘述中,錯誤的是 ___(1)___  

    A.  現(xiàn)代集成電路使用的半導(dǎo)體材料只能是硅(Si),不能使用其它任何半導(dǎo)體材料

    B.  集成度是指集成電路包含的電子元件數(shù)目,可分為SSI、MSIVLSI

    C.  Moore定律指出,單塊集成電路的集成度平均18--24個月翻一番

    D.  我國第二代身份證中嵌入了集成電路芯片,可以實現(xiàn)電子防偽和數(shù)字管理功能

2.  數(shù)據(jù)傳輸速率是數(shù)據(jù)通信中重要的性能指標(biāo)。Gb/s是數(shù)據(jù)傳輸速率的計量單位之一,其正確含義是 ___(2)___  

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

3.  所謂"變號操作"是指將一個整數(shù)變成絕對值相同但符號相反的另一個整數(shù)。假設(shè)使用補(bǔ)碼表示的8位整數(shù)x=10010101,則經(jīng)過變號操作后結(jié)果為___(3)___.

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

4.  下列有關(guān)PC機(jī)主板的敘述中,錯誤的是 ___(4)___   。

    A.  主板的物理尺寸沒有標(biāo)準(zhǔn),各廠家均可自行定義

    B.  主板上包含芯片組,它是PC機(jī)各組成部分相互連接和通信的樞紐

    C.  主板上包含BIOSCMOS芯片

    D.  主板上包含CPU插座、內(nèi)存條插槽及其它類型的插槽

5.  下列有關(guān)PC機(jī)中央處理器(CPU)和內(nèi)存(內(nèi)存條)的敘述中,正確的是 __(5)____   .

    A.PC機(jī)所采用的CPU都是Intel公司生產(chǎn)的Pentium系列芯片,其它廠商生產(chǎn)的CPU都與之不兼容

    B.目前已有雙核的微處理器(例如Core 2 Duo),但還沒有四核的微處理器

    C.  通常來說,DRAM的速度比SRAM的存取速度慢

    D.  一般來說,一個內(nèi)存條上僅有一個DRAMSRAM芯片

6.  下列有關(guān)PC機(jī)I/O總線與I/O接口的敘述中,錯誤的是 __(6)____   .

    A.  目前PC機(jī)中協(xié)調(diào)與管理總線操作的總線控制器包含在主板上的芯片組中

    B.  總線最重要的性能是數(shù)據(jù)傳輸速率,其單位通常為MB/sGB/s

    C.  SATA接口的數(shù)據(jù)傳輸速率通常低于USB 2.0的數(shù)據(jù)傳輸速率

    D.  USB連接器有4個引腳,其中一個引腳連接+5V電源

7.  下列有關(guān)PC機(jī)常用I/O設(shè)備的敘述中,錯誤的是__(7)____

    A.  目前臺式機(jī)鍵盤通常有一百零幾個按鍵,筆記本電腦的鍵盤有八十幾個按鍵

    B.  目前流行的鼠標(biāo)是光電鼠標(biāo),其與主機(jī)的接口有PS/2USB兩種

    C.  寬屏LCD顯示器的寬高比為1691610

    D.  打印速度是打印機(jī)的重要性能指標(biāo),速度單位通常為dpi

8.  下列有關(guān)PC機(jī)外存儲器的敘述中,錯誤的是___(8)___   

  A.  目前硬盤的盤片大多為3.5、2.51.8英寸,一個硬盤中可有一個或多個盤片

  B.  目前有些u盤可以模擬硬盤和光盤存儲器啟動操作系統(tǒng)

  C.  目前光盤存儲器主要分為CDDVDBD三種,它們均采用紅外激光進(jìn)行讀寫

  D.  目前光驅(qū)的速率通常用多少倍速表示

9.  下列有關(guān)計算機(jī)軟件的敘述中,錯誤的是___(9)___.

  A.  軟件一般是指程序及其相關(guān)的數(shù)據(jù)和文檔資料   

  B.  從軟件的用途考慮,軟件可以分為系統(tǒng)軟件和應(yīng)用軟件,主要的系統(tǒng)軟件有操作系統(tǒng)、語言處理系統(tǒng)和數(shù)據(jù)庫管理系統(tǒng)等。   

  C.  從軟件的權(quán)益來考慮,軟件可以分為商品軟件、共享軟件和自由軟件,共享軟件和自由軟件均為無版權(quán)的免費軟件

  D.Linux是一種系統(tǒng)軟件、自由軟件

10.到目前以止,Windows系列操作系統(tǒng)已推出多個版本。在下列版本中,最新的Windows

  版本是___(10)___

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

11.下列有關(guān)Windows XP操作系統(tǒng)功能的敘述中,錯誤的是___(11)___.

    A.  系統(tǒng)通過"時間片”輪轉(zhuǎn)策略支持多任務(wù)處理 

    B.  系統(tǒng)利用SPOOLing技術(shù)進(jìn)行存儲管理

    C.  在設(shè)備管理中引入了緩沖技術(shù),以減少I/O操作的等待時間

    D.  系統(tǒng)支持PnP功能,并按ACPI標(biāo)準(zhǔn)進(jìn)行電源管理

12.在因特網(wǎng)中某臺主機(jī)的IP地址為20.25.30.8,子網(wǎng)掩碼為255.255.255.0,那么該主機(jī)

  的主機(jī)號為  ___(12)___  。

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

13.局域網(wǎng)中需要傳輸?shù)臄?shù)據(jù)必須預(yù)先組織成若干數(shù)據(jù)幀,每一數(shù)據(jù)幀的格式如下圖所示:上圖中最末部分"?”表示的是___(13)___    。

發(fā)送計算機(jī)地址

目的計算機(jī)地址

編號

有效載荷

  ?

A.協(xié)議信息  B.校驗信息   C.冗余信息    D.結(jié)束標(biāo)志

14.目前網(wǎng)絡(luò)用戶接入因特網(wǎng)有多種方式,例如ADSLHFC等。通過HFC接入因特網(wǎng)時采用的網(wǎng)絡(luò)是___(14)____

    A.  有線電話網(wǎng)   B.  有線電視網(wǎng)   C.  無線局域網(wǎng)    D.  移動電話網(wǎng)

15.下列網(wǎng)絡(luò)協(xié)議中,直接與電子郵件傳輸相關(guān)的網(wǎng)絡(luò)協(xié)議是___(15)___。

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

16.下列有關(guān)計算機(jī)中文本與文本處理的敘述中,錯誤的是 ___(16)____ 

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

    B.  我國最早采用的漢字字符集是GB2312,包含6000多個漢字和若干個非漢字字符

    C.  無論采用何種方式輸入漢字,在計算機(jī)中保存時均采用統(tǒng)一的漢字內(nèi)碼

    D.  簡單文本和豐富格式文本中字符信息的表示相同,區(qū)別在于格式信息的表示

17.彩色圖像所使用的顏色描述方法稱為顏色模型(即顏色空間)。下列四種顏色模型中,

    彩色噴墨打印機(jī)使用的是___(17)___.

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

 18.文件的擴(kuò)展名用于標(biāo)記文件的類型,用戶應(yīng)該盡可能多地知曉各類文件的擴(kuò)展名,

    列文件中,屬于數(shù)字聲音的文件是______

    A.  ABC.RM

    B.  ABC.WMA

    C.  ABC.MKV

    D.  ABC.SWF

 19.信息系統(tǒng)軟件開發(fā)瀑布模型包括系統(tǒng)規(guī)劃、系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實施和系統(tǒng)維

    護(hù)等幾個階段。下面各項工作中,屬于系統(tǒng)實施階段的是___(19)___

    A.問題定義

    B.可行性研究

    C.系統(tǒng)測試

    D.繪制E-R

20.下列有關(guān)Micmsoft Word 2003Microsoft Excel 2003軟件的敘述中,錯誤的是___(20)___

    A.  利用Word軟件編輯文檔,可以將其保存為TXT、DOC、RTFHTM格式文件

    B.  利用Word軟件編輯文檔時,可以統(tǒng)計選定文本的字符數(shù)

    C.  Excel軟件中,可以打開(導(dǎo)入)TXTDBF、HTML格式的文件(數(shù)據(jù))

    D.  Excel文件可以設(shè)置打開權(quán)限密碼,但不可以單獨設(shè)置修改權(quán)限密碼

 

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

一、選擇題(用答題卡答題,答案依次填在21--30答題號內(nèi))

21.以下有關(guān)事件過程的說法中,正確的是___(21)___

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

  B.所有的事件過程都沒有參數(shù)

  C.所有的事件都是由用戶的操作直接引發(fā)的

  D.事件過程不能使用Call語句調(diào)用執(zhí)行

22.以下語句中,正確的是___(22)___   

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

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

23.以下有關(guān)VB程序書寫規(guī)則的說法中,錯誤的是___(23)_____

  A.一行可以書寫多條語句,語句間用":"分隔

  B.使用注釋時,"'"可與注釋語句定義符"Rem"互換使用

  C.過長的語句,可使用續(xù)行標(biāo)志" _",分寫在多行上

  D.代碼輸入時,可不用區(qū)分字母大小寫,系統(tǒng)會將"保留字"首字母自動改為大寫

24.設(shè)變量IJ是整型變量,K是長整型變量。I已賦值32763,JK分別賦值5,若接著執(zhí)行以

下語句,可正確執(zhí)行的是___(24)___

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

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

25.以下關(guān)系表達(dá)式中,運算結(jié)果為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.以下字符運算表達(dá)式中,其功能與函數(shù)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.數(shù)學(xué)表達(dá)式的VB算術(shù)表達(dá)式為____(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.以下有關(guān)數(shù)組的說法中,錯誤的是___(28)___。

  A.使用ReDim語句,可以改變?nèi)魏螖?shù)組的大小與維數(shù)

  B.使用ReDim語句,可以定義一個新數(shù)組

  C.使用ReDim語句重新定義動態(tài)數(shù)組時,維界表達(dá)式中可以采用變量

  D.使用ReDim語句重新定義的新數(shù)組,既可比原數(shù)組大,也可比原數(shù)組小

29.以下有關(guān)Function過程的說法中,正確的是___(29)___    。

  A.函數(shù)名在過程中只能被賦值一次

  B.如果在函數(shù)體內(nèi)沒有給函數(shù)名賦值,則該函數(shù)無返回值

  C.如果在定義函數(shù)時沒有說明函數(shù)的類型,則該函數(shù)是無類型的

  D.執(zhí)行函數(shù)過程中的Exit Function語句,將退出該函數(shù),返回到調(diào)用點

30.以下有關(guān)文件用法的描述中,正確的是___(30)___

    A.只有順序文件在讀寫前需要使用Open語句打開

    B.使用同一個文件號,可同時打開多個不同的文件

    C.如果以Input方式試圖打開一個不存在的順序文件,則會出錯

    D.如果程序中缺少Close語句,即使程序運行結(jié)束,打開的文件也不會自動關(guān)閉

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

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.執(zhí)行下面程序,單擊Command1,數(shù)組元素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.執(zhí)行下面程序,單擊按鈕CmdRun,窗體上顯示的第一行結(jié)果是___(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.執(zhí)行下面程序,在文本框Text1中輸入"21 23 2 3 5 17 54#",單擊命令按鈕Cmdl,數(shù)組元素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.本程序的功能是,利用下列公式求函數(shù)cos(x)的近似值,規(guī)定通項的絕對值≤10^-6時結(jié)束計算。請完善本程序.

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.本程序的功能是找出一組連續(xù)的整數(shù),它們的和數(shù)等于給定的數(shù)。通常給定一個數(shù),可能會找出多組符合要求的連續(xù)整數(shù)。查找的方法是窮舉法。請完善本程序。

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.本程序的功能是將漢字的區(qū)位碼轉(zhuǎn)換成以十六進(jìn)制數(shù)形式表示的機(jī)內(nèi)碼。漢字的區(qū)位碼由4位數(shù)字組成,前兩位數(shù)字表示漢字在編碼表中的區(qū)號,后兩位數(shù)字表示位號,區(qū)號和位號均為十進(jìn)制數(shù)。例如漢字""的區(qū)位碼是5448,""的區(qū)號是54,位號是48。將區(qū)號與位號分別加上160,再轉(zhuǎn)換成十六進(jìn)制數(shù)形式,就是""的機(jī)內(nèi)碼。請完善本程序。

  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.本程序的功能是查找一組數(shù)據(jù)中的眾數(shù)。所謂眾數(shù),就是在這組數(shù)據(jù)中出現(xiàn)次數(shù)最多的數(shù).注意:一組數(shù)據(jù)中的眾數(shù)可能有多個.(即有多個數(shù)據(jù)的出現(xiàn)次數(shù)相同)。事件過程Cmdfind主要功能是生成n個隨機(jī)整數(shù)存入數(shù)組,再調(diào)用Freq過程,求出數(shù)組中每個不相同的數(shù)據(jù)出現(xiàn)的次數(shù):再求出其中最大的出現(xiàn)次數(shù)值,最后,將求出相應(yīng)的眾數(shù)輸出。請完善本

程序。

  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("輸入數(shù)據(jù)個數(shù):","查找眾數(shù)",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數(shù)組用于存放A數(shù)組中不相同數(shù)據(jù)的值   

    'Cs數(shù)組用于存放對應(yīng)不相同數(shù)據(jù)出現(xiàn)的次數(shù)

    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    '搜索數(shù)組a中不相同的數(shù)據(jù)

         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