江蘇省計算機二VB全真模擬八套

1、江蘇省高等學(xué)校非計算機專業(yè)學(xué)生計算機基礎(chǔ)及應(yīng)用能力等級考試試卷二級Visual Basic全真模擬試卷一（本試卷包括計算機基礎(chǔ)知識部分和程序設(shè)計部分，考試時間共120分鐘）說明：1本試卷滿分為60分，分選擇題和填空題，試卷不分A、B類型。2選擇題用答題卡答題。每一項有A、B、C、D四個可供選擇的答案，請選擇其中一個你認(rèn)為正確的答案，用HB鉛筆涂寫在答題卡的相應(yīng)答題號內(nèi)。每選對一項得1分，不選或選錯不得分。3填空題用答題紙答題。請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個答案只占一行,不得換行。每填對一個答案得1分，不填或填錯不得分。4請認(rèn)真填寫并仔細(xì)核對答題卡和答題紙上的學(xué)校名稱、準(zhǔn)考證號和姓名是

2、否填寫正確。 第一部分計算機基礎(chǔ)知識1在下列關(guān)于信息系統(tǒng)的敘述中，錯誤的是 1 。A廣播/電視是一種雙向的、點到多點的信息交互系統(tǒng)B網(wǎng)絡(luò)聊天是一種雙向的、以信息交互為主要目的的系統(tǒng)C電話是一種雙向的、點對點的、以信息交互為主要目的的系統(tǒng)DInternet是一種跨越全球的多功能信息系統(tǒng)2下面關(guān)于集成電路（IC）的敘述中正確的是 2 。A集成電路是20世紀(jì)60年代出現(xiàn)的B按用途可分為通用和專用兩大類，微處理器和存儲器芯片都屬于專用集成電路C現(xiàn)代微電子技術(shù)已經(jīng)用砷化鎵取代了硅D集成電路的工作速度與組成邏輯門電路的晶體管尺寸有密切關(guān)系3交換技術(shù)是指使用交換設(shè)備實現(xiàn)多對終端設(shè)備之間的互連，以滿足多用戶通

3、信的需要，下面對于交換技術(shù)的說法中，正確的是 3 。A交換技術(shù)只有電路交換和分組交換兩種類型B分組交換方式的線路利用率很低C電路交換采用存儲轉(zhuǎn)發(fā)方式傳輸數(shù)據(jù)D目前廣域網(wǎng)中普遍采用的交換技術(shù)是分組交換4計算機中的數(shù)值信息分成整數(shù)和實數(shù)（浮點數(shù)）。實數(shù)之所以能表示很大或很小的數(shù)，是由于使用了4。A階碼 B反碼 C補碼 DBCD碼5下列存儲器中，速度最快的是5。A內(nèi)存B寄存器B外存D高速緩存6下列關(guān)于USB接口的敘述中，錯誤的是6。A利用“USB集線器”，一個USB接口能連接多個設(shè)備BUSB的中文含義是通用串行總線C鼠標(biāo)器這樣的慢速設(shè)備不能使用USB接口DUSB接口有兩種規(guī)格，2.0版的數(shù)據(jù)傳輸速率

4、要比1.1版快得多7數(shù)碼相機的鏡頭和快門與傳統(tǒng)相機基本相同，不同之處是它不使用光敏鹵化銀膠片成像，而是將影像聚焦在成像芯片（7或CMOS）上，并由成像芯片轉(zhuǎn)換成電信號，再經(jīng)模數(shù)轉(zhuǎn)換變成數(shù)字圖像。ABIOSBNBCCCCDDABC 8下列關(guān)于打印機的敘述，錯誤的是8。A噴墨打印機屬于非擊打式打印機，它的優(yōu)點是能輸出彩色圖像、經(jīng)濟、低噪音、打印效果好等B目前激光打印機分為黑白和彩色兩種C針式打印機屬于擊打式打印機，由于打印質(zhì)量不高，噪音大，現(xiàn)已逐漸退出市場，但其獨特的平推式進紙技術(shù)，在打印存折和票據(jù)方面具有不可替代的優(yōu)勢D打印精度也就是打印機的分辨率，它用CPS來表示9下面幾種說法中正確的是9。A

5、CD-RW為可多次讀但只可寫1次的光盤BCD-R和CD-ROM類似，都只能讀不能寫CCD盤記錄數(shù)據(jù)的原理為：在盤上壓制凹坑，凹坑邊緣表“0”，凹坑和非凹坑的平坦部分表示“1”DDVD采用了更有效的糾錯編碼和信號調(diào)制方式，比CD可靠性更高10面向電子出版的最流行的軟件是10公司的Acrobat，它使用PDF格式將文字、字型、格式、顏色、圖形、圖像、超文本連接、聲音和視頻等信息都封裝在一個文件中，不僅適合于網(wǎng)絡(luò)和電子出版，也適合于印刷出版，實現(xiàn)了紙張印刷和網(wǎng)絡(luò)出版的統(tǒng)一。AMicrosoftBMacromediaCAdobeDIBM11下列關(guān)于操作系統(tǒng)任務(wù)管理的說法，錯誤的是_11_。AWindo

6、ws操作系統(tǒng)支持多任務(wù)處理B分時是指將CPU時間劃分成時間片，輪流為多個程序服務(wù)C并行處理可以讓多個處理器同時工作，提高計算機系統(tǒng)的效率D分時處理要求計算機必須配有多個CPU12下面有關(guān)PCI總線的敘述中，錯誤的是12。 APCI總線是一種I/O總線BPCI總線的速度比ISA總線快CPCI總線的寬度為32位，不能擴充到64位DPCI總線能與其他I/O總線共存于PC系統(tǒng)中13程序中的控制成分是提供一個基本框架，從而將數(shù)據(jù)和對數(shù)據(jù)的運算組合成程序。這個框架都可以用三種基本控制結(jié)構(gòu)來描述，三種結(jié)構(gòu)不包括13。A多分支結(jié)構(gòu) B順序結(jié)構(gòu)C重復(fù)結(jié)構(gòu) D選擇結(jié)構(gòu)14Internet的三項主要服務(wù)項目是英文縮

7、寫是14。AE-mail, FTP, WWWBWeb, LAN, HTMLCISP, HUB, BBSDTCP/IP, FTP, PPP/SLIP15下面對于廣域網(wǎng)接入技術(shù)說法中，錯誤的是_15_。電話撥號接入一定要“貓”才行FTTxETTH上網(wǎng)速度最快 目前ADSL 是接入因特網(wǎng)的主要方式之一Cable MODEM上網(wǎng)不僅速度快而且數(shù)據(jù)傳輸速率穩(wěn)定16 16把相距遙遠(yuǎn)的許多局域網(wǎng)和計算機用戶互相連接在一起，它的作用范圍通?？梢詮膸资锏綆浊Ч?，甚至更大的范圍，也稱為遠(yuǎn)程網(wǎng)。A公司網(wǎng)BWANCLAND小型網(wǎng)17數(shù)據(jù)庫管理系統(tǒng)提供給用戶的接口是17。A宿主語言 B過程化語言C數(shù)據(jù)庫語言 D面

8、向?qū)ο笳Z言18 是“江蘇省高等學(xué)校計算機等級考試中心”的網(wǎng)址。其中，“ http ”是指 _18_。 A超文本傳輸協(xié)議 B文件傳輸協(xié)議 C計算機主機域名 DTCP/IP 協(xié)議 19信息系統(tǒng)是多種多樣的，從信息處理的深度進行劃分，決策支持系統(tǒng)屬于19。 A業(yè)務(wù)信息處理系統(tǒng) B信息檢索系統(tǒng)C信息分析系統(tǒng) D專家系統(tǒng)20下面對Microsfot Excel（97及以后版本）的說法中，錯誤的是20。AExcel的單元格中可以是文字、數(shù)字或公式等B當(dāng)打開一個Excel工作簿時，只是包含有數(shù)據(jù)的工作表被打開CExcel工作表最多有65536行DExcel工作表可以保存為文本文件第二部分Visual Bas

9、ic程序設(shè)計一、選擇題（用答題卡答題，答案依次填在2130答題號內(nèi)）21x，y是整數(shù)型變量，z產(chǎn)生一個范圍在y，x之間的隨機整數(shù)的語句是21。Az=Int(Rnd*(y-x+1)+xBz=Int(Rnd*y) + xCz=Int(Rnd*x)+yDz=Int(Rnd*(y-x) + x22默認(rèn)Value屬性的控件是22。A單選框B文本框C標(biāo)簽框D列表框23在圖1中，要在窗體Form1上部有“程序示例”字樣，窗體屬性應(yīng)設(shè)置為23。圖1AForm1.Name=程序示例BForm1.Enabled =程序示例CForm1.Caption=程序示例DForm1.Show=程序示例24設(shè)整型變量a、b的

10、當(dāng)前取值分別為200與20，以下賦值與句中不能正確執(zhí)行的是24。A. Text1 = a / b * aB. Text1 = a * a / bC. Text1 = 200 * a / bD. Text1 = a & b & a25在數(shù)據(jù)文件中，Reset語句的功能是25。A重新設(shè)置文件的文件號B關(guān)閉所有用Open語句打開的文件C更改將要打開文件的類型D文件指針復(fù)位26運行下列程序：Private Sub form_Click()x = 8: y = 2Call fun1(x), y)Print x, yEnd SubPrivate Sub fun1(x, y)s = xx = s / yy

11、= s Mod yEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是26。A42B82C80D2427運行下列程序：Private Sub Form_Click()Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + x If x 20 Then Exit DoLoopPrint x, yEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是27。A1020B30 60C1030D20 6028運行下列程序：Private Sub Form_Click()For i = 1 To 20If fun1(i) Thens = s + 1E

12、nd IfNext iPrint sEnd SubPrivate Function fun1(y) As BooleanIf y Mod 2 0 Thenfun1 = FalseElsefun1 = TrueEnd IfEnd Function單擊窗體后，則在窗體上顯示的結(jié)果是28。A110B10C0D2029運行下列程序：Private Sub Form_Click()Dim a As Integera = 1For i = 1 To 5Call fun1(a)Next iPrint aEnd SubPrivate Sub fun1(x)y = 2Dox = x + yLoop Until

13、x 10End Sub單擊窗體后，則在窗體上顯示的結(jié)果是29。A5B12345C19D7 30運行下列程序：Dim bPrivate Sub Form_Click()a = 1: b = 1Call fun1(a)Print X = ; a; ,Y = ; bEnd SubPrivate Sub fun1(a)b = 2 * aa = 3 * bEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是30。AX = 1，Y = 1BX = 2，Y = 6CX = 6，Y = 2DX = 6，Y = 1二、填空題（請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個答案只占一行）（每空1分，共30分）1VB6.0的

14、賦值語句為變量或?qū)傩再x值，為對象引用賦值必須使用（1）。2設(shè)Label控件的邊框樣式，可用的屬性是（2）。3標(biāo)簽控件中，要更改文字對齊方式的屬性項是（3）。4若要求從文本框中輸入密碼時在文本框中只顯示“*”號，則應(yīng)當(dāng)在此文本框的屬性窗口中設(shè)置（4）屬性值為“*”。5運行下列程序：Private Sub Form_Click()Dim s1 As String, s2 As Stringx1 = 1: x2 = 2x3 = 3: x4 = 4s1 = x1 + x3s2 = x2 + x4Debug.Print s1; Val(s2)End Sub單擊窗體后，則在立即窗口上輸出的結(jié)果是（5）。6

15、下列程序運行時，單擊Command1命令按鈕，在窗體上打印的結(jié)果是（6）。Private Sub Command1_Click()Dim a As Integer, i As Integer, c As Integera = 1c = 38For i = 1 To 2Select Case c 10Case 0c = a * 10 + cCase 1 To 9c = a * 100 + cCase 10 To 99c = a * 1000 + cEnd SelectNext iPrint cEnd Sub7下列程序運行時，單擊Command1命令按鈕，在窗體上打印的結(jié)果是（7）。Private

16、 Sub Command1_Click()Dim a As Integer, b As Integer, r As Integera = 45: b = 18Print fun1(a, b)End SubPrivate Function fun1(x As Integer, y As Integer) As IntegerDim r As Integerr = x Mod yDo While r 0x = y: y = rr = x Mod yLoopfun1 = yEnd Function8下列程序運行時，單擊Command1命令按鈕，在窗體上打印結(jié)果的第一行、第二行和第三行分別是（8）、（

17、9）和（10）。Private Sub Command1_Click()a = 2b = 3Doa = a + bPrint ab = b + 1If a = 10 ThenExit DoEnd IfLoop While b = 10End Sub9執(zhí)行下面的程序后，單擊按鈕 Command1后，在窗體上顯示的結(jié)果為（11）。當(dāng)把子函數(shù)中A語句和B語句的位置交換以后，則在窗體上顯示的結(jié)果又為（12）。Option ExplicitDim t As IntegerPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = 1: y

18、= 1For t = 1 To 5If t Mod 2 = 0 Theny = fun(t, x) + xElsex = fun(t, y) + yEnd IfNext tDebug.Print t; x; yEnd SubPrivate Function fun(n As Integer, m As Integer) As Integerm = n - 1 + tA語句n = m + n tB語句fun = m * nEnd Function10下列程序的功能是：由系統(tǒng)產(chǎn)生10個1099之間的無序數(shù)，在圖片框Picture1中顯示出來。對其去掉一個最大數(shù)和最小數(shù)，然后求其平均值，在文本框中T

19、ext1中顯示出來。運行后如圖2所示，給定的程序不完整，將程序補充完整。Option Base 1Private Sub Form_Click()Dim i As Integer, Max As Integer, Min As IntegerDim a(10) As Integer, sum As IntegerRandomizeFor i = 1 To UBound(a)a(i) =（13）Picture1.Print a(i);Next iMax = a(1): Min = a(1): sum = a(1)For i = 2 To UBound(a)If Max a(i) Then Min

20、 = a(i)sum = sum + a(i)Next isum = sum - Max - MinText1.Text = 去掉最大數(shù)和最小數(shù)后的平均值= & （14）End Sub圖211下列程序的功能是：用對話框分別輸入三個正整數(shù)后，在圖片框Pic1中顯示三個由大到小排序的數(shù)據(jù)。給定的程序不完整，將程序補充完整。Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = InputBox(請輸入一個正整數(shù)a)b = InputBox(請輸入一個正整數(shù)b)c = InputBox(請輸入一個正整數(shù)c)If（

21、15）Thent = aa = bb = tEnd IfIf（16）Thent = bb = cc = tEnd IfIf（17）Thent = aa = bb = tEnd IfPic1.Print a; b; cEnd Sub12在下列程序中，數(shù)組s為某門課程的分?jǐn)?shù)，程序功能是統(tǒng)計各個分?jǐn)?shù)段的人數(shù)，統(tǒng)計后結(jié)果如圖3所示。給定的程序不完整，將程序補充完整。圖3Option Base 1Private Sub Command1_Click()Dim age As IntegerDim a(10) As IntegerDim n, ss = Array(75, 86, 63, 87, 94, 5

22、1, 72, 93, 82, 70, 45, 88)For i = 1 To UBound(s)a(s(i) 10) =（18） Next iFor i = UBound(a) To 1 Step -1List1.AddItem Str(i - 1) * 10) & & Str(i * 10) & 分的人數(shù)為 & （19）Next iEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub13下列程序執(zhí)行結(jié)束后，a(1，1)的值是（20），a(2，2)的值是（21），a(3，3)的值是（22）。Option Base 1Private Sub Fo

23、rm_Click()Dim i As Integer, j As IntegerDim a() As Integer, n As Integern = 3ReDim a(n, n)For i = 1 To nFor j = 1 To na(i, j) = i + jNext jNext iCall Sub1(a, n)End SubPrivate Sub Sub1(y() As Integer, n As Integer)Dim i As Integer, j As IntegerDim t As IntegerFor i = 1 To nFor j = 1 To nt = y(i, j)y(

24、i, j) = y(n + 1 - j, n + 1 - j)y(n + 1 - j, n + 1 - j) = tNext jNext iEnd Sub14下列程序的功能是，隨機產(chǎn)生66個具有兩位數(shù)的矩陣，并找出每行最大數(shù)，如圖4所示。給定的程序不完整，將程序補充完整。圖4Private Sub Command1_Click()Dim a(6, 6) As IntegerRandomizeFor i = 1 To 6For j = 1 To 6a(i, j) = Int(90 * Rnd) + 10Next jNext iFor i = 1 To 6Max =（23）pic1.Print M

25、ax;For j = 2 To 6pic1.Print a(i, j);If Max 0End Sub16下列程序的功能是：找出2100之間所有的既是素數(shù)，又是降序數(shù)，并在列表框List1中輸出，所謂降序數(shù)是指低位數(shù)字小于高位數(shù)字的數(shù)。例如31、41均是降序數(shù)，17不是降序數(shù)，程序執(zhí)行后如圖6所示。給定的程序不完整，將程序補充完整。圖6Private Sub Form_Click()Dim n As Long, m As Long, k As IntegerFor n = 2 To 100If fun1(n) = True Thenflg = 1（28）a = m Mod 10Do While

26、 m 0m = m 10b = m Mod 10If b a And m 0 Then flg = 0: （29）a = bLoopIf flg = 1 Then List1.AddItem nEnd IfNext nEnd SubPrivate Function fun1(n As Long) As BooleanDim m As IntegerFor m = 2 To Sqr(n)If n Mod m = 0 Then Exit FunctionNext m（30）End Function二級Visual Basic全真模擬試卷一參考答案一、選擇題：1A2D3D4A5B6C7C8D9D10

27、C11D12C13A14A15D16B17C18A19C20B21A22A23C24B25B26C27B28B29C30C二、填空題：（1）Set語句（2）Borderstyle（3）Alignment（4）passwordchar（5）13 24（6）1138（7）9（8）5 （9）9 （10）14（11）8 7 56（12）10 170 17（13）Int(Rnd*90)+10（14）Str(sum/8)（15）ab（16）bc（17）a= Form1.Width Then Frame1.Left = 0Frame1.Move Frame1.Left + 50End Sub運行后，窗體中的

28、現(xiàn)象是23。A僅框架框移動B框架框攜帶復(fù)選按鈕和命令按鈕同時移動C框架框攜帶復(fù)選按鈕同時移動D框架框攜帶命令按鈕同時移動24Loc函數(shù)作用是，返回一個24。ALong型數(shù)據(jù)，在已打開的文件中指定當(dāng)前讀寫位置BLong型數(shù)據(jù)，計算其文件長度CInteger型數(shù)據(jù)，表示文件號的范圍DLong型數(shù)據(jù)，表示用Open語句打開的文件的大小25文件操作的一般順序是25。A操作關(guān)閉文件B打開文件操作關(guān)閉文件C打開文件操作D打開文件關(guān)閉文件操作26運行下列程序：Private Sub Form_Click()For i = 0 To 2Print Tab(4 - i); String(i * 2 + 1, A

29、)Next iPrintEnd Sub單擊窗體后，則在窗體上顯示的結(jié)果是26。AAAABAAA AAAAAA AAA AAACADAAAAAAAAA AAAAA AAA27運行下列程序：Private Sub form_Click()x = InputBox(請輸入一個數(shù)：)Select Case xCase Is 0: y = x + 1: x = y + 1Case Is = 0: y = x + 2: x = y + 2Case Else: y = x + 3: x = y + 3End SelectPrint x; yEnd Sub從鍵盤輸入1，輸出的結(jié)果是27。A32B23C22D1

30、428在當(dāng)前窗體有一個文本框Text1，在D盤的根目錄存在數(shù)據(jù)文件data.txt，數(shù)據(jù)文件的內(nèi)容是abc 10 20 30efg 40 50 60若運行程序，要在文本框中顯示的內(nèi)容是28。Private Sub Form_Click()Open d:data.txt For Input As #10Do Until EOF(10)Line Input #10, linesText1.Text = Text1.Text + Mid(lines, 5, 2)LoopClose #10End SubAabc B1040CefgD10 2029運行下列程序：Private Sub form_Clic

31、k()Dim xx = 0Do While x 65n = String(3, UCase(s)Case Is = 65n = String(3, LCase(s)Case Elsen = sEnd SelectPrint nEnd Sub從鍵盤輸入A，輸出的結(jié)果是30。AaaaBAAAC65Da二、填空題（請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個答案只占一行）（每空1分，共30分）1由Visual Basic系統(tǒng)中，引發(fā)事件的對象叫做（1）。2在VB6.0中，CInt(-3.4)的函數(shù)值是（2）。3Stretch的屬性只使用于（3）控件。4在用Open語句打開文件時，設(shè)定為二進制訪問模式是（

32、4）。5指示復(fù)選框處于選定、未選定或禁止?fàn)顟B(tài)(暗淡的)中的屬性是（5）。6下列程序運行時，單擊鼠標(biāo)的右鍵時，窗體上打印出的數(shù)值是（6）。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ClsPrint ButtonEnd Sub7下列程序運行后，輸出的圖形是一個（7）。Private Sub Form_Click()Dim Cx, CyCx = ScaleWidth / 2Cy = ScaleHeight / 2Line (Cx, 0)-(Cx, ScaleHeig

33、ht)Line (0, Cy)-(ScaleWidth, Cy)End Sub8運行下列程序,單擊Command1命令按鈕后，則在窗體上顯示第一行和第二行的結(jié)果分別是（8）和（9）。Private Sub Command1_Click()t = 1: x = 2: y = 3: z = 4If t 0 Or t = x And x y Or y z Thent = fun1(t, z)Print tElset = fun1(x, y)Print tEnd IfPrint xPrint yEnd SubFunction fun1(ByVal x As Integer, ByVal y As In

34、teger) As IntegerDo While y 0t = x yx = yy = tLoopfun1 = xEnd Function9當(dāng)下列程序運行，單擊窗體后，分別輸入72和24，信息框上顯示的結(jié)果是（10）。Private Sub Form_Click()Dim x As Integer, y As Integerx = Val(InputBox(輸入整數(shù)72)y = Val(InputBox(輸入整數(shù)24)z = fun1(x, y)MsgBox Str(z)End SubPrivate Function fun1(ByVal a As Integer, ByVal b As I

35、nteger) As IntegerDor = a Mod ba = bb = rLoop Until r = 0fun1 = aEnd Function10運行下列程序，單擊窗體后，則在窗體上顯示第一行和第二行的結(jié)果分別是（11）和（12）。Private Sub Form_Click()x = 3: y = 7: z = 2: t = 5Doy = y + xx = x + yCall sub1(x, y, z, t)Print x; z; tLoop While x 1 Thent = x(1)x(1) = x(n - 1)x(n - 1) = tCall sub1(x, n - 1)End