2002年春VB二級(jí)試

1、2003年（春）二級(jí)考試筆試卷參考答案（ VB）（本試卷包括計(jì)算機(jī)基礎(chǔ)知識(shí)部分和程序設(shè)計(jì)部分，考試時(shí)間共120分鐘）第一部分計(jì)算機(jī)基礎(chǔ)知識(shí)（各語(yǔ)種相同）（紅色為參考答案）1.目前，漢字信息在計(jì)算機(jī)內(nèi)大多是以雙字節(jié)編碼表示的。在下列用十六進(jìn)制表示的兩個(gè)季節(jié)的編碼中,1可能是漢字“大”的機(jī)內(nèi)碼A.B473HB.B4F3HC.3473HD.73F3H2. 有一個(gè)數(shù)值311，它與十六進(jìn)制數(shù) C9相等，則該數(shù)值是用 2表示的。A.二進(jìn)制B. 八進(jìn)制C.十進(jìn)制D.五進(jìn)制3. 長(zhǎng)度為1個(gè)字節(jié)的二進(jìn)制的整數(shù)，若采用補(bǔ)碼表示，且由4個(gè)“1”和4個(gè)“0”組成，則可表示的最小整數(shù)為A.-127B.-121C.-15

2、D.-74.關(guān)于PC機(jī)主板上的 CMOS芯片，下面說(shuō)法中正確的是 4.A. CMOS芯片用于存儲(chǔ)計(jì)算機(jī)系統(tǒng)的配置參數(shù)，它是只讀存儲(chǔ)器。B. CMOS芯片用于存儲(chǔ)電自檢程序。C. CMOS芯片用于存儲(chǔ) BIOS，是易失性的。D. CMOS芯片需要一個(gè)電池給它供電，否則其中數(shù)據(jù)會(huì)因主機(jī)斷電而丟失。5. 假設(shè)某硬盤的轉(zhuǎn)速為6000轉(zhuǎn)/分，則此硬盤的平均等待時(shí)間為 5_ms （毫秒）A.5B.6C.10D.126. 軟件測(cè)試是軟件開發(fā)過程中的一個(gè)重要工作，它直接影響著軟件的質(zhì)量。一個(gè)軟件產(chǎn)品在交付前主要經(jīng)歷三種測(cè)試，三種測(cè)試中不包含_6A. 維護(hù)測(cè)試B.模塊測(cè)試C.驗(yàn)收測(cè)試D.集成測(cè)試7. 目前，計(jì)算

3、機(jī)病毒是影響計(jì)算機(jī)正常運(yùn)行的主要因素之一，用戶常在計(jì)算機(jī)中安裝防病毒軟件來(lái)預(yù)防計(jì)算機(jī)病毒。在下列有關(guān)計(jì)算機(jī)病毒及防病毒軟件的敘述中，不正確的是。A. 計(jì)算機(jī)病毒主要是通過可移動(dòng)的存儲(chǔ)介質(zhì)或網(wǎng)絡(luò)進(jìn)行傳播B. 用戶在上網(wǎng)瀏覽 WWW信息資源時(shí)，所用計(jì)算機(jī)也可能被計(jì)算機(jī)病毒感染C. 任何防病毒軟件都只能預(yù)防一些已知的病毒，但對(duì)所有查出的病毒均能安全地清除D. 任何防病毒軟件都應(yīng)經(jīng)常性地更新8. 在構(gòu)建網(wǎng)絡(luò)時(shí)，需要使用多種網(wǎng)絡(luò)設(shè)備，如網(wǎng)卡、交換機(jī)等。如果要將多個(gè)獨(dú)立的子網(wǎng)互連，如局域網(wǎng)與廣域網(wǎng)互連，應(yīng)當(dāng)用8進(jìn)行連接。A. 集線器B.路由器C.交換機(jī)D.調(diào)制解調(diào)器9. 目前世界上規(guī)模最大的計(jì)算機(jī)廣域網(wǎng)是

4、In ter ner 。在下列敘述中，不正確的是9。A. 整個(gè)In ter net中，每個(gè)接點(diǎn)（入網(wǎng)的主機(jī)）都有一個(gè)唯一的地址，稱為IP地址B. Internet中主機(jī)的名字由一系列的子域名組成，從左到右子域的級(jí)別依次降低C. Internet由主干網(wǎng)、地區(qū)網(wǎng)和校園網(wǎng)（或企業(yè)網(wǎng)或部門網(wǎng)）三級(jí)組成D. ADSL和ISDN均是利用電話線上網(wǎng)，但ADSL的上網(wǎng)速度理論上比ISDN快10. 某PC機(jī)的聲卡在處理聲音信息時(shí)，采樣頻率為44KHz A/D轉(zhuǎn)換精度為16位。若連續(xù)采集 2分鐘的聲音信息，則在不進(jìn)行壓縮編碼的情況保存這段聲音，需要的存儲(chǔ)空間近10。A.88KBB.176KBC.11MBD.83

5、MB11. 在中文版的 Windows 95/98中，用戶可以通過鍵盤操作來(lái)切換中英文輸入法。系統(tǒng)默認(rèn)的用于在某一種漢字輸入法之間切換的組合鍵為_11A.CTRL+空格鍵B.SHIFT+空格鍵C.CTRL+SHIFTD.ALT+SHIFTA.桌面B.我的電腦C.3.5英寸軟盤（A ：D.C:Windows（文件夾）15.使用Winows 95/98的“畫圖”應(yīng)用程序編輯文件時(shí)，如果需要繪制一個(gè)正方形或圓，則在操作過程中應(yīng)該使用_ 15鍵加鼠標(biāo)的拖放操作A.CTRLB.ALTC.SHIFTD.TAB12.在Windows 95/98環(huán)境下，如果某應(yīng)用程序在運(yùn)行過程中發(fā)生“死機(jī)”（這里的“死機(jī)”是

6、指該應(yīng)用程序不響應(yīng)用戶的操作且不會(huì)自動(dòng)地結(jié)束其運(yùn)行），則可以通過下列的哪一種操作來(lái)結(jié)束該應(yīng)用程序的運(yùn)行？12A.按組合鍵 Ctrl+Alt+DelC.用鼠標(biāo)單擊該應(yīng)用程序窗口中的關(guān)閉按鈕B.按鍵盤上的 Pause鍵D.按組合鍵Alt+F413.在Windows 95/98中環(huán)境下，用戶通常使用菜單命令“開始/查找”來(lái)查找文件。通過這種方式查找文件時(shí)，無(wú)法實(shí)現(xiàn)的是13。A. 查找某種類型的文件（即根據(jù)文件擴(kuò)展名查找）B. 查找某種屬性的文件（即根據(jù)文件的屬性查找）C. 查找文件大小在某一范圍內(nèi)的文件D. 查找在某一時(shí)間范圍內(nèi)創(chuàng)建或修改的文件，則不可能執(zhí)行菜單命令“文件/新建”14.在Window

7、s 95/98環(huán)境下，用戶在資源管理器窗口的“左窗口”中選擇16. 使用Microsoft Word 7.0/97/2000編輯文檔時(shí)，所編輯的文件不可保存為_16 類型。A. HTMB.BMPC.RTFD.TXT17. 關(guān)于Microsoft Word 中的左邊距”和左縮進(jìn)”，下列敘述中正確的是17。A. 左邊距”與左縮進(jìn)”是同一個(gè)概念B. 左縮進(jìn)”的數(shù)值必須大于或等于左邊距”的數(shù)值C. 左縮進(jìn)”的數(shù)值可以為正數(shù)，也可以為負(fù)數(shù)D. 左縮進(jìn)”和左邊距”均可以在 頁(yè)面設(shè)置”對(duì)話框中設(shè)置18. 使用Microsoft Excel 7.0/97/2000編輯電子表格時(shí)，所編輯的文件不可保存為18_

8、類型。A.XLSB.TXTC.XLTD.DOC19. 用Microsoft Excel 7.0/97/2000處理數(shù)據(jù)時(shí)，如果要在某單元格中輸入分?jǐn)?shù)形式的數(shù)據(jù)5/8，則在單元格定位后 19B.先輸入數(shù)字0和一個(gè)空格，然后再輸入5/8D.先輸入一個(gè)等號(hào)（=），然后再輸入5/8A.直接輸入5/8C.先輸入一個(gè)空格，然后再輸入5/82020.Internet Explorer （簡(jiǎn)稱IE ）是目前最為流行的用于WW信息瀏覽和查找的瀏覽器。在下列有關(guān)IE的功能和操作的敘述中，不正確的是A. IE是瀏覽器軟件，用戶不能通過該軟件啟動(dòng)電子郵件服務(wù)程序以收發(fā)E-mailB. 刷新網(wǎng)頁(yè)功能可以使In tern

9、et Explorer跳過緩沖區(qū)，直接從網(wǎng)頁(yè)的原始地址下載C. 收藏夾是指用于收藏用戶經(jīng)常需要訪問的網(wǎng)頁(yè)或地址的系統(tǒng)文件夾D. 頻道是用于從In ternet向用戶計(jì)算機(jī)傳遞內(nèi)容的Web站點(diǎn)第二部分VB程序設(shè)計(jì)一.填空題21. 在VB中可以作為容器的是B。A.Form、TextBox、PictureBoxB.Form、PictureBox 、FrameC.Form、TextBoX、Label D.PictureBox、TextBox、ListBox22. VB中除窗體能顯示圖片外，下面列岀的控件中可以顯示圖片的控件有C1.PictureBox 2.lmage 3.TextBox4.Comman

10、dButton 5.0ptionButton 6.LabelA.1、2、3、4、B.1 、2、5、6、C.1、2、4、5 D.1、2、4、6、23. 針對(duì)語(yǔ)句If I=1 Then J=1 ，下列說(shuō)法正確的是C。A. I=1和J=1均為賦值語(yǔ)句B. I=1和J=1均為關(guān)系表達(dá)式C.I=1為關(guān)系表達(dá)式，J=1為賦值語(yǔ)句D.l=1為賦值語(yǔ)句，J=1為關(guān)系表達(dá)式24. 在某過程中已說(shuō)明變量a為Integer類型、變量s為String類型，過程中的以下四組語(yǔ)句中，不能正常執(zhí)行的是CA.s=2*a+1 B.s=237& .11:a=sC.s=2*a3D.a=2:s=16400*a25. 下面所列四組數(shù)據(jù)

11、中，全部是正確的VB常數(shù)是A。A. 32768,1.34D2,ABCDE,&O1767B. 3276,123.56,1.2E-2,#True#C. &H ABCE,02-03-2002,False,D-3D. ABCDE,#02-02-2002#,E-226. 下面有關(guān)數(shù)組處理的敘述中，不正確的是D。1、在過程中用 ReDim語(yǔ)句定義的動(dòng)態(tài)數(shù)組，其下標(biāo)的上下界可為賦了值的變量。2、 在過程中，可以使用Dim、Private 和Static 語(yǔ)句定義數(shù)組。3、用ReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組時(shí)，不得改變?cè)摂?shù)組的數(shù)據(jù)類型。4、可用Public語(yǔ)句在窗體模塊的通用說(shuō)明處定義一個(gè)全局?jǐn)?shù)組。D.2、 4

12、、A.1、2、3、4、B.1、3、4、C.1、2、3、A.Load - In itialize - ActivateB.ln itialize - Load - ActivateC. Load - Activate- Initialize D.lnitialize - Activate - Load定義了兩個(gè)字28. 定義兩個(gè)過程 Private Sub1(St() As String)和 Private Sub2(Ch() As String*6)，在調(diào)用過程中用Dim S(3) As String*6,A(3) As String符串?dāng)?shù)組。下面調(diào)用語(yǔ)句中正確的有D。1、Call Sub1(

13、S) 2、Call Sub(A) 3、Call Sub2(A) 4、Call Sub2(S)A.1、2B.1、3C.2、3D.2、429. 運(yùn)行下面程序，單擊命令按鈕Command1則立即窗口上顯示的結(jié)果是A 。Private Sub Comma nd1_Click()Dim A As In teger,B As Boolea n,C As In teger,D As In tegerA=20/3 : B=True : C=B : D=A+CDebug. Print A, D, A=A + CEnd SubA. 7 6 FalseB. 6.6 5.6 FalseC. 7 6 A=6D. 78A

14、=830. 以下控件中，不能作為數(shù)據(jù)綁定控件的是A. Label( 標(biāo)簽)B. TextBox(文本框)C. OptionButton(單選按鈕)ListBox(列表框)二、填空題(請(qǐng)將答案填寫在答題紙的相應(yīng)答題號(hào)內(nèi)，每個(gè)答案只占一行)1、 正確表示命題“ A是一個(gè)帶小數(shù)的正數(shù)，且B是一個(gè)帶小數(shù)的負(fù)數(shù)”的邏輯表達(dá)式是_Csng(A)0 And Csng(B)0 And Alnt(A) And B0 AndBlnt(B) _。2、 運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，文本框 Text1中的內(nèi)容是 _ AFT _，文本框 Text2中的內(nèi)容是_ AatF 一。Private Sub Form_Click

15、()Dim St As Stri ngDim St1 As Stri ng, St2 As Stri ngSt = ASFRSDCFRSKXCall Cha nge_Stri ng(St, St1, St2)Text1.Text = St1Text2.Text = St2End SubPrivate Sub Change_String(S As String, St1 As String, St2 As String)Dim tem As String, i As IntegerFor i = 1 To Len(S)tem = Mid(S, i, 1)If tem = S ThenSt1 =

16、St1St2 = St2 & atElself tem = R ThenSt1 = St1 & TExit ForElseSt1 = St1 & temSt2 = St2 & temEnd IfNext iEnd Sub3、執(zhí)行下面程序，單擊命令按鈕Command1，則在窗體上顯示的第一行是_ 5 _，第二行是_ 45_，第三行是Private Sub Comma nd1_Click()Dim s_data As Integer, d_data As String, k As Integer, p As Strings_data = 29Do Un til s_data = 5p = s_da

17、ta Mod 5d_data = d_data & ps_data = s_data 5Loopd_data = d_data & s_dataPrint s_dataPrint d dataIII!For k = Len( d_data) To 1 Step -1p = p & Mid(d_data, k, 1)Next kPrint pEnd Sub124、執(zhí)行下面程序，從鍵盤輸入3,程序運(yùn)行結(jié)束后，A( 1,1)的值是一 17 一，A( 2, 2)的值是 _ 15 - ; A( 2, 3)的值是Private Sub Form_Click()Dim I As In teger, J As

18、 In teger, K As In tegerDim A() As In teger, N As In tegerN = InputBox(輸入 N)ReDim A(N, N)For I = 1 To NFor J = 1 To NK= K+ 1A(l, J) = K+ 10Next JNext ICall Sub1(A, N)End SubPrivate Sub Sub1(A() As Integer, N As Integer)Dim I As Integer, J As IntegerDim T As Integer, K As IntegerK= N + 1For I = 1 To

19、lnt(N / 2)For J = I To N -1T = A(I, J)A(l, J)=A(K-J, I)A(K - J, I) = A(K -I, K - J)A(K -I, N + 1 - J) = A(J, K - I)A(J, K - I) = TNext JNext IEnd Sub5、執(zhí)行下面程序，單擊命令按鈕Command1，則在窗體上第一行顯示是_0 1 2 3 4_ ,第二行顯示是_4 5 6 7 8_ ,第三行顯示是 _ 8Private Sub Comma nd1_Click()Output_Cou nt 4Output_Cou nt 8Output_Cou nt 4

20、End SubPrivate Sub Output_Cou nt(UpperLimit As In teger)Static LowerLimit As In tegerDo While LowerLimit 1 The n Display = Display(S, L - 1)S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Le n(S) - L)Display = SPrint DisplayEnd Fun cti on7、由鍵盤輸入一個(gè)正整數(shù)，找出大于或等于該數(shù)的第一個(gè)素?cái)?shù)。Private Sub Form_Click()Dim p As In

21、teger , x As In teger, flag As Boolea n flag = Falsex = InputBox(請(qǐng)輸入一個(gè)正整數(shù) )Do While Not flagp = 2: flag= _True_Do While flag And (p = 0 And Mid(s, i, 1) = 0 And Mid(s, i + 1,1) = 9 And i 1 ThenIf p The n ReDim Preserve c(k)c(k) = pk = k + 1End IfEnd IfNext iReDim Preserve c(k)c(k) = pFor i = 1 To k

22、List1.Addltem c(i)Next iEnd Sub1的兩個(gè)正整數(shù)，圖 2是程序執(zhí)行畫面）9、給定一個(gè)十進(jìn)制正整數(shù)，找岀小于它并與其互質(zhì)的所有正整數(shù)（所謂互質(zhì)數(shù)是指最大公約數(shù)為Opti on ExplicitPrivate Function gcd( _ByVal m As Integer, ByVai n As Integer _ ) As IntegerDim r As In tegerr = m Mod nIf r = 0 The ngcd = nElsem = n: n = rgcd = gcd(m, n)End IfEnd Fun cti onPrivate Sub Comma nd1_Click()Dim n As In teger, p As In tegern = Val(Text1)For p = n - 1 To 2 Step -1If _gcd(n, p) = 1 _ Then Listl.AddItem pNext pEnd Sub10.用(T(m)表示數(shù)m的所有因子(包括 1和