|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2009秋季江蘇二級(jí)VB等考試題 |
江蘇計(jì)算機(jī)等級(jí)考試2009秋VB考試真題 第一部分:計(jì)算機(jī)基礎(chǔ)知識(shí) 1.下列關(guān)于個(gè)人移動(dòng)通信的敘述中,錯(cuò)誤的是____ A.第1代個(gè)人移動(dòng)通信(簡(jiǎn)稱 B.目前廣泛使用的GSM手機(jī)采用的通信技術(shù)屬于第2代移動(dòng)通信技術(shù)(簡(jiǎn)稱 C.第3代移動(dòng)通信技術(shù)(簡(jiǎn)稱 D 2.在下列有關(guān)集成電路的敘述中,正確的是2。 A.現(xiàn)代集成電路所使用的半導(dǎo)體材料都是硅 B.所有的集成電路都是數(shù)字集成電路 C.Moore定律認(rèn)為單塊集成電路的集成度平均每年翻一番 D.Intel公司微處理器產(chǎn)品Core 2 Duo,其集成度已高達(dá)數(shù)千萬(wàn)個(gè)電子元件 3.與十六進(jìn)制數(shù)AB等值的八進(jìn)制數(shù)是3 。 A. 253 B 4.在下列有關(guān)PC機(jī)CPU的敘述中,錯(cuò)誤的是4。 A.CPU中包含幾十個(gè)甚至上百個(gè)寄存器,用來(lái)臨時(shí)存放數(shù)據(jù)、指令和控制信息 B.所有PC機(jī)的CPU都具有相同的指令系統(tǒng),因而PC機(jī)可使用相同的軟件 C.一臺(tái)計(jì)算機(jī)至少包含1個(gè)CPU,也可以包含2個(gè)、4個(gè)、8個(gè)甚至更多個(gè)CPU D.Intel公司是國(guó)際上研制和生產(chǎn)CPU的主要公司,我國(guó)也能生產(chǎn)CPU 5.在下列有關(guān)PC機(jī)主板上部件的敘述中,錯(cuò)誤的是5 。 A.BIOS保存在主板上的一個(gè)閃存中,其內(nèi)容在關(guān)機(jī)后通常不會(huì)改變 B.CMOS中保存有用戶設(shè)置的開(kāi)機(jī)口令,關(guān)機(jī)后主板上的電池繼續(xù)給CMOS供電 C.啟動(dòng)CMOS設(shè)置程序可以重新設(shè)置CMOS中的數(shù)據(jù),該程序是BIOS的組成部分 D.網(wǎng)卡通常集成在主板上,由主板上獨(dú)立的IC實(shí)現(xiàn)其功能,與芯片組無(wú)關(guān) 6.從PC機(jī)存儲(chǔ)器的層次結(jié)構(gòu)來(lái)看,下列存儲(chǔ)器中存取速度最快的是6 。 A.Cache存儲(chǔ)器 B.RAM和ROM C.寄存器 D.硬盤(pán)和優(yōu)盤(pán) 7.在下列4種PC機(jī)常用I/O接口中,數(shù)據(jù)傳輸速率最高的是7。 A.PS/2 B.SATA C.IEEE-1394b D.USB 2.0 8.在下列有關(guān)I/O操作、I/O總線和I/O接口的敘述中,錯(cuò)誤的是8。 A.I/O操作的任務(wù)是在I/O設(shè)備與內(nèi)存的指定區(qū)域之間傳送信息 B.I/O總線傳送的只能是數(shù)據(jù)信號(hào),它不能傳送控制信號(hào)和地址信號(hào) C.不同類型的I/O接口,其插頭/插座以及相應(yīng)的通信規(guī)程和電氣特性通常各不相同 D.并行總線的數(shù)據(jù)傳輸速率不一定比串行總線高 9.在下列有關(guān)PC機(jī)I/0設(shè)備的敘述中,錯(cuò)誤的是9。 A.數(shù)碼相機(jī)的成像芯片可以為CCD器件或CMOS芯片,目前大多數(shù)用CCD器件 B.平板式掃描儀的分辨率通常遠(yuǎn)遠(yuǎn)高于膠片掃描儀和滾筒式掃描儀 C.常見(jiàn)的寬屏液晶顯示器的寬度與高度之比為16:9(或16:10) D.目前在銀行、超市等商業(yè)部門(mén)一般采用針式打印機(jī)來(lái)打印存折和票據(jù) 10.在下列有關(guān)計(jì)算機(jī)軟件的敘述中,錯(cuò)誤的是10 。 A.程序設(shè)計(jì)語(yǔ)言處理系統(tǒng)和數(shù)據(jù)庫(kù)管理系統(tǒng)被歸類為系統(tǒng)軟件 B.共享軟件是一種具有版權(quán)的軟件,它允許用戶買(mǎi)前免費(fèi)試用 C.機(jī)器語(yǔ)言和匯編語(yǔ)言與特定的計(jì)算機(jī)類型有關(guān),取決于CPU D.目前PC機(jī)只能使用Windows系列操作系統(tǒng),均不能使用UNIX和Linux操作系統(tǒng) 11.在下列常用的PC機(jī)軟件中,編輯的文檔(內(nèi)容)能直接保存為圖片類型(例如JPEG文件類型)的是11 。 A.Microsoft Word B.Microsoft Excel C.Microsoft PowerPoint D.Microsoft FrontPage 12.在下列關(guān)于以太網(wǎng)(局域網(wǎng))的敘述中,錯(cuò)誤的是12。 A.在共享式以太網(wǎng)中,任何時(shí)間只允許一對(duì)計(jì)算機(jī)進(jìn)行通信 B.在交換式以太網(wǎng)中,每臺(tái)計(jì)算機(jī)均獨(dú)享相同的帶寬,其帶寬僅由交換機(jī)決定 c.無(wú)論是共享式以太網(wǎng)還是交換式以太網(wǎng),網(wǎng)絡(luò)中的所有計(jì)算機(jī)都要安裝以太網(wǎng)網(wǎng)卡 D.無(wú)論是共享式以太網(wǎng)還是交換式以太網(wǎng),它們的數(shù)據(jù)幀和MAC地址格式均相同 13.連接在因特網(wǎng)上的每一臺(tái)主機(jī)都有一個(gè)IP地址。下面不能作為IP地址的是13 。 A.211.256.49.68 B. 14.為了將異構(gòu)的計(jì)算機(jī)網(wǎng)絡(luò)互相連接起來(lái),必須使用的網(wǎng)絡(luò)設(shè)備是14 。 A.調(diào)制解調(diào)器 B.以太網(wǎng)集線器 c.以太網(wǎng)交換機(jī) D.路由器 15.下列網(wǎng)絡(luò)協(xié)議中,與發(fā)送電子郵件有關(guān)的是15 。 A.Http B.FTP C.SMTP D.TELNET 16.在下列有關(guān)字符集及其編碼的敘述中,錯(cuò)誤的是16 。 A.基本的ASCII字符集共有128個(gè)字符,每個(gè)字符使用7個(gè)二進(jìn)位進(jìn)行編碼 B.GB2312字符集中收錄了6千多個(gè)漢字,每個(gè)字符在機(jī)內(nèi)通常使用雙字節(jié)編碼 C.GBK字符集中的字符也采用雙字節(jié)編碼,且該字符集收錄了部分繁體漢字 D.GB18030字符集中所有的字符均采用4字節(jié)編碼,因此該字符集的代碼空間很大 17.目前數(shù)碼相機(jī)拍攝的照片在保存時(shí)通常采用的文件類型是17 。 A.BMP B.GIF C.JPEG D.TIF 18.MP3是數(shù)字波形聲音的一種壓縮編碼文件格式,它采用的壓縮編碼標(biāo)準(zhǔn)屬于18 。 A.MPEG-1 B.MPEG 19.使用Macromedia公司的Flash軟件制作的動(dòng)畫(huà)是一種矢量圖形,在保存為動(dòng)畫(huà)文件 時(shí)其文件擴(kuò)展名通常為19 。 A.GIF B.SWF C.AVI D.MPG 。 20.在計(jì)算機(jī)應(yīng)用中,CAD和CAM是典型的信息系統(tǒng)。它們屬于20 。 A.管理業(yè)務(wù)系統(tǒng) B.輔助技術(shù)系統(tǒng) c.信息檢索系統(tǒng) D.信息分析系統(tǒng) 第二部分:vb程序設(shè)計(jì) 21.要將焦點(diǎn)設(shè)置在某個(gè)控件上,以下四個(gè)選項(xiàng)中正確的是________ A.只能使用鼠標(biāo)直接點(diǎn)擊該控件 B.只能使用Tab鍵將焦點(diǎn)移到該控件 C.只能在程序中調(diào)用該控件的setfocus方法 D.A、B、C三選項(xiàng)中涉及的方法均可用 22.在下列屬性中,屬于CommandButton控件、ListBox控件共有的是22。 A.Caption、Text B.Visible、Font C.Caption、Visible D.List、Visible 23.數(shù)學(xué)表達(dá)式 A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B.(Sin(30* C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y)) D.(Sin(30*3.14159/180)+Sqr(Log(x)+Y))/(2*3.14159+Exp(x+y)) 24.下列的關(guān)系表達(dá)式中,運(yùn)算結(jié)果為True的是24。 A.CInt(1.5)=Int(1.5) B.Fix(1.5)=Int(1.5) C.Fix(-1.5)=CInt(-1.5) D.Fix(-1.5)=Int(-1.5) 25.下列有關(guān)數(shù)組的敘述中,不正確的是25 。 ①在過(guò)程中用ReDim語(yǔ)句定義的動(dòng)態(tài)數(shù)組,其下標(biāo)的上下界可以是變量 ②數(shù)組作為形式參數(shù)時(shí),傳遞的是每個(gè)數(shù)組元素的值 ③在窗體模塊的通用聲明處可以用Public說(shuō)明一個(gè)全局?jǐn)?shù)組 ④數(shù)組定義語(yǔ)句中可以用負(fù)數(shù)或小數(shù)來(lái)指定某一維的維下界或維上界的值 A.②③ B.①③④ c.①②③④ D.③④ 26.以下關(guān)于文件的敘述中,錯(cuò)誤的是26 。 A•用Output模式打開(kāi)一個(gè)順序文件,即使不對(duì)它進(jìn)行寫(xiě)操作,原來(lái)的內(nèi)容也被清除 B.可以用Print#語(yǔ)句或Write#語(yǔ)句將數(shù)據(jù)寫(xiě)到順序文件中 C•若以Output、Append、Random、Binary方式打開(kāi)一個(gè)不存在的文件,系統(tǒng)會(huì)出錯(cuò) D.順序文件或隨機(jī)文件都可以用二進(jìn)制訪問(wèn)模式打開(kāi) 27.下列有關(guān)控件數(shù)組的說(shuō)法中,錯(cuò)誤的是27 。 A•控件數(shù)組由一組具有相同名稱和相同類型的控件組成,不同類型的控件無(wú)法組成控件數(shù)組 B.控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)置值 C.控件數(shù)組中的所有控件共享同一個(gè)事件過(guò)程 D.控件數(shù)組中每個(gè)元素的下標(biāo)由控件的Index屬性指定 28.以下Case語(yǔ)句中,能正確描述Y的絕對(duì)值大于6的是28。 A.Case Abs(Y)>6 B.Case -6 To 6 C.Case Not (-6 To 6) D.Case Is<-6,Is>6 29•若在模塊中用Private Function Fun(A As Single,B As Integer)As Integer定義了函數(shù)Fun。調(diào)用函數(shù)Fun的過(guò)程中定義了I、J和K三個(gè)Integer型變量,則下列語(yǔ)句中不能正確調(diào)用函數(shù)Fun的語(yǔ)句是29。 A.Fun 3.14,J B.Call Fun(I,365) C.Fun (I),(J) D.K=Fun(" 30•若需要在同一窗體內(nèi)安排兩組相互獨(dú)立的單選按鈕(OptionButt.Dn),可使用30控件做容器將它們分開(kāi)。 ①TextBox ②PictureBox ③Image ④Frame •A.①或② B.②或③ c.②或④ D.③或④ 二、填空題(請(qǐng)將答案填寫(xiě)在答題紙的相應(yīng)答題號(hào)內(nèi),每個(gè)答案只占一行) 1.執(zhí)行下面程序,單擊Commandl,則數(shù)組元素a(1,2)的數(shù)值是 ( 1 ),a(2,3)的數(shù)值 是(2),a(4,3)的數(shù)值是(3)。 Option Explicit Private Sub Commandl_Click() Dim a(4,4)As Integer,i As Integer Dim j As Integer,k As Integer,n As Integer n=6：k=2 Do For i=1 To 4 For j=1 To 4 If i+j=k Then a(i,j)=n n=n-1 End If Next j Next i k=k+1 Loop Until k>8 For i=1 To 4 For j=1 To 4 print Right(“ “ & a(i,j),3); Next j Print Next i End Sub 2.執(zhí)行下面程序,單擊Commandl,窗體上顯示的第一行是( 4 ) ,第三行是( 5 ) , 最后一行是(6) 。 . Option Explicit Private Sub Commandl_Click() Dim i As Integer,s As Integer For i=1 To 9 Step 3 . s=fun((i))+fun(i) Print s . Next i End Sub Private Function fun(m As Integer)As Integer Static a As Integer If m Mod 2=0 then a=a+1 • m=m+1 Else a=a+2 m=m+2 End If fun=a+m Print fun End Function 3.運(yùn)行下面的程序,單擊Commandl,窗體上顯示的第一行是 ( 7 ) ,第二行( 8 ) ,最后一行是( 9 ) 。 Option Explicit Private Sub Commandl_Click() Dim a As Integer Dim b As Integer a=1 b=2 Print fun((a+2),fun(2*a,b)) Print a;b End Sub Private Function fun(x As Integer,ByVal y As Integer)As Integer x=x+2 y=x-y+3 fun=x+y Print x ;y ;fun End Function 4.執(zhí)行下面的程序,單擊Commandl,窗體上顯示的第二行是 (10) ,第三行(11) ,第四行是(12) 。 Option Explicit Private Sub Command1_Click() Dim N As Integer,K As Integer N=36 : K=5 Print Trans(N,K) End Sub Private Function Trans(N As Integer,K As Integer)As String Dim R As Integer If N<>0 Then R=N Mod K If R<10 Then Trans=Trans(N\K,K) & R Print N Else Trans=Trans(N\K,K) & Chr(55+R) End If End If End Function 5.運(yùn)行下列程序,單擊Commandl,窗體上顯示的第一行內(nèi)容是(13) ,第二行的內(nèi)容 是(14) ,第三行的內(nèi)容是(15) 。 Option Explicit . Private Sub Commandl_Click() Dim s As String,k As Integer Dim key As String s=” key=” k=1 .Do Call encrypt(s,key) . Print s s=Right(s,k) & Left(s,4-k) & Mid(s,4,2) k=k+1 Loop Until k>3 End Sub Private Sub encrypt(a As String,b As String) Dim sp As String,n As Integer,i As Integer sp=" n=Len(b)-Len(a) If n>0 Then a=Right(sp & a,Len(b)) For i=1 To Len(b) If Mid(a,i,1)=Mid(b,i,1)Then Mid(a,i,1)=” Else Mid(a,i,1)=” End If Next i End Sub . 6.下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、13/21、……前若干項(xiàng)的和,項(xiàng)數(shù)由文本框輸入。試完善程序使其達(dá)到功能要求。 Option Explicit Private Sub Calculate_Click() Dim n As Integer,al As Integer,a2 As Integer Dim i As Integer,t As Single,S As Single n=Val(Textl.Text) al=1 . a2=2 For i=1 To n ( 16 ) s=s+t a2=al+a2 ( 17 ) Next i Text2=S End Sub 7.下面程序的功能是：從一組以16進(jìn)制數(shù)形式表示的若干個(gè)字節(jié)數(shù)據(jù)中,找出其中的漢 字代碼(若相鄰的兩個(gè)字節(jié)中,每個(gè)字節(jié)的最高一位的數(shù)值都大于或等于8,則這兩個(gè)字節(jié)為 一個(gè)漢字的代碼)。試完善程序使其達(dá)到功能要求。 Private Sub Commandl_Click() Dim st()As String,P As String,k As Integer Dim n As Integer,i As Integer P=Trim(Textl) Do n=InStr(P,” ”) If (18) Then k=k+1 ReDim Preserve st(k) st(k)=Left(p,n-1) p=Right(p,Len(p)-n) Else ReDim Preserve st(k+1) ( 19 ) End If Loop Until n=0 For i=1 To UBound(st)-1 If chinese(st(i),st(i+1)) Then Listl.AddItem st(i) & ”,” & st(i+1) ( 20 ) End If Next i End Sub Private Function chinese(p As String,q As String)As Boolean Dim st As String,k As Integer,n As Integer Dim i As Integer st=”0123456789ABCDEF” For i=1 To Len(st) If Left(p,1)=Mid(st,i,1) Then k=i-1 (21) Next i If k>=8 And n>=8 Then chinese=True End Functinn 8.本程序的功能是求出n～m之間所有的可分解整數(shù)。所謂可分解整數(shù)是指具有以 下性質(zhì)的數(shù),它的各位數(shù)字之和等于其所有質(zhì)因子各位數(shù)字之和(注意：素?cái)?shù)不是可分 解整數(shù))。例如整數(shù)121,各位數(shù)字之和是4,其質(zhì)因子是11、11,質(zhì)因子的各位數(shù)字之和 也是4(1+1+1+1=4),所以121是可分解整數(shù)。試完善程序使其達(dá)到功能要求。 Option Explicit .Private Sub Commandl_Click() Dim n As Integer,m As Integer,k As Integer n=Textl nl=Text2 For k=n To m If sum1(k)=sum2(k)Then Listl.AddItem k End If Next k End Sub Private Function suml( 22 ) As Integer ‘求一個(gè)數(shù)的各位數(shù)字之和 Do suml= (23) n=n\10 Loop Until n=0 End Function Private Function sum2(ByVal n As Integer) As Integer ‘求質(zhì)因子及其各位數(shù)字之和 Dim k As Integer,an As Integer (24) nn=n Do If n Mod k=0 Then sum2=sum2+suml(k) n=n\k Else (25) End If Loop Until k>nn/2 End FunCtion 9.下面程序的功能是：將a、b兩個(gè)數(shù)組的數(shù)據(jù)按從大到小的順序合并到數(shù)組c中。a,b兩 個(gè)數(shù)組的數(shù)據(jù)分別從文本框A和文本框B輸入,數(shù)據(jù)以空格分隔。合并結(jié)果在文本框C中輸 出。試完善程序使其達(dá)到功能要求。 Option Explicit Option Base 1 Private Sub Commandl_Click() Dim a()As Integer,b()As Integer,c()As Integer Dim i As Integer,st As String st=Trim(Textl) Call load_a(st,a) st=Trim(Text2) Call load_a(st,b) ReDim c(1) (26) for i=2 To UBound(a) Call change(a(i),c) Next i For i=1 To UBound(b) Call change(b(i),c) Next i For i=1 To UBound(C) Text3=Text3 & Str(c(i)) Next i End Sub Private Sub load_a(s As String,a()As Integer) ‘將文本框中數(shù)據(jù)存入數(shù)組 Dim i As Integer,k As Integer,P As String,q As String*1 For i=1 To Len(s) q=Mid(s,i,1) If q>=” (27) Else If p<>”” Then k=k+1 ReDim Preserve a(k) a(k)=Val(p) (28) End If Next i If p<>”” Then ReDim Preserve a(k+1) a(k+1)=P End If End Sub Private Sub change(n As Integer,c()As Integer) ’插入排序 Dim i As Integer,j As Integer ReDim Preserve C(UBound(c)+1) For i=1 To UBound(c)-1 If n>c(i)Then For j=UBound(c) to i+1 Step -1 c(j)=c(j-1) Next j (29) End If Next i (30) End Sub 參考答案 一、選擇題 1.A 2.D 3.A 4.B 5.D 6.C 7.B 8.B 9.B 10.D 11.C 12.B 13.A 14.D 15.C 16.D 17.C 18.A 19.B 20.B 21.D 22.B 23.D 24.B 25.A 26.C 27.B 28.D 29.B 30.C 二、填空題 (1)15 (2)9 (3)2 (4)5 (5)12 (6)25 (7)4 5 9 (8)5 -1 4 (9)1 2 (10)7 (11)36 (12)121 (13)101101 (14)001110 (15)011011 (16)t=al/a2 (17)al=a2-al (18)n<>0 或Len(p)>2或Len(p)<>2 (19)st(k+1)=P (20)i=i+1 (21)If Left(q,1)=Mid(st,i,1)Then n=i-1 (22)ByVal n As Integer (23)suml+n Mod 10 (24)k=2 (25)k=k+1 (26)c(1)=a(1) (27)p=p & Mid(s,i,1) (28)P=”” (29)Exit For (30)c(i)=n |