亚洲国产福利在线一二三观看_精品国产伦一区二区三区欲臀_国产a∨视频精品视频护士_精品八戒人妻少妇av

江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
2012秋江蘇省高校計算機二級VB筆試真題

 

本題目的視頻講解請登錄school.njwww.net查看

絕密★ 啟用前

2012年秋

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

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

二級試卷

試卷語種:Visual Basic語言

 

  明:

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

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

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

  )和填空題(30)兩種;

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

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

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

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

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

  不填或填錯不得分;

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

  否填寫正確。

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

  畢清點后,方可離場。

 

 

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

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

1.下列關(guān)于信息、信息技術(shù)、信息產(chǎn)業(yè)與信息化的敘述中。錯誤的是___1___    。

    A.世間一切事物都在運動,都具有一定的運行狀態(tài),因而都在產(chǎn)生信息

    B.現(xiàn)代信息技術(shù)的主要特征之一是以數(shù)字技術(shù)為基礎(chǔ)

    C.信息產(chǎn)業(yè)特指利用信息設(shè)備進行信息處理與服務(wù)的行業(yè),它不包括任何生產(chǎn)制造行業(yè)

    D.信息化是一個推動人類社會從工業(yè)社會向信息社會轉(zhuǎn)變的社會轉(zhuǎn)型的過程

2.下列關(guān)于數(shù)字技術(shù)與微電子技術(shù)的敘述中,錯誤的是___2___ 。

  A.數(shù)字技術(shù)的處理對象是"比特",它只有兩種取值,即數(shù)字0和數(shù)字1

B.數(shù)據(jù)通信和計算機網(wǎng)絡(luò)中傳輸二進制信息時,傳輸速率的度量單位通常為B/sKB/s、MB/s

  C.微電子技術(shù)是實現(xiàn)電子電路和電子系統(tǒng)超小型化及微型化的技術(shù),它以集成電路為核心

  D.Intel公司創(chuàng)始人之一摩爾曾發(fā)表論文預(yù)測,單塊集成電路的集成度平均每18~24個月翻一番

3.以下選項中,數(shù)值相等的一組數(shù)是___3___ 。

  A.十進制數(shù)54020與八進制數(shù)54732

  B.八進制數(shù)13657與二進制數(shù)1011110101111

  C.十六進制數(shù)F429與二進制數(shù)1011010000101101

  D.八進制數(shù)7324與十六進制數(shù)B93

4.下列關(guān)于臺式PCCPU的敘述中,錯誤的是___4___

    A.目前的PC,CPU芯片都是直接固定在主板上的,用戶不可對其進行更換

    B.PCCPU芯片有多個生產(chǎn)廠商,例如Intel公司、AMD公司等

    C.Intel公司的Core i7/i5/i3處理器是64位多內(nèi)核CPU芯片

    D.目前的CPU芯片中一般都集成了一定容量的高速緩沖存儲器cache

5.下列關(guān)于臺式PC機主板的敘述中,錯誤的是___5___。

    A.為了便于不同PC機主板的互換,主板的物理尺寸已經(jīng)標準化,例如ATXBTX規(guī)格

    B.芯片組是主板上的重要部件,它與CPU芯片及外設(shè)同步發(fā)展

    C.主板上的BIOS集成電路芯片中存儲了CMOS設(shè)置程序

    D.主板上的CMOS存儲器是一種非易失性存儲器,在任何情況下其信息均不會丟失

6.下列四種I/O總線(接口),數(shù)據(jù)傳輸方式為并行方式的是___6___ 。

    A.PCI-Express

    B.PCI

    C.USB

    D.IEEE-1394

7.下列關(guān)于常用I/O設(shè)備的敘述中,錯誤的是___7___

  A.鼠標器與主機的接口主要有PS/2USB兩種  

  B.光學分辨率是掃描儀的重要性能指標,目前普通辦公用掃描儀的分辨率可達1000dpi以上

  C.數(shù)碼相機的成像芯片均為CCD類型,且絕大多數(shù)相機的存儲卡是通用的、可互換的

  D.寬屏LCD顯示器是目前最常見的PC機顯示器,其顯示屏的寬度與高度之比為16:916:10

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

 A.PC機硬盤接口主要有PATA(并行ATA)SATA(串行ATA)兩種,PATA的傳輸速率更高些

 B.目前U盤不僅能方便地保存數(shù)據(jù),還可以模擬光驅(qū)和硬盤啟動操作系統(tǒng)

 C.固態(tài)硬盤是基于半導體存儲器芯片的一種外存儲設(shè)備,一般用在便攜式計算機中

 D.光盤可分為CD光盤、DVD光盤和藍光光盤

9.  下列關(guān)于軟件的敘述中,錯誤的是___9___

    A.軟件是用于特定用途的一整套程序、數(shù)據(jù)及相關(guān)的文檔

    B.共享軟件是沒有版權(quán)的軟件。允許用戶對其進行修改并散發(fā)

    C.目前,Adobe Reader、360殺毒軟件是有版權(quán)的免費軟件

    D.操作系統(tǒng)、程序設(shè)計語言處理蠶統(tǒng)、數(shù)據(jù)庫管理系統(tǒng)均屬于系統(tǒng)軟件

10.下列關(guān)于Windows操作系統(tǒng)多任務(wù)處理的敘述中,正確的是___10___。

    A.如果用戶只啟動一個應(yīng)用程序工作(如使用Word寫作),那么該程序就可以自始至終地獨占CPU

    B.僅當計算機中有多個處理器或處理器為多內(nèi)核處理器時,操作系統(tǒng)才能同時執(zhí)行多個任務(wù)處理

    C.無論是系統(tǒng)程序還是應(yīng)用程序,所有運行程序(進程)獲得CPU使用權(quán)的優(yōu)先級相同

    D.在多任務(wù)處理時,后臺任務(wù)與前臺任務(wù)都能得到CPU的及時響應(yīng)

11.下列關(guān)于程序設(shè)計語言及其處理系統(tǒng)的敘述中,錯誤的是___11___

    A.機器語言就是計算機的指令系統(tǒng),機器語言程序一般為二進制代碼形式

    B.匯編程序是指用匯編語言編寫的源程序,不同計算機的匯編程序通常是相同的

    C.Microsoft Office軟件(Word、Excel)中包含VBA程序設(shè)計語言,VBAVB的子集

    D.高級語言的語言處理系統(tǒng)的工作方式通常分為兩種,"解釋"方式和"編譯"方式

12.下列關(guān)于移動通信的敘述中,錯誤的是___12___

    A.1代個人移動通信采用的是模擬傳輸技術(shù),從第2代開始均采用了數(shù)字傳輸技術(shù)

    B.目前廣泛使用的GSMCDMA都是第2代移動通信

    C.我國的3G通信目前有三種技術(shù)標準,這三種標準的網(wǎng)絡(luò)不能互通,但終端設(shè)備互相兼容

    D.目前第4代移動通信(4G)也在研發(fā)和部署之中,我國已有多個城市開始建設(shè)試驗網(wǎng)

13.下列關(guān)于因特網(wǎng)接入技術(shù)的敘述中,錯誤的是___13___

  A.采用電話撥號接入時,需要使用電話MODEM,其主流產(chǎn)品的速率為56kbps

  B.采用ADSL接入時,數(shù)據(jù)上傳速度低于數(shù)據(jù)下行速度,理想狀態(tài)下數(shù)據(jù)下行速度可達8Mbps

  C.采用有線電視網(wǎng)接入時,多個終端用戶均可獨享連接段線路的帶寬

  D.目前我國許多城市采用"光纖到樓、以太網(wǎng)入戶"的做法,用戶可享受數(shù)兆乃至百兆的帶寬

14.Internet使用TCP/IP協(xié)議實現(xiàn)了全球范圍的計算機網(wǎng)絡(luò)的互連,連接在Internet上的每一臺主機都有一個IP地址。下面不能作為IP地址的是___14___ 。

    A.201.109.39.68

    B.120.34.0.18

    C.21.18.33.48

    D.127.0.257.1

15.現(xiàn)在因特網(wǎng)上的多數(shù)郵件系統(tǒng)使用___15___協(xié)議,它允許郵件正文具有豐富的排版格式,可以包含圖片、聲音和超鏈接,從而使郵件的表達能力更強,內(nèi)容更豐富。

    A.MIME    B.SMTP    C.POP3 D.HTML

16.下列關(guān)于網(wǎng)絡(luò)信息安全的敘述中,錯誤的是 ___16___ 。

  A.信息在網(wǎng)絡(luò)傳輸過程中,會受到竊聽、偽造、篡改等安全威脅

  B.最簡單也是最普遍的身份鑒別方法是使用口令(密碼),但其安全性不高

  C.數(shù)據(jù)加密是常用的網(wǎng)絡(luò)信息安全措施.也是數(shù)字簽名等安全措施的基礎(chǔ)

  D.入侵檢測與防火墻一樣,都是被動保護系統(tǒng)免受攻擊的一種網(wǎng)絡(luò)安全技術(shù)

 

17.下列關(guān)于字符編碼標準的敘述中,錯誤的是___17___ 。

  A.ASCII標準是美國制定的標準,也是目前使用最為廣泛的西文字符編碼標準

  B.GB2312GBKGB18030都是我國制定的標準,在這些標準中所有字符均采用雙字節(jié)編碼

  C.目前在臺港澳等地區(qū)廣泛使用BIG5編碼標準,它與GB2312不兼容

  D.UCSISO制定的標準,相應(yīng)的工業(yè)標準稱為Unicode

18.人們說話時所產(chǎn)生的語音信號必須數(shù)字化才能由計算機存儲和處理。假設(shè)語音信號數(shù)字化時取樣頻率為8kHz,量化精度為8,數(shù)據(jù)壓縮比為4,那么1分鐘數(shù)字語音的數(shù)據(jù)量(壓縮后)大約為___18___

  A.960KB    B.480KB    C.120KB D.60KB

19.目前數(shù)字有線電視和衛(wèi)星電視所傳輸?shù)臄?shù)字視頻采用的壓縮編碼標準大多是___19___

  A.MPEG-1    B.MPEG-2    C.MPEG4    D.MPEG7

20.下列關(guān)于Microsoft Office軟件(2003/2007版本為例)功能的敘述中,錯誤的是___20___

  A.Word編輯處理的文檔可以保存為多種文件格式,例如DOCRTF、TXT、HTML

  B.一個Excel文件不可以引用另一個Excel文件中的數(shù)據(jù)

  C.PowerPoint編輯處理的文檔可以另存為網(wǎng)頁或圖像文件

  D.Access是一個數(shù)據(jù)庫管理系統(tǒng),Access數(shù)據(jù)庫中

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

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

21.可以設(shè)置為VB程序運行啟動對象的是___21___

  ①工程文件                  ②任意一個窗體

  ③窗體模塊中的Main()過程    ④標準模塊中的Main()過程

  A.①②③  B.②③④  C.②③D.②④

22.若要引用列表框List1中最后一個數(shù)據(jù)項的內(nèi)容,應(yīng)使用___22___ 。

  A.List1.List(List1.Count)    B.List1.List(List1.Count-1)

  C.List1.ListIndex            D.List1.Text

23.以下關(guān)于變量的說法中,錯誤的是___23___

    A.在不同窗體中用Public語句定義的變量可以同名

    B.在過程中用Dim語句聲明的變量都是局部變量,過程運行結(jié)束它們將不再存在

    C.靜態(tài)變量在過程運行結(jié)束時其值仍保留,以供再次運行該過程時使用,因此它不是局部變量

    D.在窗體通用聲明部分聲明的模塊級變量,可以在本窗體內(nèi)的所有過程中使用

24.對應(yīng)數(shù)學表達式sin(30 )+|x + |+e -log n VB表達式是___24___

  A.Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)/Log(10)

  B.Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n)/Log(10)

  C.Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)

  D.Sin(30)+Abs(x^2+Sqr(y))+e^x-Log(n)

25.以下關(guān)于If分支結(jié)構(gòu)語句的說法中,正確的是__25___ 。

    A.If一定有與之配對的Else    B.If一定有與之配對的ElseIf

    C.If一定有與之配對的End If   D.End If一定有與之配對的If

26.設(shè)有字符串變量s,其值為"abcd",可將s的值替換為"aabcd"的語句是___26___

  A.Left(s,1)="aa"

  B.Mid(s,1,2)="aa"

  C.s="aa" && Mid(s,InStr(s,"a"))

  D.s="aa" && Right(s,Len(s)-InStr(s,"a"))

27.下列表達式中,不能將一個4位整數(shù)N的百位數(shù)字提取出來的是___27___

    A.N\100 Mod 10        B.Mid(CStr(N),2,1)

    C.(N Mod 1000)\100    D.N\10 Mod 100

28.下列有關(guān)轉(zhuǎn)換函數(shù)的說法中,正確的是___28___

   A.INTCINT函數(shù)的區(qū)別僅在于結(jié)果的數(shù)據(jù)類型不同

   B.INTFIX函數(shù)將非整數(shù)數(shù)據(jù)轉(zhuǎn)換成整數(shù),轉(zhuǎn)換后的結(jié)果類型是Long

   C.CInt函數(shù)的功能是將其他類型的數(shù)據(jù)轉(zhuǎn)換成Integer類型

   D.在處理負數(shù)時,IntFix函數(shù)的結(jié)果是相同的

29.以下有關(guān)數(shù)組的說法中,錯誤的是_______29_________

  A.Redim語句重新定義動態(tài)數(shù)組時,其下標的上下界可以使用賦了值的變量

  B.定義數(shù)組時,數(shù)組維界值可以不是整數(shù)

  C.定義數(shù)組時,數(shù)組每一維的上界值必須大于下界值

  D.定義數(shù)組時,數(shù)組維界值可以是負數(shù)

30.以下關(guān)于自定義函數(shù)過程的說法中,錯誤的是______30______

  A.在自定義函數(shù)過程中可以多次給函數(shù)名賦值

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

  C.函數(shù)定義時如果沒有說明函數(shù)名的類型,則該函數(shù)的返回值為變體類型

  D.若用Call語句調(diào)用函數(shù),則將丟棄函數(shù)的返回值

 

二、填空題

1.執(zhí)行下面程序,單擊窗體后,窗體上顯示的第一行內(nèi)容是___(1)___,第三行內(nèi)容是___(2)___,最后一行內(nèi)容是___(3)___

option explicit

private sub form_click()

  dim x as integer, y as integer, sum as integer

  for x=1 to 3

     for y=1  to 2

       sum=sum+y

       if sum>2 then exit for

     next y

     print sum; x

  next x

  print x;y

 

End Sub

 

 

2.執(zhí)行下面程序,單擊Command1后,則窗體上顯示的a(1,3)的值是___(4)___,a(2,1)的值是___(5)___,a(2,2)的值是___(6)___

Option Explicit

Option Base 1

 

Private Sub Command1_Click()

   Dim a(3, 3) As Integer, i As Integer, j As Integer

   For i = 1 To 3

      For j = 1 To 3

         a(i, j) = i * 10 + j

      Next j

   Next i

   Call jh(a)

End Sub

 

Private Sub jh(x() As Integer)

   Dim i As Integer, j As Integer, t As Integer

   For i = 1 To 2

      For j = 1 To 4 - i

         t = x(i, j)

         x(i, j) = x(4 - i, 4 - j)

         x(4 - i, 4 - j) = t

      Next j

   Next i

   For i = 1 To 3

     For j = 1 To 3

        Print x(i, j);

     Next j

     Print

   Next i

   Print

End Sub

 

3.執(zhí)行下面程序,單擊Command1后,在Text1中輸入"12123152",窗體上顯示的第一行內(nèi)容是___(7)___,第二行內(nèi)容是___(8)___,最后一行內(nèi)容是___(9)___

Option Explicit

Option Base 1

 

Private Sub Command1_Click()

  Dim s As String, i As Integer, a() As Integer

  s = Text1.Text

  For i = 1 To Len(s)

    ReDim Preserve a(i)

    a(i) = Val(Mid(s, i, 1))

  Next i

  Call sub1(a)

End Sub

 

Private Sub sub1(a() As Integer)

   Dim i As Integer, j As Integer, k As Integer

  i = 2

  Do Until i >= UBound(a)

    k = i - 1

    Do Until a(i - 1) > a(i)

      i = i + 1

    Loop

    For j = k To i - 1

      Print a(j);

    Next j

    Print

    i = i + 1

  Loop

End Sub

 

 

4.執(zhí)行下面程序,單擊Command1后,窗體上顯示的第一行內(nèi)容是___(10)___,最后一行內(nèi)容是___(11)___,共顯示了___(12)___

Option Explicit

Option Base 1

 

Private Sub Command1_Click()

 Dim i As Integer

 For i = 1 To 6 Step 2

   Call sub1(i)

 Next i

End Sub

 

Private Sub sub1(a As Integer)

   Static b As Integer

   b = b + 1

   If (a + b) Mod 4 = 0 Then

     Print a; b

   Else

     Call sub1(a + 1)

   End If

End Sub

 

5.執(zhí)行下面程序,單擊Command1后,窗體上顯示的第一行內(nèi)容是___(13)___,第二行內(nèi)容是___(14)___,最后一行內(nèi)容是___(15)___

Option Explicit

Private Sub Command1_Click()

 Dim i As Integer

 For i = 4 To 7

   Print gray_code(i)

 Next i

End Sub

 

Private Function gray_code(ByVal x As Integer) As String

   Dim i As Integer, d2b As String

   Do

      d2b = x Mod 2 & d2b

      x = x \ 2

   Loop Until x = 0 

   d2b = Right("0000" & d2b, 4)

   For i = 4 To 2 Step -1

      If Mid(d2b, i, 1) = Mid(d2b, i - 1, 1) Then

         Mid(d2b, i, 1) = "0"

      Else

         Mid(d2b, i, 1) = "1"

      End If

   Next i

   gray_code = d2b

End Function

 

 

6.本程序用于驗證西西弗斯數(shù)學黑洞123.驗證過程是:對于任意一個位數(shù)不限的自然數(shù),依次統(tǒng)計出這個數(shù)中偶數(shù)字(數(shù)字0看做偶數(shù)字)的個數(shù),奇數(shù)字的個數(shù),總位數(shù),將偶數(shù)字的個數(shù)值、奇數(shù)字的個數(shù)值、總位數(shù)值拼接成一個新的數(shù),若這個數(shù)不是123,則再對這個數(shù)重復以上的"統(tǒng)計個數(shù)、拼數(shù)"操作、如此經(jīng)過若干次操作,必能得到數(shù)123,例如,若初始數(shù)是35962,第一次統(tǒng)計個數(shù),偶數(shù)字個數(shù)是2,奇數(shù)字個數(shù)是3,總位數(shù)是5,拼成的新數(shù)是235,不是123;再對235統(tǒng)計個數(shù),其中偶數(shù)字個數(shù)是1,奇數(shù)字個數(shù)是2,總位數(shù)是3,拼成的新數(shù)恰是123,請完善程序

 

Option Explicit

Private Sub Command1_Click()       '"驗證"按鈕

  Dim m As String, s As String, t As String

  m = Text1.Text

  Do

     t = test(m)

     s = s & "-->" & t

     ___(16)___

  Loop Until t = "123"

  Text2.Text = Text1.Text & s

End Sub

 

Private Function test(___(17)___) As String

  Dim i As Integer, x As Integer, y As Integer

  For i = 1 To Len(s)

     If ___(18)___ Mod 2 = 0 Then

        x = x + 1

     Else

       y = y + 1

     End If

  Next i

  test = x & y & Len(s)

End Function

 

7.下面程序的功能是檢查表達式中的括號是否匹配,請完善程序

 

Option Explicit

Private Sub Command1_Click()                 '"判斷"按鈕

   If khpp(Text1.Text) Then

      Text2.Text = "表達式正確"

   Else

      Text2.Text = "括號不匹配"

   End If

End Sub

 

Private Function khpp(s As String) As Boolean

  Dim i As Integer, p As String * 1, L As Integer, r As Integer

  For i = 1 To Len(s)

     ___(19)___

     Select Case p

        Case "("

            l = l + 1

        Case ")"

            If l > r Then

              ___(20)___

            Else

              ___(21)___

            End If

     End Select

  Next i

  If ___(21)___ Then khpp = True

End Function

 

8.下面程序的功能是:找出滿足下列條件的n(2<=n<=4)位正整數(shù),該數(shù)的n倍乘積也是n位數(shù),且這兩個n位數(shù)合起來看,是由1--9之間的不同數(shù)字組成,例如:四位數(shù)13684位不同數(shù)字組成,4倍乘積5472由其他4位不同數(shù)字組成,且兩數(shù)均不包含數(shù)字0,請完善程序

 

Option Explicit

Option Base 1

Private Sub command1_click()       '"查找"按鈕

  Dim n As Integer, i As Integer, j As Long

  For i = 12 To 2498

     n = ___(23)___

    j = 1# * i * n

    If Len(CStr(j)) = n And rep(i & j) Then

      List1.AddItem i & "*" & n & "=" & j

    End If

  Next i

End Sub

Private Function rep(st As String) As Boolean

    Dim a() As Integer, i As Integer, k As Integer, x As Long

    If InStr(st, "0") <> 0 Then  ___(24)___

    x = Val(st)

    Do

      i = i + 1

      ReDim Preserve a(i)

      a(i) = x Mod 10

      x = x \ 10

    Loop Until x = 0

    For i = 1 To UBound(a) - 1

      For k = i + 1 To UBound(a)

         If___(25)___ Then Exit Function

      Next k

    Next i

    rep = True

 End Function

9.本程序的功能是比較三個不同進制數(shù)的大小,請完善程序(說明:函數(shù)conv用于把8進制數(shù)或16進制數(shù)轉(zhuǎn)換為10進制數(shù),函數(shù)chan用于將816進制數(shù)的數(shù)字轉(zhuǎn)換為10進制整數(shù))  (注:"A"ASCII碼值為65。)

 

 

Option Explicit

option base 1

Private Sub Command1_Click()           '"判別"按鈕

   Dim a As String, b As String, c As Integer

   Dim aq As Integer, bh As Integer

   a = Text1.Text: b = Text2.Text: c = Text3.Text

   aq = conv(a, 8)

   bh = ___(26)___

   If aq > bh Then

       If ___(27)___ Then

          Label5.Caption = "a,b,c"

       ElseIf aq > c Then

          Label5.Caption = "a,c,b"

       Else

          Label5.Caption = "c,a,b"

       End If

   Else

        If bh < c Then

          Label5.Caption = "c,b,a"

       ElseIf ___(28)___ Then

          Label5.Caption = "b,c,a"

       Else

          Label5.Caption = "b,a,c"

       End If

   End If

End Sub

 

Private Function conv(st As String, n As Integer) As Integer

  Dim i As Integer, k As Integer, p As Integer

  For i = Len(st) To 1 Step -1

     p = chan(Mid(st, i, 1))

     conv = conv + p * n ^ k

     ___(29)___

  Next i

End Function

 

Private Function chan(p As String) As Integer

  If p >= "A" And p <= "F" Then

     chan =  ___(30)___

  Else

     chan = Val(p)

  End If

End Function

 

二級VB參考答案

 一、選擇題

(1)C (2)B (3)B (4)A (5)D (6)B (7)C (8)A (9)B (10)D
(11)B (12)C (13)C (14)D (15)A (16)D (17)B (18)C (19)B (20)B

21.D 22.B  23.C  24.A  25.D  26.D   27.D  28.C  29.D  30.B

 

二、填空題:

(1)3  1   (2)4  2  (3) 4  1  (4)31  (5)23   (6)22  (7)1 2  (8)1 2 3 (9)1 5)  (10)2 2

(11)6 6  (12)3   (13)0110  (14)0111  (15)0100  (16)m=t  (17)byval s as string

(18)mid(s,i,1) mod 2=0  (19)p=mid(s,i,1)   (20)R=R+1  (21)exit Function

(22)L=R   (23)Len(Cstr(i))  (24)Exit function  (25)a(i)=a(k)  (26)Conv(a,16)

(27)bh>c   (28)c>aq   (29)k=k+1   (30)chr(p)-55