VB實驗教材模擬練習(有答案)

模擬練習一第一部分計算機信息技術基礎知識選擇題（共20分，每題2分）.IP地址通常分為固定IP地址和動態(tài)IP地址，目前國內大多數(shù)家庭上Internet網的用戶的IP地址都是—B—的。A.相同B.動態(tài)C.可以相同D.固定.下列四個不同進位制的數(shù)中，數(shù)值最大的是_B—。A.十進制數(shù)73.5 B.二進制數(shù)1001101.01C.八進制數(shù)115.1 D.十六進制數(shù)4C.4.下列關于臺式PC機芯片組的敘述中，錯誤的是 D。A.芯片組是主板上最為重要的部件之一，存儲器控制、I/O控制等功能主要由芯片組實現(xiàn)B.芯片組與CPU同步發(fā)展，有什么樣功能和速度的CPU,就需要什么樣的芯片組C.芯片組決定了主板上能安裝的內存最大容量及可使用的內存條類型D.同CPU一樣，用戶可以很方便，很簡單地更換主板上的芯片組.路由器（Router）用于異構網絡的互連，它跨接在幾個不同的網絡之間，所以它需要使用的IP地址個數(shù)為D。A.1 B.2C.3D.所連接的物理網絡的數(shù)目.為了既能與國際標準UCS（Unicode）接軌，又能保護現(xiàn)有的中文信息資源，我國政府發(fā)布了__C漢字編碼國家標準，它與以前的漢字編碼標準保持向下兼容，并擴充了UCS/Unicode中的其他字符。A.ASCII B.GB2312C.GB18030 D.GBK.在下列有關通信技術的敘述中，錯誤的是C。A.目前無線電廣播主要還是采用模擬通信技術B.數(shù)字傳輸技術最早是被長途電話系統(tǒng)采用的C.數(shù)字通信系統(tǒng)的信道帶寬就是指數(shù)據的實際傳輸速率（簡稱“數(shù)據速率”）D.局域網中廣泛使用的雙絞線既可以傳輸數(shù)字信號，也可以傳輸模擬信號.在下列有關商品軟件、共享軟件、自由軟件及其版權的敘述中，錯誤的是 C。A.通常用戶需要付費才能得到商品軟件的合法使用權.共享軟件是一種“買前免費試用”的具有版權的軟件C.自由軟件允許用戶隨意拷貝，但不允許修改其源代碼和自由傳播D.軟件許可證確定了用戶對軟件的使用方式，擴大了版權法給予用戶的權利.下列有關Internet的敘述錯誤的是A。A.隨著Modem性能的提高，電話撥號上網的速度越來越快，目前可達1Mbps以上.用戶從不同的網站下載信息，其速度通常有所不同C.從Internet上搜索到的信息，有時不能下載到本地計算機D.網頁上的圖片大多為GIF和JPEG格式.下面有關I/O操作的說法中正確的是■^A。A.為了提高系統(tǒng)的效率，I/O操作與CPU的數(shù)據處理操作通常是并行進行的B.CPU執(zhí)行I/O指令后，直接向I/O設備發(fā)出控制命令，I/O設備便可進行操作C某一時刻只能有一個I/O設備在工作D.各類I/O設備與計算機主機的連接方法基本相同10.在未壓縮情況下，圖像文件大小與下列因素無關的是—A。A.圖像內容 B.水平分辨率 C.垂直分辨率 D.像素深度第二部分 程序設計一、選擇題(共10分，每題2分)logx+</x2+y21.數(shù)學表達式,% 對應的VB表達式為—B—。ex+1-cos(60)0A.Log(x)/Log(10)+Abs(Sqr(xA2+yA2))/(Exp(x+1)-Cos(60*3.14159/180))B.(Log(x)/Log(10)+Abs(Sqr(x*x+y*y)))/(Exp(x+1)-Cos(60*3.14159/180))C.(Log(x)+Abs(Sqr(xA2+yA2)))/(Exp(x+1)-Cos(60*3.14159/180))D.(Log(x)+Abs(Sqr(x*x+y*y)))/(eA(x+1)-Cos(60*3.14159/180)).已知X<Y,A>B,則下列表達式中，結果為True的是C。A.Sgn(X-Y)+Sgn(A-B)=-1 B.Sgn(X-Y)+Sgn(A-B)=-2C.Sgn(Y-X)+Sgn(A-B)=2 D.Sgn(Y-X)+Sgn(A-B)=0.以下對數(shù)組參數(shù)的說明中，錯誤的是 A。A.在過程中可以用Dim語句對形參數(shù)組進行聲明B.形參數(shù)組只能按地址傳遞C.實參為動態(tài)數(shù)組時，可用ReDim語句改變對應形參數(shù)組的維界D.只需把要傳遞的數(shù)組名作為實參，即可調用過程.在文本框Text1中輸入數(shù)字12,在文本框Text2中輸入數(shù)字34,執(zhí)行以下語句，可在文本框Text3中顯示46的是B。A.Text3.Text=Text1.Text&Text2.TextB.Text3.Text=Val(Text1.Text)+Val(Text2.Text)C.Text3.Text=Text1.Text+Text2.TextD.Text3.Text=Val(Text1.Text)&Val(Text2.Text)5.Print方法可在A上輸出數(shù)據。①窗體 ②文本框③圖片框④標簽 ⑤列表框 ⑥立即窗口A.①③⑥B.②⑨⑤C.①②⑤D.③④⑥二、填空題(共20分,每空2分).執(zhí)行下面程序，單擊命令按鈕Command，在彈出的InputBox對話框中輸入8,并按“確定”按鈕，則a(1)的值是—21—,a(5)的值是3OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima()AsInteger,iAsInteger,nAsIntegern=1叩仇80*("輸入N",,8)ReDima(n)Callprocess(a,1,1)Fori=1TonPrinta(i)NextiEndSubPrivateSubprocess(a()AsInteger,mAsInteger,nAsInteger)DimiAsIntegeri=UBound(a)a(i)=ma(i-1)=ni=i-2DoWhilei>=1a(i)=a(i+1)+a(i+2)i=i-1LoopEndSub.執(zhí)行下面的程序，單擊Commandl,則數(shù)組元素a(1,2)的數(shù)值是15 ,a(2,3)的數(shù)值是9 ,a(4,3)的值是2 。OptionExplicitPrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsIntegerDimjAsInteger,kAsInteger,nAsIntegern=16:k=2DoFori=1To4Forj=1To4Ifi+j=kThena(i,j)=nn=n-1EndIfNextjNextik=k+1LoopUntilk>8Fori=1To4Forj=1To4PrintRight(""&a(i,j),3);NextjPrintNextiEndSub.執(zhí)行下面程序，單擊按鈕Commandl,在窗體上第一行顯示的內容是 0.6，第三行顯示的內容是5.4 。OptionExplicit

PrivateSubCommand1_Click()DimxAsSingle,iAsIntegerx=1.2Fori=1To3x=x*iPrintfun1(x)NextiEndSubPrivateFunctionfun1(xAsSingle)AsSingleStaticyAsSingley=y+xfun1=y/2EndFunction4.運行下面程序，單擊CmdRun,在窗體上顯示a的值是―-25,b的值是—14_,i的值是13。OptionExplicitPrivateSubCmdRun_Click()DimiAsInteger,aAsInteger,bAsIntegera=1:b=10Fori=aTobStepa+1a=a-i-1:b=b+1:i=i+1NextiPrinta,b,iEndSub三、操作題(共50分).完善程序。(共分)【要求】打開“學生文件夾”中“ ”文件，按參考界面形式編輯窗體界面，完善程序后，直接保存所有文件。【題目】本程序的功能是，找出使用公式m2-m+41(m=1?100)生成的一個數(shù)據序列中的所有非素數(shù)，分別輸出這些非素數(shù)的全部真因子。所謂數(shù)據n的真因子是指除1和n之外的因子。OptionExplicitPrivateSubCommand1_Click()DimmAsInteger,pAsLongDimst1AsStringForm=1To100st1='p=m*m-m+41IfNotprime(p)ThenCallfac(p,st1)List1.AddItem"第"&m&"項"&p&":"&st1EndIfNextmEndSubPrivateFunctionprime(nAsLong)AsBooleanDimkAsIntegerFork=2ToSqr(n)IfnModk=0Then'ExitFunctionNextkprime=TrueEndFunctionPrivateSubfac( )'nAsLong,stAsStringDimiAsIntegerFori=2Ton\2IfnModi=0Thenst='st&I&","EndIfNextist=Left(st,Len(st)-1)EndSub.改錯題(共分)【要求】打開“ 學生文件夾”中“ ”文件，按參考界面形式編輯窗體界面，改正程序中的錯誤后，直接保存所有文件；(2改)錯時，不得增加或刪除語句，但可適當調整語句位置?！绢}目】求在區(qū)間［，2100］上0的完數(shù)。一個數(shù)如果恰好等于它的因子之和，這個數(shù)稱為完數(shù)。一個數(shù)的因子是指除了該數(shù)本身以外能夠被其整除的數(shù)。例如，6是一個完數(shù)，因為6的因子是1，2，3，而且6=1+。2+3OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimb()AsIntegerFori=2To1000Ifwanshu(i,b)=TrueThenPicture1.Printi;"=";Forj=1ToUBound(b)Picture1.Printb(j);"+";NextjPicture1.Printb(j) '輸出最后一個因子

EndIfNextiEndSubPrivateFunctionwanshu(xAsInteger,b()AsInteger)AsBooleanDimiAsInteger,jAsInteger,sumAsIntegerReDimb(1)b(1)=1j=1Fori=2Tox-1sum=1IfxModi=0Thensum=sum+ij=j+1ReDimb(j)b(j)=iEndIfNextiIfsum=xThenwanshu=TrueEndFunction3．編程題（22分）【要求】（）打開“學生文件夾”中“ v文件，根據題目要求編寫和調試程序后，直接保存所有文件。（2）程序代碼書寫應呈鋸齒形，否則適當扣分?！绢}目】編寫程序，生成兩個均由兩位隨機整數(shù)組成的數(shù)組，每個數(shù)組中的10個元素互不相同，找出存在于這兩個數(shù)組中的相同的數(shù)并輸出?！揪幊桃蟆?．程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；.運行程序，按“生成”按鈕，調用arry過程隨機生成兩個數(shù)組，并分別按圖示格式輸出到文本框1與文本框2中；按“查找”按鈕，則找出兩個數(shù)組中共同存在的數(shù)據，輸出到文本框3中，若沒有共同的數(shù)據，則輸出“無共同元素”；按“清除”按鈕，將3個文本框清空；.程序中應定義一個名為arry的通用Sub過程，用于生成無重復數(shù)的兩個數(shù)組。PrivateSubCommand1_Click（）DimiAsIntegerCallarry(a(),b())Fori=1To10Text1=Text1&a(i)&""Text2=Text2&b(i)&""NextiEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsIntegerFori=1To10Forj=1To10Ifa(i)=b(j)ThenText3=Text3&a(i)&""NextjNextiIfLen(Text3)=0ThenText3="無相同元素"EndSubPrivateSubCommand3_Click()Text1=""Text2=""Text3=""EndSubPrivateSubarry(a()AsInteger,b()AsInteger)DimmAsInteger,nAsInteger,iAsInteger,kAsIntegerReDimPreservea(1)a(1)=Int(Rnd*90+10)Dom=Int(Rnd*90+10)Fori=1ToUBound(a)Ifm=a(i)ThenExitForNextiIfi=UBound(a)+1ThenReDimPreservea(i)a(i)=mEndIfLoopUntilUBound(a)=10ReDimPreserveb(1)b(1)=Int(Rnd*90+10)Don=Int(Rnd*90+10)Fori=1ToUBound(b)Ifn=b(i)ThenExitForNextiIfi=UBound(b)+1ThenReDimPreserveb(i)b(i)=nEndIfLoopUntilUBound(b)=10EndSub模擬練習二第一部分計算機信息技術基礎知識選擇題（共20分，每題2分）1.下列有關PC機及CPU芯片的敘述正確的是 D。A.目前PC機所用CPU芯片均為Intel公司生產PC機只能安裝MS-DOS或Windows操作系統(tǒng)PC機主板型號與CPU型號是——對應的，不同的主板對應不同的CPUPentiumMMX中的“MMX”是“多媒體擴展指令集”的英文縮寫2.計算機中使用的圖像文件格式有多種。下面關于常用圖像文件的敘述中，錯誤的是A。JPG圖像文件不會在網頁中使用BMP圖像文件在Windows環(huán)境下得到幾乎所有圖像應用軟件的支持TIF圖像文件在掃描儀和桌面印刷系統(tǒng)中得到廣泛應用GIF圖像文件能支持動畫，數(shù)據量很小3.隨著Internet的飛速發(fā)展，其提供的服務越來越多。在下列有關Internet服務及相關協(xié)議的敘述中，錯誤的是_C_。A.電子郵件是Internet最早的服務之一，主要使用SMTP/POP3協(xié)議B.WWW是目前Internet上使用最廣泛的一種服務，常使用的協(xié)議是HTTPC.文件傳輸協(xié)議（FTP）主要用在Internet上瀏覽網頁時控制網頁文件的傳輸D.遠程登錄也是Internet提供的服務之一，它采用的協(xié)議稱為Telnet.在下列圖像格式（標準）中，由ISO和IEC這兩個國際機構聯(lián)合組成的專家組所制訂的是—C。A.BMPB.GIFC.JPEGD.TIF.二進數(shù)10111000和11001010進行邏輯“或”運算，結果再與10100110進行邏輯“與”運算，最終結果的十六進制形式為—B—。A. 95 B. A2 C. AE D.DE.以下關于漢字編碼標準的敘述中，錯誤的是_A。Unicode和GB18030中的漢字編碼是相同的GB18030漢字編碼標準兼容GBK標準和GB2312標準C.我國臺灣地區(qū)使用的漢字編碼標準主要是BIG5D.GB18030編碼標準收錄的漢字數(shù)目超過2萬個.近年來由于平板電腦/智能手機的迅猛發(fā)展，再加上安卓系統(tǒng)的開發(fā)性，大量的第三方軟件開發(fā)商和自由軟件開發(fā)者都在為安卓系統(tǒng)開發(fā)應用軟件。目前安卓應用開發(fā)主要是基于D。A.匯編語言 B.BASIC語言C.C語言D.JAVA語言.目前在網絡互連中用得最廣泛的是TCP/IP協(xié)議。事實上，TCP/IP是一個協(xié)議系列，它已經包含了100多個協(xié)議。在下列TCP/IP協(xié)議中，傳輸層使用的協(xié)議是D。A.TELNETB.FTPC.HTTPD.UDP.MP3是一種廣泛使用的數(shù)字聲音格式。下列關于MP3的敘述正確的是 C。A.表達同一首樂曲時，MP3的數(shù)據量比MIDI聲音要少得多MP3聲音的質量與CD唱片聲音的質量大致相當MP3聲音適合在網上實時播放D.同一首樂曲經過數(shù)字化后產生的MP3文件與WAV文件的大小基本相同10.下面描述正確的是 D。A.只要不使用U盤，就不會使系統(tǒng)感染病毒B.只要不執(zhí)行U盤中和程序，就不會使系統(tǒng)感染病毒C軟盤比U盤更容易感染病毒D.設置寫保護后使用U盤就不會使U盤內的文件感染病毒第二部分 程序設計一、選擇題(共10分，每題2分)1.以下的Sub過程定義語句中，正確的是 A。A．PrivateSubSP(a()AsInteger,ByValbAsSingle,cAsInteger)B．PrivateSubSP(a()AsInteger,ByValbAsSingle,cAsInteger)AsIntegerC．PrivateSubSP(ByVala()AsInteger,bAsSingle,cAsInteger)D．PrivateSubSP(ByVala()AsInteger,ByValbAsSingle,cAsInteger).以下有關數(shù)組定義的說法中，錯誤的是B。A.固定大小數(shù)組必須先說明后使用B.動態(tài)數(shù)組的數(shù)據類型可以在用ReDim語句重定義是改變C．固定大小數(shù)組某一維的下屆可以是負整數(shù)D．可以使用已定義的符號常數(shù)名說明數(shù)組的維界(即說明數(shù)組的大小)．表達式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0Mod2的運算結果是D。A.1B.-1C.-2D.-34.若要使邏輯表達式x>yXory<z結果為True,則x、y、z的取值應為下列選項中的A。A． x=3、y=3、z=4 B． x=2、y=l、z=2C. x=l、y=3、z=2 D. x=2、y=2、z=25.在VB中均可以作為容器的是 _B。A.Form、TextBox、PictureBoxB.Form、PictureBox、FrameC.Form、TextBoX、Label D.PictureBox、TextBox、ListBox二、填空題(共20分，每空2分).執(zhí)行下面程序，單擊“生成數(shù)組”命令按鈕Command1后，“數(shù)組:”圖片框Picture1中顯示的內容如圖所示，再單擊“處理”命令按鈕Command2,則“結果：”圖片框Picture2中第一行顯示的x值是—0—,y值是—73，最后一行顯示的y值是―87。OptionBase1Dima(3,5)AsIntegerPrivateSubCommand1_Click() '生成數(shù)組DimiAsInteger,jAsIntegerFori=1To3

Forj=1To5a(i,j)=Int(Rnd*90)+10Picture1.Printa(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()'處理DimiAsInteger,jAsIntegerDimb(5)AsInteger,xAsInteger,yAsIntegerFori=1To3Forj=1To5b(j)=a(i,j)NextjCallm(b,x,y)Picture2.Printx,yNextiEndSubPrivateSubm(a()AsInteger,ByValxAsInteger,yAsInteger)DimiAsIntegerx=a(1)y=xFori=2ToUBound(a)Ifa(i)Mod2=0Anda(i)<xThenx=a(i)ElseIfa(i)Mod2=1Andy<a(i)Theny=a(i)EndIfNextiEndSub.運行下列程序，單擊Commandl,在窗體上顯示的第一行內容是 Y6 ，第二行的內容是Z,第三行的內容是A10 。(“A”的ASCII碼是65,“Z”是90)OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,stAsString,nAsInteger,pAsString*1p="B"ForI=3To1Step-1n=Asc(p)-IIfn<65Thenn=n+26st=Chr(n)st=st&F(I)PrintstNextIEndSubPrivateFunctionF(nAsInteger)DimIAsIntegerStaticsAsIntegerForI=1Tons=s+INextIF=sEndFunction.執(zhí)行下面程序，當單擊Commandl后，列表框中顯示的第一行是—2—,第三行是—109。PrivateSubCommand1_Click()DimxAsInteger,kAsIntegerx=436k=2DoUntilx<=1IfxModk=0Thenx=x\kList1.AddItemkElsek=k+1EndIfLoopEndSub.執(zhí)行下面的程序，在窗體上顯示的輸出結果的第一行是6.5 ,第三行是9.5 。OptionExplicitDimaAsInteger,bAsIntegerPrivateSubForm_Click()DimcAsIntegera=1b=3c=5Printfun(c)Printa,b,cPrintfun(c)EndSubPrivateFunctionfun(xAsInteger)AsSinglefun=a+b+x/2a=a+bb=a+xx=b+aEndFunctionEndFunctionEndFunction三、操作題（共50分）1.完善程序。（共分）【要求】打開“學生文件夾”中“ v文件，按參考界面形式編輯窗體界面，完善程序后，直接保存所有文件。【題目】本程序的功能是找出給定范圍內所有滿足以下條件的整數(shù)：其平方數(shù)與立方數(shù)均由不同數(shù)字組成。例如13的平方數(shù)是169，立方數(shù)是2197，均由不同數(shù)字組成，因此13就是滿足條件的整數(shù)。正找平方數(shù)和立方數(shù)均由不同數(shù)字組成的數(shù) 目回國TOC\o"1-5"\h\z13: 169 2197256 4096289 4913324 5832361 685924: 576 1382427： 729 1968329： 841 2438932： 1024 32768查找：OptionExplicitOptionBase1PrivateSubCommand1_Click()DimnAsInteger,sAsLong,cAsLong,stAsStringForn=11To50s=nA2c='na3Ifjudge(s)Andjudge(c)Thenst=n&": "&s&" "&cText1.Text=Text1.Text&st&vbCrLfEndIfNextnEndSubPrivateFunctionjudge()AsBoolean 'ByValnAsLongDimiAsInteger,num()AsInteger,kAsIntegerDok=k+1ReDimPreservenum(k)num(k)= 'nMod10n=n\10LoopUntiln=0Fori=1ToUBound(num)-1Fork=i+1ToUBound(num)IfThenExitFunction'num(i)=num(k)NextkNextijudge=True2.改錯題（共分）【要求】打開“學生文件夾”中“ ”文件，按參考界面形式編輯窗體界面，改正程序中的錯誤后，直接保存所有文件；（2改）錯時，不得增加或刪除語句，但可適當調整語句位置?！绢}目】本程序的功能是生成20個不可約真分數(shù)，每行5個顯示在文本框中。要求分子和分母均為兩位正整數(shù)且分數(shù)中沒有相同數(shù)字。提示：不可約真分數(shù)是指分子小于分母并且分子和分母除1以外沒有其它公約數(shù)。PrivateSubCommand1_Click()DimFzAsInteger,FmAsInteger,JsAsIntegerDoFz=Int(90*Rnd)+10Fm=Int(90*Rnd)+10IfFz<FmThenIfValidate(Fz,Fm)ThenText1=Text1&Fz&"/"&Fm&""Js=Js+1IfJsMod5=0ThenText1=Text1&vbCrLfEndIfEndIfLoopUntilJs<=20 'Js>=20EndSubPrivateFunctionValidate(FzAsInteger,FmAsInteger)AsBooleanDimNAsInteger,IAsInteger,SAsStringForN=2ToFzIfFzModN=0AndFmModN=0ThenExitFor 'ExitFunctionNextNS=Fz+Fm 'Fz&FmForI=1ToLen(S)-1ForN=I+1ToLen(S)IfMid(S,I,1)=Mid(S,N,1)ThenExitFunctionEndIfNextNNextIValidate=TrueEndFunction．編程題（22分）【要求】（）打開“ 學生文件夾”中“ v文件，根據題目要求編寫和調試程序后，直接保存所有文件。（2）程序代碼書寫應呈鋸齒形，否則適當扣分。【題目】編寫程序，先生成一個m行n列由兩位隨機整數(shù)組成的數(shù)組（m和n使用InputBox函數(shù)輸入），然后求數(shù)組每行的平均值，并求出平均值最大的行?！揪幊桃蟆?．程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2.運行程序，單擊“生成”按鈕，在InputBox函數(shù)窗口中輸入行數(shù)與列數(shù)后，在圖片框中輸出隨機數(shù)組（數(shù)組由兩位整數(shù)組成）；再單擊“計算”按鈕，計算出每一行的平均值并輸出到多行文本框1中，將平均值最大行的行號輸出到文本框2中；單擊“清空”按鈕，將圖片框和2個文本框清空；73586273586253.791178614478754.9688156?求平均數(shù)最大的行 口叵I區(qū)）平均值最大的是P行生成I|匚計算:|| 清空IOptionExplicitOptionBase1Dima()AsInteger,maxhangAsIntegerPrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimiAsInteger,jAsIntegerm=InputBox("請輸入行數(shù)"，"數(shù)組行數(shù)",4)n=InputBox("請輸入列數(shù)"，"數(shù)組列數(shù)",5)ReDima(m,n)Fori=1TomForj=1Tona(i,j)=Int(Rnd*90)+10Picture1.Printa(i,j);NextPicture1.PrintNextEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsInteger,b(4)AsSingle,sumAsIntegerFori=1To4sum=0Forj=1To5sum=sum+a(i,j)Nextb(i)=sum/5Text1=Text1&b(i)&vbCrLfNextCallmax(b)Text2=maxhangEndSubPrivateSubmax(b()AsSingle)DimiAsInteger,maxkAsSingleFori=1To4Ifmaxk<b(i)Thenmaxk=b(i)maxhang=iEndIfNextEndSubPrivateSubCommand3_Click()Picture1.ClsText1.Text=""Text2.Text=""EndSub模擬練習三第一部分計算機信息技術基礎知識選擇題(共20分，每題2分).下列有關PC機的CPU、內存和主板的敘述中，正確的是__A。A.大多數(shù)PC機只有一塊CPU芯片，即使是“雙核”CPU也是一塊芯片B.所有Pentium系列微機的內存條相同，僅有速度和容量大小之分C.主板上芯片組的作用是提供存儲器控制功能，I/O控制與芯片組無關D.主板上CMOS芯片用于存儲CMOS設置程序和一些軟硬件設置信息.下列文件類型中，不屬于豐富格式文本的文件類型是B。A. DOC文件 B.TXT文件C. PDF文件 D.HTML文件3.十進制數(shù)101對應的二進制數(shù)、八進制數(shù)和十六進制數(shù)分別是A。A. 1100101B、145Q和65H B. 1100111B、143Q和 63H。C. 1011101B、 145Q和67HD. 1100101B、 143Q和 61H4.從算法需要占用的計算機資源角度分析其優(yōu)劣時，應考慮的兩個主要方面是心。A.空間代價和時間代價B.正確性和簡明性C.可讀性和開放性D.數(shù)據復雜性和程序復雜性.路由器的主要功能是 B。A.在傳輸層對數(shù)據幀進行存儲轉發(fā)B.將異構的網絡進行互連C.放大傳輸信號 D.用于傳輸層及以上各層的協(xié)議轉換.人們往往會用“我用的是10M寬帶上網”來說明自己使用計算機連網的性能，這里的“10M”指的是數(shù)據通信中的—A_指標。A.信道帶寬 B.數(shù)據傳輸速率C.誤碼率D.端到端延遲.目前PC機的外存儲器（簡稱“外存”）主要有軟盤、硬盤、光盤和各種移動存儲器。下列有關PC機外存的敘述錯誤的是C。A.軟盤因其容量小、存取速度慢、易損壞等原因，目前使用率越來越低.目前CD光盤的容量一般為數(shù)百兆字節(jié)，而DVD光盤的容量為數(shù)千兆字節(jié)C.硬盤是一種容量大、存取速度快的外存，目前主流硬盤的轉速均為每分鐘幾百轉D.閃存盤也稱為“優(yōu)盤”，目前其容量從幾十兆字節(jié)到幾千兆字節(jié)不等8.下列有關計算機軟件的敘述中，錯誤的是C。A.軟件一般是指程序及其相關的數(shù)據和文檔資科B.從軟件的用途考慮，軟件可以分為系統(tǒng)軟件和應用軟件，主要的系統(tǒng)軟件有操作系統(tǒng)、程序設計語言處理系統(tǒng)和數(shù)據庫管理系統(tǒng)等C.從軟件的權益來考慮，軟件可以分為商品軟件、共享軟件和自由軟件。共享欽件和自由軟件均為無版權的免費軟件D.linux是一種系統(tǒng)軟件，自由軟件9.下列關于打印機的敘述中，錯誤的是_A。A.激光打印機使用PS/2接口和計算機相連噴墨打印機的打印頭是整個打印機的關鍵噴墨打印機屬于非擊打式打印機，它能輸出彩色圖像針式打印機獨特的平推式進紙技術，在打印存折和票據方面具有不可替代的優(yōu)勢10.下面關于PC機I/O總線的說法中不正確的是C。A.總線上有三類信號：數(shù)據信號、地址信號和控制信號I/O總線的數(shù)據傳輸速率較高，可以由多個設備共享I/O總線用于連接PC機中的主存儲器和Cache存儲器D.目前在PC機中廣泛采用的I/O總線是PCI總線程序設計第二部分一、選擇題(共10分，每題2分)程序設計.InputBox函數(shù)返回值的數(shù)據類型是B。A.整形B.字符串型。雙精度型 D.變體型ex“一一，■- 、.數(shù)學式 (10+3a義32b+c)對應的VB表達式是C。cosxl10+3al*(2*b+c)A(1/3)*Exp(x)/Cos(x)Abs(10+3*a)*((2*b+c)A1/3)*(Exp(x)/Cos(x))C.Exp(x)*Abs(10+3*a)*(2*b+c)A(1/3)/Cos(x)D.Exp(x)/Cos(x)*Abs(10+3*a)*((2*b+c)A1/3).以下關于變量作用域的敘述中，正確的是__C。A.窗體中凡用Private聲明的變量只能在某個指定的過程中使用B.模塊級變量只能用Dim語句聲明C.凡是在窗體模塊或標準模塊的通用聲明段用Public語句聲明的變量都是全局變量D.當不同作用域的同名變量發(fā)生沖突時，優(yōu)先訪問局限性小的變量.下面給有關數(shù)組的敘述中，正確的是—D—。A.在過程中使用ReDim語句重定義的動態(tài)數(shù)組，必須已經在前面用Dim語句對其進行過說明B.在過程中，不可以使用Static來定義數(shù)組C.用ReDim語句重新定義一維動態(tài)數(shù)組時，可以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D.不可以用Public語句在窗體模塊的通用聲明處說明一個全局數(shù)組.對正實數(shù)X的第四位小數(shù)四舍五入的VB表達式是—D—。A.0.001*Int(x+0.005) B.0.001*(1000*x+0.5)C.0.001*Int(1000*x+5) D.0.001*Int(1000*(x+0.0005))二、填空題(共20分，每空2分).執(zhí)行下面程序，單擊命令Command，則窗體上顯示的第一行是2，第二行是1,最后一行是214。OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,kAsIntegern=59k=5PrintTran(n,k)EndSubPrivateFunctionTran(nAsInteger,kAsInteger)AsStringDimrAsIntegerIfn<>0Thenr=nModkTran=Tran(n\k,k)&rPrintrEndIfEndFunction.執(zhí)行下面程序，如果連續(xù)三次單擊Commandl,A數(shù)組共有 6個元素；數(shù)組元素A(5)的值是 31 。OptionExplicitOptionBase1PrivateSubCommand1_Click()Statica()AsInteger,nAsIntegerDimiAsInteger,kAsIntegerk=nn=n+2ReDimPreservea(n)Fori=k+1Tona(i)=i*n+1NextiFori=1TonPrinta(i);NextiPrintEndSub.執(zhí)行下面程序，第一行輸出結果是 31 ，第二行輸出結果是 63 。PrivateSubForm_Click()DimAasIntegerA=3Callsub1(A)EndSubPrivateSubsub1(XasInteger)X=X*2+1IfX<10thenCallsub1(X)EndifX=X*2+1PrintXEndSub.有如下程序，當單擊命令按鈕Commandl時，窗體上顯示的第一行的內容是2 2 4,第二行的內容是2 5 1，第四行的內容是2 9 1。PrivateSubCommand1_Click()DimaasInteger,basInteger,zasIntegera=2:b=5:z=1Callsub1(a,b)Printa,b,zCallsub1(b,a)Printa,b,zEndSubPrivateSubsub1(xasInteger,ByValyasInteger)

StaticzAsIntegerx=x+zy=x-zz=x+yPrintx,y,zEndSub三、操作題（共50分）.完善程序。（共分）【要求】打開“學生文件夾”中“ ”文件，按參考界面形式編輯窗體界面，完善程序后，直接保存所有文件?！绢}目】本程序的功能是，隨機生成n個兩位整數(shù)（n利用鍵盤輸入），存入一個數(shù)組。再找出數(shù)組中的最大元素并將其刪除。刪除的方法是將最大元素后面的元素依次前移一個位置，數(shù)組長度減1。重復上述過程，直到得到只有一個元素的數(shù)組為止。OptionExplicitPrivateSubCommand1_Click()Dima()AsInteger,nAsInteger,mvAsInteger,mpAsIntegerDimiAsInteger,jAsInteger,stAsStringn=InputBox("元素個數(shù)"，"數(shù)組處理"，10)RandomizeReDima(n)Fori=1Tona(i)=Int(Rnd*90)+10Text1=Text1&Str(a(i))NextiFori=1Ton-1Callmaxv(a，mv，mp)Forj=mpToa(j)=a(j+1)NextjForj=1ToUBound(a)st=st&Str(a(j))NextjList1.AddItemstst=""NextiEndSubPrivateSubmaxv()DimiAsInteger

maxe=a(1):mp=1Fori=2ToUBound(a)Ifa(i)>maxeThenmaxe=a(i):mp=iEndIfNextiEndSub.改錯題（共分）【要求】打開“ 學生文件夾”中“【要求】打開“ 學生文件夾”中“”文件，按參考界面形式編輯窗體界面，改正程序中的錯誤后，直接保存所有文件；（2改）錯時，不得增加或刪除語句，但可適當調整語句位置。【題目】本程序的功能是根據輸入的英文單詞，生成n階字母方陣，n為單詞的長度，第一行為該單詞本身，其后每一行是將前一行單詞的首字母變?yōu)槲沧帜傅膯卧~。例如輸入的英文單詞為visual,其長度是6,則生成的字母方陣為：visualisualvsualviualvisalvisulvisuaOptionExplicitPrivateSubCommand1_Click()DimsAsString,iAsInteger,jAsIntegerDima()AsString*1s=Text1.Texti=Len(s)ReDima(i)Fori=1ToLen(s)a(i)=Mid(s,i,1)NextiText2.Text=s&vbCrLfFori=2ToLen(s)Yd(a)Callyd(a)Forj=1ToLen(s)Text2.Text=Text2.Text&a(j)NextjText2.Text=Text2.Text&vbCrLfNextiEndSubPrivateSubyd(a()AsString*1)DimiAsInteger,tAsString*1t=a(1)Fori=1ToUBound(a)-1a(i+1)=a(i)a(i)=a(i+1)Nextia(UBound(a))=tEndSub3．編程題(22分)【要求】()打開“ 學生文件夾”中“ ”文件，根據題目要求編寫和調試程序后，直接保存所有文件。(2)程序代碼書寫應呈鋸齒形，否則適當扣分?！绢}目】編寫程序，驗證所謂“6174”假說。對于任意4位整數(shù)，將各位上的數(shù)字按從大到小排列得到一個降序數(shù)，再按從小到大排列得到一個升序數(shù)，用降序數(shù)減升序數(shù)，得到一個新的整數(shù)，如此反復，最終一定會得到6174。這就是“6174”假說(4個數(shù)字完全相同的四位整數(shù)除外)?！揪幊桃蟆砍绦騾⒖冀缑嫒鐖D所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；運行程序，首先在“輸入4位整數(shù)”文本框中輸入測試用的整數(shù)，然后按“驗證”按鈕，將驗證過程按圖示格式顯示在列表框中；按“清除”按鈕，將文本框和列表框清空，焦點置于文本框上；程序中應定義一個名為sort的通用Sub過程，在過程中，先提取組成整數(shù)n的各位數(shù)字，存入一個數(shù)組，再對數(shù)組的元素按從小到大的順序進行排序?！舅惴ㄌ崾尽框炞C步驟是：調用sort過程，利用排序結果得到相應的降序數(shù)與升序數(shù)，二者相減，若不等于6174，則重復上述步驟直到得到6174為止。OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,jnAsInteger,snAsIntegern=Text1DoCallcomput(n,jn,sn)n=jn-snList1.AddItemjn&"-"&sn&"="&nLoopUntiln=6174List1.AddItemn&"驗證成功"EndSubPrivateSubcomput(nAsInteger,jnAsInteger,snAsInteger)Dima(4)AsInteger,iAsInteger,pAsString,qAsStringCallsort(n,a)Fori=1To4p=p&CStr(a(i))q=CStr(a(i))&qNextijn=psn=qEndSubPrivateSubsort(nAsInteger,a()AsInteger)DimiAsInteger,jAsInteger,tAsIntegerDoi=i+1a(i)=nMod10n=n\10LoopUntiln=0Fori=1ToUBound(a)-1Forj=i+1ToUBound(a)Ifa(j)>a(i)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiEndSubPrivateSubCommand2_Click()Text1=""List1.ClearText1.SetFocusEndSub模擬練習四第一部分計算機信息技術基礎知識選擇題（共20分，每題2分）.某顯示器的分辨率是1024x768,其數(shù)據含義是—D—。A.橫向字符數(shù)x縱向字符數(shù) B.縱向字符數(shù)x橫向字符數(shù)C.縱向點數(shù)x橫向點數(shù) D.橫向點數(shù)x縱向點數(shù).十進制算式7*64+4*8+4的運算結果用二進制數(shù)表示為—B—。A.111001100B.111100100C.110100100D.111101100.I/O接口指的是計算機中用于連接I/O設備的各種插頭/插座，以及相應的通信規(guī)程及電氣特性。在下列有關I/O總線與I/O接口的陳述中，錯誤的是—D—。PC機系統(tǒng)總線一般分為處理器總線和主板總線PCI總線屬于I/O總線PC機的I/O接口可分為獨占式和總線式USB是以并行方式工作的I/O接口.在下列有關集成電路的敘述中，錯誤的是 D—。A.現(xiàn)代集成電路使用的半導體材料主要是硅B.大規(guī)模集成電路一般以功能部件、子系統(tǒng)為集成對象C.我國第2代居民身份證中包含有IC芯片D.目前超大規(guī)模集成電路中晶體管的基本線條已小到1納米左右CPU的運算速度與許多因素有關，下面哪些是提高CPU速度的有效措施？1①增加CPU中寄存器的數(shù)目 ②提高CPU的主頻③增加CPU中高速緩存（cache）的容量 ④優(yōu)化BIOS的設計A.①、③和④ B.①、②和③ C.①和④ D.②、③和④USB接口是由Compag、IBM、Intel、Microsoft和NEC等公司共同開發(fā)的一種I/O接口。下列有關USB接口的敘述錯誤的是C。USB接口是一種串行接口，USB對應的中文為“通用串行總線”USB2.0的數(shù)據傳輸速度比USB1.1快很多C.利用“USB集線器”，一個USB接口最多只能連接63個設備D.USB既可以連接硬盤、閃存等快速設備，也可以連接鼠標、打印機等慢速設備.人們通常將計算機軟件劃分為系統(tǒng)軟件和應用軟件。下列軟件中,不屬于應用軟件類型的是C。A.AutoCAD.MSNC.OracleD.WindowsMediaPlayer.因特網的IP地址由三個部分構成，從左到右分別代表 B。A.網絡號、主機號和類型號 B.類型號、網絡號和主機號C.網絡號、類型號和主機號 D.主機號、網絡號和類型號.下列關于程序設計語言的敘述中，錯誤的是_C—。A.目前計算機還無法理解和執(zhí)行人們日常語言（自然語言）編寫的程序B.程序設計語言是一種既能方便準確地描述解題的算法，也能被計算機準確理解和執(zhí)行的語言C.程序設計語言沒有高級和低級之分，只是不同國家使用不同的編程語言而已D.許多程序設計語言是通用的，可以在不同的計算機系統(tǒng)中使用10、下列關于打印機的說法，錯誤的是A。A.針式打印機只能打印漢字和ASCII字符，不能打印圖案B.噴墨打印機是使墨水噴射到紙上形成圖案或字符的C激光打印機是利用激光成像、靜電吸附碳粉原理工作的D.針式打印機是擊打式打印機，噴墨打印機和激光打印機是非擊打式打印機第二部分 程序設計一、選擇題(共10分，每題2分).以下關系表達式中，運算結果為False的是—C。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)>=0.以下關于數(shù)組的說法中，錯誤的是 C。A.使用了Preserve子句的ReDim語句，只允許改變數(shù)組最后一維的上界B.對于動態(tài)數(shù)組，ReDim語句可以改變其維界但不可以改變其數(shù)據類型Erase語句的功能只是對固定大小的數(shù)組進行初始化LBound函數(shù)返回值是指定數(shù)組某一維的下界.下列有關過程的說法中，錯誤的是 B—。A.在Sub或Function過程內部不能再定義其它Sub或Function過程B.對于使用ByRef說明的形參，在過程調用時形參和實參只能按傳址方式結合C.遞歸過程既可以是遞歸Function過程，也可以是遞歸Sub過程D.可以像調用Sub過程一樣使用Call語句調用Function過程.RGB函數(shù)中紅、綠、藍三基色分別用0~255之間的整數(shù)表示。若使用三個滾動條分別對應紅、綠、藍三基色。為保證數(shù)值在有效范圍內，則應對滾動條的—A—屬性進行設置。A.Max和Min B.SmallChange和LargeChangeC.Scroll和Change D.Value5.下列選項中，所包含的所有表達式能夠將兩位整數(shù)x的個位數(shù)與十位數(shù)對調(例如將78轉換為87)的是。Val(Right(x,1)&Left(x,1))Val(Right(Str(x),1)&Left(Str(x),1))Val(Right(CStr(x),1)&Left(CStr(x),1))④Val(Mid(x,2,1)+Mid(x,1,1))A.①②B.②③ C.②④D.①③④二、填空題(共20分,每空2分)1.執(zhí)行下面程序，單擊Commandl,則窗體上顯示的第一行是9 12,第三行是3 -3最后一行是0-6。OptionExplicitPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=0DoWhilex>0IfxMod4=0ThenElsey=y-xEndIfx=x-3Printx,yLoopEndSub2.執(zhí)行下面程序，單擊命令按鈕Commandl,則窗體上顯示的第三行是 C，最后一行是4 。OptionExplicitDimiAsIntegerPrivateSubCommand1_Click()PrintTest("D")EndSubPrivateFunctionTest(tAsString)AsIntegerIft>="A"ThenCallTest(Chr(Asc(t)-1))Printti=i+1EndifTest=iEndFunction3.執(zhí)行下面程序，單擊Commandl,數(shù)組元素a(3,2)的值是 1 ,a(1,2)的值是9 ,a(2,3)的值是7 。OptionBase1PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,a(3,3)AsInteger,kAsIntegern=3:k=1=n:j=(n+1)/2a(i,j)=kFork=2Ton*ni=i+1:j=j+1Ifi>nAndj<=nTheni=1ElseIfi<=nAndj>nThenj=1ElseIfi>nAndj>nTheni=i-2:j=j-1ElseIfi<=nAndj<=nAnda(i,j)<>0Theni=i-2:j=j-1EndIfa(i,j)=kNextk

Fori=1TonForj=1TonPic1.PrintRight(""&Str(a(i,j)),3);NextjPic1.PrintNextiEndSub4.執(zhí)行下列程序，單擊CmdRun按鈕，則窗體上顯示的第一行是 4HS，最后一行是7SSOptionExplicitPrivateSubCmdRun_Click()DimnAsIntegerForn=4To7IfFun1(n,Sqr(n))ThenPrintn;"SS"ElsePrintn;"HS"EndIfNextnEndSubPrivateFunctionFun1(nAsInteger,iAsInteger)AsBooleanIfi=1ThenFun1=TrueElseIfnModi<>0ThenFun1=Fun1(n,i-1)ElseFun1=FalseEndIfEndFunction三、操作題（共50分）.完善程序。（共分）【要求】打開“學生文件夾”中“ ”文件，按參考界面形式編輯窗體界面，完善程序后，直接保存所有文件。【題目】本程序的功能是查找一組數(shù)據中的眾數(shù)。所謂眾數(shù)，就是在這組數(shù)據中出現(xiàn)次數(shù)最多的數(shù)。注意：一組數(shù)據中的眾數(shù)可能有多個（即有多個數(shù)據的出現(xiàn)次數(shù)相同）。事件過程Cmdfind主要功能是生成n個隨機整數(shù)存入數(shù)組，再調用Freq過程，求出數(shù)組中每個不相同的數(shù)據出現(xiàn)的次數(shù)，再求出其中最大的出現(xiàn)次數(shù)值，最后將求出相應的眾數(shù)輸出。請完善本程序。OptionExplicitOptionBase1PrivateSubCmdfind_Click()Dima()AsInteger,nAsInteger,iAsIntegerDimShu()AsInteger,Cs()AsInteger,MaxAsIntegern=InputBox("輸入數(shù)據個數(shù)："，"查找眾數(shù)",20)ReDima(n)RandomizeFori=1Tona(i)=Int(Rnd*5)+5Text1=Text1&Str(a(i))IfiMod10=0ThenText1=Text1&vbCrLfNextiCallFreq(a,Shu,Cs)Max=Cs(1)Fori=2ToUBound(Cs)IfCs(i)>MaxThenMax=Cs(i)EndIfNextiFori=1ToUBound(Cs)IfThenText2=Text2&Shu(i)&""'Max=Cs(i)NextiEndSubPrivateSubFreq(a()AsInteger,Shu()AsInteger,Cs()AsInteger)'Shu數(shù)組用于存放A數(shù)組中不相同數(shù)據的值'Cs數(shù)組用于存放對應不相同數(shù)據出現(xiàn)的次數(shù)DimiAsInteger,jAsInteger,jsAsInteger,nAsIntegerFori=1ToUBound(a)js=1Forj=1Ton'搜索數(shù)組a中不相同的數(shù)據IfShu(j)=a(i)ThenExitForNextjIfThen 'j>nn=n+1ReDim'ReDimPreserveShu(n),Cs(n)Shu(n)=a(i)Forj=i+1ToUBound(a)Ifa(j)=a(i)Then'js=js+1NextjCs(n)=jsList1.AddItema(i)&"…"&jsEndIfNextiEndSub.改錯題(共分)

【要求】打開“ 學生文件夾”中“ ”文件，按參考界面形式編輯窗體界面，改正程序中的錯誤后，直接保存所有文件；（2改）錯時，不得增加或刪除語句，但可適當調整語句位置。【題目】本程序的功能是：生成一個n行4列的整數(shù)數(shù)組，該數(shù)組的每一行第一列的元素是隨機生成的一個不含數(shù)字0的三位整數(shù)，其余三列元素的值分別是前一列同行元素各位數(shù)字的連乘積。n使用InputBox函數(shù)輸入。PrivateSubCommand1_Click()DimnAsInteger,ra()AsIntegerDimkAsInteger,iAsInteger,jAsIntegern=InputBox("數(shù)據個數(shù)："，，4)ReDimra(n,4)i=1Dok=Int(Rnd*899)+100IfInStr(CStr(k),"0")=0Thenra(i,1)=kPic1.PrintRight(""&ra(i,1),4);Forj=2To4ra(i,j)=fun(ra(i,j-1))Pic1.PrintRight(""&ra(i,j),4);NextjPicl.Print ':i=i+1EndIfi=i+1LoopUntili>nEndSubPrivateFunctionfun(ByValnAsInteger)AsIntegerfun=1Dofun=fun*nMod10'fun=fun*(nMod10)n=n\10LoopWhilen>=0 'LoopWhilen>0EndFunction3．編程題（22分）【要求】（）打開“學生文件夾”中“ v文件，根據題目要求編寫和調試程序后，直接保存所有文件。（2）程序代碼書寫應呈鋸齒形，否則適當扣分?！绢}目】編寫程序，先生成包含20個兩位隨機整數(shù)的數(shù)組，然后找出其中的盈數(shù)。所謂盈數(shù)，是指因子（不包含自身）之和大于其本身的正整數(shù)。例如，12的因子和為1+2+3+4+6=16，大于自身，則12是一個盈數(shù)?！揪幊桃蟆?．參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2．行程序，單擊“運行”按鈕，生成20個由兩位隨機整數(shù)組成的數(shù)組，并將數(shù)組以每行顯示10個元素的方式輸出在多行文本框中；然后判斷數(shù)組元素中是否有盈數(shù)，若有則將它們按附圖參考界面所示的格式輸出到列表框中；單擊“清除”按鈕，將文本框與列表框清空，焦點置于“運行”按鈕上；單擊“退出”按鈕，結束程序運行；3．中至少應定義一個通用過程，用于求一個整數(shù)的因子或判斷其是否為“盈數(shù)”。OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(20)AsInteger,b()AsIntegerDimiAsInteger,jAsInteger,sumAsIntegerDimstrAsStringFori=1To20a(i)=Int(Rnd*90)+10Text1=Text1&a(i)&""j=j+1IfjMod10=0ThenText1=Text1&vbCrLfNextFori=1To20Callyinzi(a(i),b)sum=0Forj=1ToUBound(b)sum=sum+b(j)NextIfsum>a(i)Thenstr=""Forj=1ToUBound(b)-1str=str&b(j)&"+"Nextstr=str&b(j)List1.AddItema(i)&":"&str&"="&sum&">"&a(i)EndIfNextEndSubPrivateSubyinzi(nAsInteger,b()AsInteger)DimiAsInteger,kAsIntegerFori=1Ton-1IfnModi=0Thenk=k+1ReDimPreserveb(k)b(k)=iEndIfNextEndSubPrivateSubCommand2_Click()Text1.Text=""List1.ClearCommand1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub模擬練習五第一部分計算機信息技術基礎知識選擇題（共20分，每題2分）.算法設計是編寫程序的基礎。下列關于算法的敘述中，正確的是—C_。A.算法必須產生正確的結果B.算法可以沒有輸出C.算法必須具有確定性 D.算法的表示必須使計算機能理解.交換式以太網與總線式以太網在技術上有許多相同之處，下面敘述中錯誤的是C。A.使用的傳輸介質相同B.傳輸?shù)男畔袷较嗤珻.網絡拓撲結構相同 D.使用的網卡相同.因特網使用TCP/IP協(xié)議實現(xiàn)全球范圍的計算機網絡互連，連接在因特網上的每一臺主機都有一個IP地址。下面不能作為IP地址的是C。A.8B.8C.201.2D..以下敘述正確的是—C。TCP/IP協(xié)議只包含傳輸控制協(xié)議和網絡協(xié)議TCP/IP協(xié)議是最早的網絡體系結構國際標準TCP/IP協(xié)議廣泛用于異構網絡的互連TCP/IP協(xié)議包含7個層次.計算機病毒是一段很小的 B ，它是一種會不斷自我復制的程序。在傳統(tǒng)的操作系統(tǒng)環(huán)境下，通常它會寄存在可執(zhí)行的文件之中，或者是軟盤、硬盤的引導區(qū)部分。A.數(shù)據B.計算機程序 C. 文檔D.文件.下列四個不同進位制的數(shù)中，數(shù)值最小的是_D—。A.十進制數(shù)63.1B.二進制數(shù)111111.101C.八進制數(shù)77.1D.十六進制數(shù)3F.1.若同一單位的很多用戶都需要安裝使用同一軟件時，最好購買該軟件相應的A。A.許可證 B.專利 C.著作權 D.多個拷貝.在廣域網中，每臺交換機都必須有一張—D_,用來給出目的地址和輸出端口的關系。A.線性表B.目錄表 C.FAT表D.路由表9、以下設備中不屬于輸出設備的是 A。A.麥克風B.打印機C.音箱D.顯示器IE瀏覽器和OutlookExpress中使用的UTF-8和UTF-16編碼是_C標準的2種實現(xiàn)。A.GB2312 B.GBKC.UCS(Unicode) D.GB18030第二部分 程序設計一、選擇題(共10分，每題2分).下面的過程定義語句中不正確的是 A。PrivateSubMySub1(StAsString*6)PrivateSubMySub1(Ar()AsString*6)PrivateSubMySub1(Ar()AsString)PrivateSubMySub1(StAsString).能夠被正確計算的表達式有—B個。①4096*2A3 ②CInt(5.6)*5461+2 ③6553*5+0.5*6 ④32768+12A.4 B.3 C.2 D.1.下列有關轉換函數(shù)的說法正確的是：―CInt和Cint函數(shù)的區(qū)別僅在于結果的數(shù)據類型不同Int和Fix函數(shù)將非整數(shù)數(shù)據轉換成整數(shù)，轉換后的結果類型是LongCint函數(shù)的功能是將其他類型的數(shù)據轉換成Integer類型D.在處理負數(shù)時，Int和Fix函數(shù)的結果是相同的.設a=3,b=2,c=1,運行printa>b>c的結果是C 。A.TrueB.False C.1 D.出錯.如果希望定時器控件每秒產生10個事件，則要將Interval屬性的值設為 A 。A.100B.200C.500D.1000二、填空題(共20分，每空2分)1.執(zhí)行下面程序，單擊命令按鈕Command1,則窗體上輸出的data數(shù)組元素個數(shù)為5，最后一行內容是Basic。OptionExplicitOptionBase1PrivateSubCommand1_Click()DimstAsString,charAsStringDimdata()