鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

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

 絕密★ 啟用前

2010年秋

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

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

二級(jí)試卷

試卷語種:VB語言

 

  明:

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

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

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

  )和填空題(30)兩種;

4.選擇題用答題卡答題。每一項(xiàng)有A、BC、D四個(gè)可供選擇的答案,請選

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

  每選對一項(xiàng)得1分,不選或選錯(cuò)不得分;

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

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

  不填或填錯(cuò)不得分;

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

  否填寫正確。

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

  畢清點(diǎn)后,方可離場。

 

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

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

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

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

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

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

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

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

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

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

4.  下列有關(guān)PC機(jī)主板的敘述中,錯(cuò)誤的是 ___(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.  一般來說,一個(gè)內(nèi)存條上僅有一個(gè)DRAMSRAM芯片

6.  下列有關(guān)PC機(jī)I/O總線與I/O接口的敘述中,錯(cuò)誤的是 __(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個(gè)引腳,其中一個(gè)引腳連接+5V電源

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

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

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

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

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

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

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

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

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

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

9.  下列有關(guān)計(jì)算機(jī)軟件的敘述中,錯(cuò)誤的是___(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)的免費(fèi)軟件

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

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

  版本是___(10)___

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

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

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

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

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

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

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

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

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

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

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

目的計(jì)算機(jī)地址

編號(hào)

有效載荷

  ?

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

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

    A.  有線電話網(wǎng)   B.  有線電視網(wǎng)   C.  無線局域網(wǎng)    D.  移動(dòng)電話網(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ì)算機(jī)中文本與文本處理的敘述中,錯(cuò)誤的是 ___(16)____ 

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

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

    C.  無論采用何種方式輸入漢字,在計(jì)算機(jī)中保存時(shí)均采用統(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è)計(jì)、系統(tǒng)實(shí)施和系統(tǒng)維

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

    A.問題定義

    B.可行性研究

    C.系統(tǒng)測試

    D.繪制E-R

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

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

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

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

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

 

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

一、選擇題(用答題卡答題,答案依次填在21--30答題號(hào)內(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ī)則的說法中,錯(cuò)誤的是___(23)_____

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

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

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

  D.代碼輸入時(shí),可不用區(qū)分字母大小寫,系統(tǒng)會(huì)將"保留字"首字母自動(dò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á)式中,運(yùn)算結(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.以下字符運(yùn)算表達(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ù)組的說法中,錯(cuò)誤的是___(28)___

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

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

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

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

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

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

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

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

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

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

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

    B.使用同一個(gè)文件號(hào),可同時(shí)打開多個(gè)不同的文件

    C.如果以Input方式試圖打開一個(gè)不存在的順序文件,則會(huì)出錯(cuò)

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

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

1.運(yùn)行下面程序,單擊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.運(yùn)行下面的程序,單擊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ī)定通項(xiàng)的絕對值≤10^-6時(shí)結(jié)束計(jì)算。請完善本程序.

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ù)。通常給定一個(gè)數(shù),可能會(huì)找出多組符合要求的連續(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ū)號(hào),后兩位數(shù)字表示位號(hào),區(qū)號(hào)和位號(hào)均為十進(jìn)制數(shù)。例如漢字""的區(qū)位碼是5448,""的區(qū)號(hào)是54,位號(hào)是48。將區(qū)號(hào)與位號(hào)分別加上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ù)可能有多個(gè).(即有多個(gè)數(shù)據(jù)的出現(xiàn)次數(shù)相同)。事件過程Cmdfind主要功能是生成n個(gè)隨機(jī)整數(shù)存入數(shù)組,再調(diào)用Freq過程,求出數(shù)組中每個(gè)不相同的數(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ù)個(gè)數(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