|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2008年春江蘇省計(jì)算機(jī)等級(jí)考試VB試題 |
|
2008年春江蘇省計(jì)算機(jī)等級(jí)考試VB試題 第一部分計(jì)算機(jī)基礎(chǔ)知識(shí) 1． 在下列有關(guān)微電子技術(shù)與集成電路的敘述中，錯(cuò)誤的是( 1 ) 。 A．微電子技術(shù)是以集成電路為核心的技術(shù) B．集成度是指單個(gè)集成電路所含電子元件的數(shù)目 C．Moore定律指出，單個(gè)集成電路的集成度平均每18—24個(gè)月翻一番 D．IC卡僅有存儲(chǔ)器和處理器，卡中不可能存儲(chǔ)有軟件 2． 在下列有關(guān)通信技術(shù)的敘述中，錯(cuò)誤的是( 2 ) 。 A．目前無(wú)線電廣播主要還是采用模擬通信技術(shù) B．?dāng)?shù)字傳輸技術(shù)最早是被長(zhǎng)途電話系統(tǒng)采用的 C．?dāng)?shù)字通信系統(tǒng)的信道帶寬就是指數(shù)據(jù)的實(shí)際傳輸速率(簡(jiǎn)稱“數(shù)據(jù)速率”) D．局域網(wǎng)中廣泛使用的雙絞線既可以傳輸數(shù)字信號(hào)，也可以傳輸模擬信號(hào) 3． CPU的運(yùn)算速度與許多因素有關(guān)，下面哪些是提高CPU速度的有效措施? ( 3 ) ①增加CPU中寄存器的數(shù)目 ②提高CPU的主頻 ③增加CPU中高速緩存(cache)的容量 ④優(yōu)化BIOS的設(shè)計(jì) A．①、③和④ B．①、②和③ C．①和④ D．②、③和④ 4． 下面是PC機(jī)常用的4種外設(shè)接口，其中鍵盤(pán)、鼠標(biāo)、數(shù)碼相機(jī)和移動(dòng)硬盤(pán)等均能連接的接口是( 4 ) A． RS-232 B． IEEE 5． 下列有關(guān)PC機(jī)外部設(shè)備的敘述中，錯(cuò)誤的是 （ 5 ） 。 A．掃描儀的工作過(guò)程主要基于光電轉(zhuǎn)換原理，分辨率是其重要性能指標(biāo)之一 B．制作3—5英寸的照片(圖片)，數(shù)碼相機(jī)的CCD像素必須在600萬(wàn)以上 C．集成顯卡(指集成在主板上的顯卡)的顯示控制器主要集成在芯片組中 D．存折和票據(jù)的打印，目前主要是采用針式打印機(jī) 6． 下列有關(guān)PC機(jī)輔助存儲(chǔ)器的敘述中，錯(cuò)誤的是( 6 ) 。 A．硬盤(pán)的盤(pán)片轉(zhuǎn)動(dòng)速度特別快，目前一般為每秒數(shù)千轉(zhuǎn) B. 近年來(lái)使用的串行ATA(SATA)接口硬盤(pán)，其傳輸速率比采用IDE接口的要快 C．目前移動(dòng)硬盤(pán)大多采用USB 2．0接口，其傳輸速率可達(dá)每秒數(shù)十兆字節(jié) D. 40倍速的CD-ROM驅(qū)動(dòng)器的速率可達(dá)6MB／s左右 7． 在下列有關(guān)商品軟件、共享軟件、自由軟件及其版權(quán)的敘述中，錯(cuò)誤的是 （ 7 ）。 A．通常用戶需要付費(fèi)才能得到商品軟件的合法使用權(quán) B．共享軟件是一種“買(mǎi)前免費(fèi)試用”的具有版權(quán)的軟件 C．自由軟件允許用戶隨意拷貝，但不允許修改其源代碼和自由傳播 D．軟件許可證確定了用戶對(duì)軟件的使用方式，擴(kuò)大了版權(quán)法給予用戶的權(quán)利 8． 下面有關(guān)Windows操作系統(tǒng)多任務(wù)處理的敘述中，正確的是 ( 8 ) 。 A．用戶如果只啟動(dòng)一個(gè)應(yīng)用程序工作(如使用Word寫(xiě)作)，則該程序自始至終獨(dú)占CPU B． 由于CPU具有多個(gè)執(zhí)行部件，所以操作系統(tǒng)才能同時(shí)進(jìn)行多個(gè)任務(wù)的處理 C．前臺(tái)任務(wù)和后臺(tái)任務(wù)都能得到CPU的響應(yīng) D． 處理器調(diào)度程序根據(jù)各個(gè)應(yīng)用程序運(yùn)行所需要的時(shí)間多少來(lái)確定時(shí)間片的長(zhǎng)短 9． 從算法需要占用的計(jì)算機(jī)資源角度分析其優(yōu)劣時(shí)，應(yīng)考慮的兩個(gè)主要方面是 （ 9 ）。 A．空間代價(jià)和時(shí)間代價(jià) · C．可讀性和開(kāi)放性 B． 正確性和簡(jiǎn)明性 D． 數(shù)據(jù)復(fù)雜性和程序復(fù)雜性 10．接入因特網(wǎng)的每臺(tái)計(jì)算機(jī)的IP地址 （ 10 ）。 A． 由與該計(jì)算機(jī)直接連接的交換機(jī)及其端口決定 B． 由該計(jì)算機(jī)中網(wǎng)卡的生產(chǎn)廠家設(shè)定 C． 由網(wǎng)絡(luò)管理員或因特網(wǎng)服務(wù)提供商(ISP)分配 D． 由用戶自定 11．以下關(guān)于局域網(wǎng)和廣域網(wǎng)的敘述中，正確的是 （ 11 ）。 A．廣域網(wǎng)只是比局域網(wǎng)覆蓋的地域廣，它們所采用的技術(shù)是完全相同的 B． 局域網(wǎng)中的每個(gè)節(jié)點(diǎn)都有一個(gè)惟一的物理地址，稱為介質(zhì)訪問(wèn)地址(MAC地址) C．現(xiàn)階段家庭用戶的PC機(jī)只能通過(guò)電話線接入網(wǎng)絡(luò) D．單位或個(gè)人組建的網(wǎng)絡(luò)都是局域網(wǎng)，國(guó)家或國(guó)際組織建設(shè)的網(wǎng)絡(luò)才是廣域網(wǎng) 12．目前在網(wǎng)絡(luò)互連中用得最廣泛的是TCP／IP協(xié)議。事實(shí)上，TCP／IP是一個(gè)協(xié)議系列，它已經(jīng)包含了100多個(gè)協(xié)議。在TCP／IP協(xié)議中，遠(yuǎn)程登錄使用的協(xié)議是( 12 ) 。 A．TELNET B．FTP C．HTTP D．UDP 13．關(guān)于電子郵件服務(wù)，下列敘述中錯(cuò)誤的是 ( 13 ) 。 A． 網(wǎng)絡(luò)中必須有郵件服務(wù)器用來(lái)運(yùn)行郵件服務(wù)器軟件 B． 用戶發(fā)出的郵件會(huì)暫時(shí)存放在郵件服務(wù)器中 C．用戶上網(wǎng)時(shí)可以向郵件服務(wù)器發(fā)出接收郵件的請(qǐng)求 D．發(fā)郵件者和收郵件者如果同時(shí)在線，則可不通過(guò)郵件服務(wù)器而直接通信 14·國(guó)際標(biāo)準(zhǔn)化組織(ISO)將世界各國(guó)和地區(qū)使用的主要文字符號(hào)進(jìn)行統(tǒng)一編碼的方案稱為 （ 14 ）。 A． UCS／Unicode C． GBK B． GB2312 D．GBl8030 15·存放一幅1024×768像素的未經(jīng)壓縮的真彩色(24位)圖像，大約需要多少字節(jié)的存儲(chǔ)空間?（ 15 ） A． 1024x768x B． 1024x768x3 D．1024x768x12 16·對(duì)帶寬為300—3400Hz的語(yǔ)音，若采樣頻率為8kHz、量化位數(shù)為8位且為單聲道，則未壓縮時(shí)的碼率約為( 16 )。 A.64kb／s B．64kB／s C．128kb／s D．128kB／s 17·彩色圖像所使用的顏色描述方法稱為顏色模型。在下列顏色模型中，主要用于彩色噴墨打印機(jī)的是( 17 ) 。 A·YUV B．HSB C．CMYK D．RGB 18·從信息處理的深度來(lái)區(qū)分，信息系統(tǒng)可分為業(yè)務(wù)信息處理系統(tǒng)、信息檢索系統(tǒng)、信息分析系統(tǒng)和專家系統(tǒng)。在下列相關(guān)敘述中，錯(cuò)誤的是 18 。 A．業(yè)務(wù)信息處理系統(tǒng)是采用計(jì)算機(jī)進(jìn)行日常業(yè)務(wù)處理的信息系統(tǒng) B· 信息檢索系統(tǒng)就是指因特網(wǎng)上提供的各種搜索引擎，可以供各類(lèi)用戶免費(fèi)使用 C． 決策支持系統(tǒng)是一種常見(jiàn)的信息分析系統(tǒng) D． 專家系統(tǒng)可模仿人類(lèi)專家的思維活動(dòng)，通過(guò)推理與判斷來(lái)求解問(wèn)題 19·在下列有關(guān)Microsoft Excel 2000(中文版)功能的敘述中，錯(cuò)誤的是 （ 19 ）。 A．可以將Excel工作簿或選定的工作表另存為網(wǎng)頁(yè)文件(．htm) B． 對(duì)數(shù)據(jù)清單進(jìn)行排序時(shí)，最多可以選擇5個(gè)關(guān)鍵字 C·通過(guò)設(shè)置，可以實(shí)現(xiàn)在某單元格中輸入數(shù)據(jù)后按回車(chē)鍵，光標(biāo)自動(dòng)移動(dòng)到上邊一單元格或左邊一單元格 。 D．在工作表中可以插入“藝術(shù)字” 20·在下列有關(guān)Microsoft FrontPage 2000(中文版)功能的敘述中，錯(cuò)誤的是 20 。 A．執(zhí)行菜單命令“新建”時(shí)，可以選擇是新建網(wǎng)頁(yè)還是新建站點(diǎn) B． 用戶可以對(duì)框架網(wǎng)頁(yè)的框架進(jìn)行拆分或刪除 C·如同Microsoft word中的表格，用戶可以在網(wǎng)頁(yè)中手繪表格或插入表格 D． 系統(tǒng)提供了“繪圖”工具欄，便于用戶在網(wǎng)頁(yè)中繪圖 第二部分Visual Basic程序設(shè)計(jì) 一、選擇題(用答題卡答題，答案依次填在21—30答題號(hào)內(nèi)) 21．下列關(guān)于某對(duì)象SetFocus與GotFocus的描述中，正確的是21 。 A． SetFocus是事件，GotFocus是方法 B．SetFocus和GotFocus都是事件 C．SetFocus和GotFocus都是方法D．SetFocus是方法，GotFocus是事件 22．Print方法可在_______上輸出數(shù)據(jù)。 ①窗體②文本框③圖片框④標(biāo)簽⑤列表框⑥立即窗口 A．①③⑥ B．⑦③⑤ C．①⑦⑤ D．③④⑥
23．?dāng)?shù)學(xué)表達(dá)： A．(x^5一Cos(29))／Sqr(e^X+In(Y))+5 B．(x^5一Cos(29))／(Sqr(Exp(x)+Log(Y))+5) C．(x^5一Cos(29*3．14159／180))／(Sqr(Exp(x)+Log(Y))+5) D．(x^5一Cos(29*3．14159／180))／(Sqr(e^X+Log(Y))+5) 24．以下有關(guān)數(shù)組參數(shù)的說(shuō)明中，正確的是24。 A．在過(guò)程中也可用Dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行說(shuō)明 B．動(dòng)態(tài)數(shù)組作為實(shí)參時(shí)，可用ReDim語(yǔ)句在過(guò)程中改變對(duì)應(yīng)形參數(shù)組的維界 24.下列有關(guān)數(shù)組參數(shù)的說(shuō)明正確的是 (24) 。 A.在過(guò)程中也可用Dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行說(shuō)明 B.動(dòng)態(tài)數(shù)組作為實(shí)參時(shí)，可用ReDim語(yǔ)句在過(guò)程中改變對(duì)應(yīng)形參數(shù)組的維界 C.調(diào)用過(guò)程時(shí)，數(shù)組名不能作為實(shí)參 D.數(shù)組可以按地址傳遞也可以按值傳遞 25.下列關(guān)于子過(guò)程或函數(shù)的定義正確的是 (25) A.Sub fl(n As String*1) B.Sub fl(n As Integer)As Integer C.Function fl(f1 As Integer) As Integer D.Function fl(ByVal n As Integer) 26.下列關(guān)于數(shù)值常量的說(shuō)法錯(cuò)誤的是 (26) A.八進(jìn)制數(shù)的表示方法是在數(shù)字前面加&O B.十六進(jìn)制數(shù)的表示方法是在數(shù)字前面加&H C.在浮點(diǎn)數(shù)值中使用D來(lái)分隔尾數(shù)和指數(shù)時(shí)，系統(tǒng)將把該數(shù)值作為單精度型數(shù)處理 D.32768是合法的數(shù)值常量 ’ 27.下列有關(guān)對(duì)象的敘述正確的是( 27 ) A.對(duì)象由屬性、事件和方法構(gòu)成 B.對(duì)象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運(yùn)行時(shí)用賦值語(yǔ)句設(shè)置 C.對(duì)象的事件一定就是由VB預(yù)先設(shè)置好的人工干預(yù)的動(dòng)作 D.對(duì)象的方法是對(duì)象響應(yīng)某個(gè)事件后所執(zhí)行的一段程序代碼 28.已知X<Y，A>B，則下列表達(dá)式中，結(jié)果為True的是( 28 ) A.Sgn(x-Y)+Sgn(A-B)=-1 B.Sgn(X-Y)+Sgn(A-B)=-2 C.Sgn(Y-X)+Sgn(A-B)=2 D.Sgn(Y-X)+Sgn(A-B)=0 29.下列能夠正確表示條件"x≤Y<Z"的VB邏輯表達(dá)式是 ( 29 ) A.X≤Y<Z B.X<=Y And Y<Z C.X≤Y Or Y<Z D.X<=Y<Z 30.下列有關(guān)數(shù)組的說(shuō)法正確的是( 30 ) A.數(shù)組的維下界不可以是負(fù)數(shù) B.模塊通用聲明處有Option Base 1，則模塊中數(shù)組定義語(yǔ)句Dim A(O To 5)會(huì)與之沖突 C.模塊通用聲明處有Option Base l，模塊中有Dim A(O To 5)，則A數(shù)組第一維維下界為0 D.模塊通用聲明處有Option Base 1，模塊中有Dim A(O To 5)，則A數(shù)組第一維維下界為1 二、填空題 ， ’ 1.執(zhí)行下面的程序，單擊Commandl，則窗體上顯示的第一行是 ( 1 ) ,第三行是 ( 2 ) , 最后一行是( 3 ) Option Explicit Private Sub Command1_Click() Dim X As Integer，Y As Integer X=12:Y=0 Do While X>0 . If X Mod 4=0 Then Y=Y+X Else y=Y-X End If X=X-3 Print X，Y End Sub . ， 2.執(zhí)行下面的程序,單擊Commandl，窗體上顯示的第一行是(4) ，第二行是 (5) ，第 三行是( 6 ) Option Explicit . Option Base 1 Private Sub Command1_Click() Dim sa(3，3)As String*1，i As Integer，j As Integer，k As Integer k=1 For i=1 To 3 For j=1 To 3 sa(i，j)=Chr(Asc("A")+(k+i+j) Mod 26) Print sa(i，j);" "； k=k+3 Next J 、 Next i End Sub ， 3.執(zhí)行下面的程序，單擊Commandl，在窗體上顯示的變量b的值為:( 7 )，變量c的值為 ( 8 ) ，變量z的值為( 9 ) Option Explicit Private Sub Command1_Click() Dim b As Integer，C As Integer，z As Integer b=2 C=1 Z=fun(b，fun(b+1，c))+b-c+1 Print b，c，z End Sub Private Function fun(X As Integer，ByVal Y As Integer)As Integer X=X-Y y=X+Y+2 fun=Y—X End Function 4.執(zhí)行下面的程序，單擊Commandl，輸出的變量i的值是( 10 ) ，變量j的值是 ( 11 ) ， 變量k的值是( 12 ) Option Explicit Private Sub Command1_Click() Dim i As Integer，j As Integer Dim k As Integer i=10 j=4 k=Funk(i,j) Print i，j，k 、 End Sub • Private Function Funk(ByVal A As Integer，B As Integer) As Integer A=A+B B=B-2 . if B=0 Or B=1 Then Funk=1 Else Funk=A+Funk(A，B) End If End Function 5.執(zhí)行下面的程序，單擊Commandl，在窗體上顯示的第一行的內(nèi)容是( 13 ) ，第二行的內(nèi) 容是( 14 ) ，第三行的內(nèi)容是( 15 ) Option Explicit Private Sub Command1_Click() Dim n As Integer，i As Integer n=2 For i=7 To 1 Step -1 Call sub2(i，n) Print i,n Next i End Sub Private Sub sub2(x As Integer，y As Integer) Static n As Integer Dim i As Integer For i=2 To 1 Step -1 n=n+x x=x-1 Next i Y=Y+n End Sub
6.用以下公式求sin(x)的值。當(dāng)級(jí)數(shù)通項(xiàng)的絕對(duì)值小于eps=10^-7時(shí)停止計(jì)算，x的值由鍵盤(pán) 輸入。
請(qǐng)完善如下程序: Option Explicit Private Sub Form_Click() Dim x As Double，t As Double，n As Integer，sum As Double Const eps=0.0000001 x=Val(InputBox("請(qǐng)輸入x:")) ( 16 ) sum=t n=1 Do Until ( 17 ) t=一t t= ( 18 ) sum=sum+t n=n+1 Loop 、 Print "Sin(";x;")=";Format(sum,"0.000") End Sub
7.下面程序的功能是隨機(jī)生成小于100的諸素?cái)?shù)的數(shù)組,程序界面參見(jiàn)下圖 Option Explicit Private Sub Command1_Click() Dim P()As Integer，i As Integer，n as integer Dim st As String，k As Integer Randomize k=InputBox("元素個(gè)數(shù):"，，20) ReDim P(k) Do n=Int(Rnd*90)+10 if ( 19 )Then i=i+1 P(i)=n End if For i=1 To UBound(P) st=st & Str(P(i)) if i Mod 10=0 Then st=st & Vbcrlf Next i Text1=st End Sub Private Function prime(n As Integer) As Boolean Dim i As Integer prime=True For i=2 To Sqr(n) If n Mod i=0 Then ( 21 ) Exit For End If Next i End Function 8.下面程序的功能是將給定整數(shù)N表示成若干個(gè)質(zhì)數(shù)因子相乘的形式(分解質(zhì)因數(shù))。程序 界面參見(jiàn)下圖。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim n As Integer，a() As Integer Dim st As String，i As Integer n=Text1 Call fenjie(n，a) st=CStr(n) & "=" For i=1 To UBound(a)-1 st=st & a(i) & "*' Next i Text2=st & a(i) End Sub Private Sub fenjie(( 22 ) ) Dim k As Integer，i As Integer k=2 Do If n Mod k=0 Then i=i+1 . ReDim Preserve a(i) a(i)=k (23) Else ( 24 ) End If End Sub
9.本程序的功能是把由4個(gè)用"."分隔的十進(jìn)制數(shù)表示的IP地址轉(zhuǎn)換為由32位二進(jìn)制數(shù)組成 的IP地址。例如十進(jìn)制表示的IP地址為202.119.191.1，其中每個(gè)十進(jìn)制數(shù)對(duì)應(yīng)一個(gè)8位的二進(jìn)制數(shù)，合起來(lái)構(gòu)成一個(gè)32位二進(jìn)制的IP地址11001010011101111011111100000001。過(guò)程Tiqu用于提取十進(jìn)制IP地址中每個(gè)用"."分割的十進(jìn)制數(shù)；過(guò)程Convert用于將十進(jìn)制數(shù)轉(zhuǎn)換為相應(yīng)的8位二進(jìn)制數(shù)。程序界面參見(jiàn)下圖。 Option Explicit Private Sub Command1_Click() Dim strl As String，str2 As String strl=Text1.Text Call Tiqu(strl，a) For i=1 Tn 4 If a(i)<0 Or a(i)>255 Then MsgBox("IP地址錯(cuò)誤!") Exit Sub j Else ( 26 ) End If Next i Text2.Text=str2 End Sub Private Sub Tiqu(st As String，a()As Integer) Dim n As Integer，k As Integer，S As String，d As String*1，i As Integer n=Len(st):k=0:s="" For i=1 To n (27) If d="." Then k=k+1 a(k)=Val(S) ( 28 ) Else s=S & d End If、 Next i a(4)=s End Sub
Private Function convert(ByVal n As Integer)As String Dim b As Integer，i As Integer，s As String Do While n>0 ‘ b=n Mod 2 . n=n\2 ( 29 ) For i=1 To 8-Len(s) . s="0" & s Next i ( 30 ) Fnd FunCtion 2008年(春)筆試試卷 |
|