2010年秋季江蘇省計算機等級考試VB計算機基礎知識和應用能力等級考試二級試卷試卷語種:VB語言說明：1本試卷包括計算機基礎知識部分和程序設計部分，考試時間共12 0分鐘；2本試卷滿分為60分，分選擇題和填空題，試卷不分A、B類型；3計算機基礎知識部分全部是選擇題(20分)，程序設計部分分為選擇題(1 0分)和填空題(30分)兩種；4選擇題用答題卡答題。每一項有A、B、C、D四個可供選擇的答案，請選擇其中一個你認為正確的答案，用HB鉛筆涂寫在答題卡的相應答題號內。每選對一項得1分，不選或選錯不得分；5填空題用答題紙答題。請將答案用藍、黑色鋼筆或圓珠筆填寫在答題紙的相應答題號內，每個答案只占一行，不得換行。每填對一個答案得1分，不填或填錯不得分；6請認真填寫并仔細核對答題卡和答題紙上的學校名稱、準考證號和姓名是否填寫正確。7考試結束時將試卷、答題卡和答題紙放在桌上，不得帶走。待監考人員收畢清點后，方可離場。第一部分計算機基礎知識1.微電子技術是信息技術領域中的關鍵技術,它以集成電路為核心.下列有關集成電路的敘述中,錯誤的是_(1)_A. 現代集成電路使用的半導體材料只能是硅(Si),不能使用其它任何半導體材料B. 集成度是指集成電路包含的電子元件數目,可分為SSI、MSI、VLSI等C. Moore定律指出,單塊集成電路的集成度平均18-24個月翻一番D. 我國第二代身份證中嵌入了集成電路芯片,可以實現電子防偽和數字管理功能2. 數據傳輸速率是數據通信中重要的性能指標。Gb/s是數據傳輸速率的計量單位之一,其正確含義是_(2)_ 。A.每秒兆位B.每秒千兆位C.每秒百兆位D.每秒百萬位3. 所謂變號操作是指將一個整數變成絕對值相同但符號相反的另一個整數。假設使用補碼表示的8位整數x=10010101,則經過變號操作后結果為_(3)_.A.01101010 B.00010101 C.11101010 D.011010114. 下列有關PC機主板的敘述中,錯誤的是_(4)_ 。A. 主板的物理尺寸沒有標準,各廠家均可自行定義B. 主板上包含芯片組,它是PC機各組成部分相互連接和通信的樞紐C. 主板上包含BIOS和CMOS芯片D. 主板上包含CPU插座、內存條插槽及其它類型的插槽5. 下列有關PC機中央處理器(CPU)和內存(內存條)的敘述中,正確的是_(5)_ .A.PC機所采用的CPU都是Intel公司生產的Pentium系列芯片,其它廠商生產的CPU都與之不兼容B.目前已有雙核的微處理器(例如Core 2 Duo),但還沒有四核的微處理器C. 通常來說,DRAM的速度比SRAM的存取速度慢D. 一般來說,一個內存條上僅有一個DRAM或SRAM芯片6. 下列有關PC機I/O總線與I/O接口的敘述中,錯誤的是_(6)_ .A. 目前PC機中協調與管理總線操作的總線控制器包含在主板上的芯片組中B. 總線最重要的性能是數據傳輸速率,其單位通常為MB/s或GB/s2010秋江蘇計算機二級VB考試真題頁碼，1/7/Html/exam_twoVB/0104173447806.html 2011/10/7C. SATA接口的數據傳輸速率通常低于USB 2.0的數據傳輸速率D. USB連接器有4個引腳,其中一個引腳連接+5V電源7. 下列有關PC機常用I/O設備的敘述中,錯誤的是_(7)_。A. 目前臺式機鍵盤通常有一百零幾個按鍵,筆記本電腦的鍵盤有八十幾個按鍵B. 目前流行的鼠標是光電鼠標,其與主機的接口有PS/2與USB兩種C. 寬屏LCD顯示器的寬高比為16：9或16：10D. 打印速度是打印機的重要性能指標,速度單位通常為dpi8. 下列有關PC機外存儲器的敘述中,錯誤的是_(8)_ 。A. 目前硬盤的盤片大多為3.5、2.5或1.8英寸,一個硬盤中可有一個或多個盤片B. 目前有些u盤可以模擬硬盤和光盤存儲器啟動操作系統C. 目前光盤存儲器主要分為CD、DVD和BD三種,它們均采用紅外激光進行讀寫D. 目前光驅的速率通常用多少倍速表示9. 下列有關計算機軟件的敘述中,錯誤的是_(9)_.A. 軟件一般是指程序及其相關的數據和文檔資料B. 從軟件的用途考慮,軟件可以分為系統軟件和應用軟件,主要的系統軟件有操作系統、語言處理系統和數據庫管理系統等。C. 從軟件的權益來考慮,軟件可以分為商品軟件、共享軟件和自由軟件,共享軟件和自由軟件均為無版權的免費軟件D.Linux是一種系統軟件、自由軟件10.到目前以止,Windows系列操作系統已推出多個版本。在下列版本中,最新的Windows版本是_(10)_A. Windows7 B. Windows Me C. Windows XP D. Windows Vista11.下列有關Windows XP操作系統功能的敘述中,錯誤的是_(11)_.A. 系統通過時間片”輪轉策略支持多任務處理B. 系統利用SPOOLing技術進行存儲管理C. 在設備管理中引入了緩沖技術,以減少I/O操作的等待時間D. 系統支持PnP功能,并按ACPI標準進行電源管理12.在因特網中某臺主機的IP地址為,子網掩碼為,那么該主機的主機號為_(12)_ 。A. 20 B. 25 C. 30 D. 813.局域網中需要傳輸的數據必須預先組織成若干數據幀,每一數據幀的格式如下圖所示：上圖中最末部分?”表示的是_(13)_ 。A.協議信息B.校驗信息C.冗余信息D.結束標志14.目前網絡用戶接入因特網有多種方式,例如ADSL、HFC等。通過HFC接入因特網時采用的網絡是_(14)_。A. 有線電話網B. 有線電視網C. 無線局域網D. 移動電話網15.下列網絡協議中,直接與電子郵件傳輸相關的網絡協議是_(15)_。A.FTP B.SMTP C.TELNET D.NNTP16.下列有關計算機中文本與文本處理的敘述中,錯誤的是_(16)_A. 西文字符主要是采用ASCII字符集,基本ASCII字符集共有256個字符B. 我國最早采用的漢字字符集是GB2312,包含6000多個漢字和若干個非漢字字符C. 無論采用何種方式輸入漢字,在計算機中保存時均采用統一的漢字內碼D. 簡單文本和豐富格式文本中字符信息的表示相同,區別在于格式信息的表示17.彩色圖像所使用的顏色描述方法稱為顏色模型(即顏色空間)。下列四種顏色模型中,彩色噴墨打印機使用的是_(17)_.A. RGB B. HSB C. YUV D. CMYK18.文件的擴展名用于標記文件的類型,用戶應該盡可能多地知曉各類文件的擴展名,下列文件中,屬于數字聲音的文件是_A. ABC.RMB. ABC.WMAC. ABC.MKVD. ABC.SWF19.信息系統軟件開發瀑布模型包括系統規劃、系統分析、系統設計、系統實施和系統維護等幾個階段。下面各項工作中,屬于系統實施階段的是_(19)_A.問題定義B.可行性研究C.系統測試D.繪制E-R圖20.下列有關Micmsoft Word 2003和Microsoft Excel 2003軟件的敘述中,錯誤的是_(20)_A. 利用Word軟件編輯文檔,可以將其保存為TXT、DOC、RTF和HTM格式文件B. 利用Word軟件編輯文檔時,可以統計選定文本的字符數C. 在Excel軟件中,可以打開(導入)TXT、DBF、HTML格式的文件(數據)D. Excel文件可以設置打開權限密碼,但不可以單獨設置修改權限密碼第二部分Visual Basic程序設計一、選擇題(用答題卡答題,答案依次填在21-30答題號內)21.以下有關事件過程的說法中,正確的是_(21)_A.所有的事件過程都是Sub子過程B.所有的事件過程都沒有參數C.所有的事件都是由用戶的操作直接引發的D.事件過程不能使用Call語句調用執行22.以下語句中,正確的是_(22)_ 。發送計算機地址目的計算機地址編號有效載荷?2010秋江蘇計算機二級VB考試真題頁碼，2/7/Html/exam_twoVB/0104173447806.html 2011/10/7A.List1.AddItem x,=,y B.Picture1.Print x,=,yC.Text1.Text=x,=,y D.Label1.Caption=x,=,y23.以下有關VB程序書寫規則的說法中,錯誤的是_(23)_A.一行可以書寫多條語句,語句間用:分隔B.使用注釋時,可與注釋語句定義符Rem互換使用C.過長的語句,可使用續行標志 _,分寫在多行上D.代碼輸入時,可不用區分字母大小寫,系統會將保留字首字母自動改為大寫24.設變量I和J是整型變量,K是長整型變量。I已賦值32763,J和K分別賦值5,若接著執行以下語句,可正確執行的是_(24)_。A.I=I+K B.J=I+KC.K=I+J+K D.K=K+I+J25.以下關系表達式中,運算結果為False的是_(25)_A.CInt(3.5)-Fix(3.5)=0 B.CInt(3.5)-Int(3.5)=0C.Int(3.5)+Int(-3.5)=0 D.Int(3.5)+Fix(-3.5)=026.以下字符運算表達式中,其功能與函數Mid(s,i,i)相同的是_(26)_A.Left(s,i) & Right(s,Len(s)-i) B.Left(Right(s,Len(s)-i+1),i)C.Left(Right(s,i),Len(s)-i+1) D.Left(s,Len(s)-i) & Right(s,i)27.數學表達式的VB算術表達式為_(27)_A.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/(x-y)B.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3)/(x-y)C.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/x-y)D.Sqr(x*y)3)+Abs(Exp(x)+Sin(x)3)/(x-y)28.以下有關數組的說法中,錯誤的是_(28)_。A.使用ReDim語句,可以改變任何數組的大小與維數B.使用ReDim語句,可以定義一個新數組C.使用ReDim語句重新定義動態數組時,維界表達式中可以采用變量D.使用ReDim語句重新定義的新數組,既可比原數組大,也可比原數組小29.以下有關Function過程的說法中,正確的是_(29)_ 。A.函數名在過程中只能被賦值一次B.如果在函數體內沒有給函數名賦值,則該函數無返回值C.如果在定義函數時沒有說明函數的類型,則該函數是無類型的D.執行函數過程中的Exit Function語句,將退出該函數,返回到調用點30.以下有關文件用法的描述中,正確的是_(30)_A.只有順序文件在讀寫前需要使用Open語句打開B.使用同一個文件號,可同時打開多個不同的文件C.如果以Input方式試圖打開一個不存在的順序文件,則會出錯D.如果程序中缺少Close語句,即使程序運行結束,打開的文件也不會自動關閉二、填空題(請將答案填寫在答題紙的相應答題號內,每個答案只占一行)1.運行下面程序,單擊CmdRun,在窗體上顯示a的值是_(1)_;b的值是_(2)_;i的值是_(3)_ 。Option ExplicitPrivate Sub CmdRun_Click()Dim i As Integer,a As Integer,b As Integera=1:b=10For i=a To b Step a+1a=a+1b=b+1i=i+1Next iPrint a,b,iEnd Sub2.執行下面程序,單擊Command1,數組元素a(3,2)的值是_(4)_,a(1,2)的值是_(5)_,a(2,3)的值是_(6)_Option ExplicitOption Base 1Private Sub Commandl_Click()Dim n As Integer,i As Integer,j As IntegerDim a(3,3)As Integer,k As Integern=3:k=1i=n:j=(n+1)/2a(i,j)=kFor k=2 To n*ni=i+1:j=j+1If in And j=n Theni=1ElseIf in Thenj=1ElseIf in And jn Theni=i-2:j=j-1ElseIf i=n And j=n And a(i,j)0 Theni=i-2:j=j-12010秋江蘇計算機二級VB考試真題頁碼，3/7/Html/exam_twoVB/0104173447806.html 2011/10/7End Ifa(i,j)=kNext kFor i=1 To nFor j=1 To nPic1.Print Right( & Str(a(i,j),3);Next jPic1.PrintNext iEnd Sub3.運行下面的程序,單擊Cmd1,窗體上顯示的第一行是_(7)_,第二行是_(8)_ ,最后一行是_(9)_。Option ExplicitPrivate Sub Cmd1_Click()Dim A As IntegerA=3Call Sub1(A)Print AEnd SubPrivate Sub Sub1(X As Integer)X=X*2+1If XLen(St) Thenk=k+1ReDim Preserve a(k)a(k)=Mid(St,i,1)Print a(;k;)=;a(k)End IfNext iEnd SubPrivate Sub Sub1(S As String)Dim i As IntegerFor i=1 To Len(S)2Mid(S,i,1)=Mid(S,Len(S)-i+1,1)Next iEnd Sub5.執行下面程序,在文本框Text1中輸入21 23 2 3 5 17 54#后,單擊命令按鈕Cmdl,數組元素A(1)的值是_(13)_,A(3)的值是_(14)_,A(5)的值是_(15)_.Option ExplicitPrivate Sub Cmd1_Click()Dim A() As Integer,K As IntegerDim L As Integer,S As StringS=Text1DoK=K+12010秋江蘇計算機二級VB考試真題頁碼，4/7/Html/exam_twoVB/0104173447806.html 2011/10/7ReDim Preserve A(K)L=InStr(S, )If L0 ThenA(K)=Val(Left(S,L-1)S=Right(S,Len(S)-L)ElseA(K)=Val(S)End IfLoop Until L=0Call Exchang(A)For K=1 To 7Text2=Text2 & A(K) & Next KEnd SubPrivate Sub Exchang(A() As Integer)Dim i As Integer,Tem As IntegerDim Point1 As IntegerPoint1=1For i=1 To UBound(A)If A(i) Mod 3 =0ThenTem=A(i)A(i)=A(Point1)A(Point1)=TemPoint1=Point1+1End IfNext iEnd Sub6.本程序的功能是,利用下列公式求函數cos(x)的近似值,規定通項的絕對值10-6時結束計算。請完善本程序.cos(x)=1-通用公式可知:a =Option ExplicitPrivate Sub Command1_Ciick()Dim S As Single,T As Single,K As Integer,x As SingleConst eps As Single=0.000001x=Val(Text1)_(16)_S=1T=1DoT= _(17)_S=S+TK=K+1Loop While _(18)_Text2=SEndSub7.本程序的功能是找出一組連續的整數,它們的和數等于給定的數。通常給定一個數,可能會找出多組符合要求的連續整數。查找的方法是窮舉法。請完善本程序。Option ExplicitPrivate Sub CmdRun_Click()Dim m As Integer,sum As Integer,st As StringDim i As Integer,j As Integer,k As Integerm=Text1For i=1 To m-1_(19)_For j=i To msum=_(20)_If sum=m Thenst= st賦以空值2010秋江蘇計算機二級VB考試真題頁碼，5/7/Html/exam_twoVB/0104173447806.html 2011/10/7For k=i To jst= _(21)_Next kList1.AddItem Left(st,Len(st)-1)End IfNext jNext iEnd Sub8.本程序的功能是將漢字的區位碼轉換成以十六進制數形式表示的機內碼。漢字的區位碼由4位數字組成,前兩位數字表示漢字在編碼表中的區號,后兩位數字表示位號,區號和位號均為十進制數。例如漢字中的區位碼是5448,即中的區號是54,位號是48。將區號與位號分別加上160,再轉換成十六進制數形式,就是中的機內碼。請完善本程序。Option ExplicitPrivate Sub CmdChange_Click()Dim qw As String,jn As Stringqw=Text1Text2=qw2jn(qw)End SubPrivate Function qw2jn(st As String) As StringDim n1 As Integer,n2 As Integern1=Val(Left(st,2)+160n2=_(22)_qw2jn=d2h(n1) & d2h(n2)End FunctionPrivate Function d2h(d As Integer) As StringDim p As Integer,q As String*1Dop= _(23)_If p9 Thenq=Chr(55+p)Elseq=CStr(p)EndIf_(24)_d=d16Loop Until _(25)_End Function9.本程序的功能是查找一組數據中的眾數。所謂眾數,就是在這組數據中出現次數最多的數.注意:一組數據中的眾數可能有多個.(即有多個數據的出現次數相同)。事件過程Cmdfind主要功能是生成n個隨機整數存入數組,再調用Freq過程,求出數組中每個不相同的數據出現的次數:再求出其中最大的出現次數值,最后,將求出相應的眾數輸出。請完善本程序。Option ExplicitOption Base 1Private Sub Cmdfind_Click()Dim a() As Integer,n As Integer,i As IntegerDim Shu() As Integer,Cs() As Integer,Max As Integern=InputBox(輸入數據個數:,查找眾數,20)ReDim a(n)RandomizeFor i=1 To na(i)=Int(Rnd*5)+5Text1=Text1 & Str(a(i)If i Mod 10=0 Then Text1=Text1 & vbCrLf2010秋江蘇計算機二級VB考試真題頁碼，6/7/Html/exam_twoVB/0104173447806.html 2011/10/7Next iCall Freq(a,Shu,Cs)Max=Cs(1)For i=2 To UBound(Cs)If Cs(i)Max Then_(26)_End IfNext iFor i=1 To UBound(Cs)If _(27)_