vb實(shí)驗(yàn)指導(dǎo)后題目答案

-.z...期末自測(cè)題〔A卷〕文件局部的選擇題要做，其它類型的題目不用做，不作考察選擇題其它局部還沒有時(shí)間做一、單項(xiàng)選擇題〔每題1分，共25分〕1、是Internet上的()。(A)IP地址(B)域名(C)密碼(D)軟件編號(hào)2、在以下四個(gè)網(wǎng)址中，〔〕網(wǎng)址不符合網(wǎng)址書寫規(guī)則。(A).163.

(B).

(C).863.net.(D).3、以下字符中，其ASCII碼值最小的一個(gè)是〔〕。(A)A(B)a(C)Z(D)*4、以下軟件中屬于瀏覽器的是〔〕。(A)E*cel(B)InternetE*plorer(C)QQ(D)VisualBasic5、電子()地址的正確形式是〔〕。(A)用戶名域名(B)用戶名*域名(C)用戶名/域名

(D)用戶名.域名6、下面變量名不合法的是〔〕。(A)a2(B)abcd(C)a$*(D)Cd_E7、以下表達(dá)式中，正確的Visual

Basic表達(dá)式是〔〕。(A)2sin45°(B)∏*R2(C)*÷y×5(D)〔*+1〕/〔*^2+1〕/28、下面邏輯表達(dá)式的值為真的是〔〕。(A)"A">"a"(B)"abc">"bc"(C)"That">"Thank"(D)12>12.19、以下過(guò)程定義語(yǔ)句說(shuō)明不合法的是〔〕。(A)Subf1(ByRefn()AsInteger)(B)Subf1(ByRefnAsInteger)(C)Subf1(ByValn()AsInteger)(D)Subf1(ByValnAsInteger)10、執(zhí)行下面的4個(gè)打印語(yǔ)句，將出錯(cuò)的是〔

〕。(A)Printa=3+5(B)Print"a=";3+5(C)Print"a=3+5"(D)Printa=;3+511、語(yǔ)句Fori=-3To20Step4的循環(huán)次數(shù)為〔〕。(A)5(B)6 (C)7 (D)812、以下表達(dá)中錯(cuò)誤的選項(xiàng)是〔〕。(A)列表框與組合框都有List屬性(B)列表框與組合框都有Selected屬性(C)列表框和組合框都有Te*t屬性(D)列表框與組合框都有Enabled屬性13、窗體Form1里有兩個(gè)對(duì)象，分別是圖片框P1和標(biāo)簽L1。則下面關(guān)于Print方法的使用中，錯(cuò)誤的語(yǔ)句為〔〕。(A)P1.Print

147(B)Print

147(C)Form1.Print

147(D)L1.Print14714、通過(guò)設(shè)置圖像框Image的〔〕屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框Image的尺寸。(A)Autosize(B)Stretch(C)AutoRedraw(D)Appearance15、執(zhí)行語(yǔ)句PrintLeft("VisualBasic",3)，在窗體上顯示的內(nèi)容是〔〕。(A)VVV(B)Vis(C)s(D)sualBasic16、以下表達(dá)中正確的選項(xiàng)是〔〕。(A)窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體(B)窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本(C)可以在運(yùn)行期間改變對(duì)象的Name屬性的值(D)對(duì)象的Name屬性值可以為空17、設(shè)*是整型變量，與函數(shù)IIf(*>0,-*,*)有一樣結(jié)果的代數(shù)式是〔〕。(A)|*|(B)-|*|(C)*(D)-*18、將組合框bo1當(dāng)前選中的工程內(nèi)容賦值給變量S，正確的語(yǔ)句是〔〕。(A)S=bo1.Te*t(B)S=bo1.Value(C)S=bo1.List(D)S=bo1.List(0)19、建立一個(gè)圖書資料管理輸入界面，要求選擇圖書的借閱情況(借出/未借)、語(yǔ)種〔中文/英文/日文/其他〕及分類〔8類，存在重復(fù)分類，一本圖書既屬于1類，也同時(shí)屬于2類〕。應(yīng)如何在窗體中利用單項(xiàng)選擇鈕和復(fù)選框?qū)崿F(xiàn)〔〕。(A)用一組14個(gè)復(fù)選框來(lái)實(shí)現(xiàn)(B)將8種分類用一組8個(gè)復(fù)選框、借閱情況和語(yǔ)種用一組6個(gè)單項(xiàng)選擇鈕實(shí)現(xiàn)(C)將8種分類用一組8個(gè)單項(xiàng)選擇鈕、借閱情況和語(yǔ)種用6個(gè)復(fù)選框?qū)崿F(xiàn)(D)將8種分類用一組8個(gè)復(fù)選框、借閱情況用一組2個(gè)單項(xiàng)選擇鈕、語(yǔ)種用一組4個(gè)單項(xiàng)選擇鈕實(shí)現(xiàn)20、A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形三條邊長(zhǎng)的邏輯表達(dá)式是〔〕。(A)A>=BAndB>=CAndC>0(B)A+C>BAndB+C>AAndC>0(C)(A+B)>=CAndA-B<=C)AndC>0(D)A+B>CAndA-B>CAndC>021、執(zhí)行〔〕后，會(huì)彈出如以下圖所示的窗口。(A)*=InputBo*("輸入框","請(qǐng)輸入VB數(shù)據(jù)")(B)InputBo*("輸入框","請(qǐng)輸入VB數(shù)據(jù)")(C)*=InputBo*("請(qǐng)輸入VB數(shù)據(jù)","輸入框")(D)InputBo*("請(qǐng)輸入VB數(shù)據(jù)","輸入框")22、窗體有Te*t1文本框和mand1命令按鈕，并有以下代碼：PrivateSubmand1_Click()DimnIfTe*t1.Te*t<>"123456"Thenn=n+1Print"口令輸入錯(cuò)誤"&n&"次！"EndIfEndSub希望程序運(yùn)行時(shí)假設(shè)輸入口令不正確，顯示出錯(cuò)的次數(shù)〔如下面圖〕，但實(shí)際運(yùn)行時(shí)沒有出現(xiàn)預(yù)期效果〔如上面圖〕。修改方案中正確的選項(xiàng)是〔〕。(A)在Dimn后添加一句：n=0(B)將Dimn改為Dimn%(C)將Dimn放到“通用〞-“聲明〞處(D)將Print"口令輸入錯(cuò)誤"&n&"次！"改為Print"口令輸入錯(cuò)誤"+n+"次！"23、剛建立一個(gè)新的標(biāo)準(zhǔn)E*E工程后，不在工具箱中出現(xiàn)的控件是〔〕。(A)單項(xiàng)選擇按鈕(B)圖片框(C)通用對(duì)話框(D)文本框24、設(shè)有語(yǔ)句Open"c:\Test.Dat"ForOutputAs*1，則以下錯(cuò)誤的表達(dá)是〔〕。(A)該語(yǔ)句翻開C盤根目錄下一個(gè)已存在的文件Test.Dat(B)該語(yǔ)句在C盤根目錄下建立一個(gè)名為Test.Dat的文件(C)該語(yǔ)句建立的文件的文件號(hào)為1(D)執(zhí)行該語(yǔ)句后，就可以通過(guò)Print*語(yǔ)句向文件Test.Dat中寫入信息25、滾動(dòng)條產(chǎn)生Change事件是因?yàn)椤病持蹈淖兞恕?A)Ma*(B)Min(C)Value(D)Caption二、程序閱讀題〔每題3分，共15分〕1、執(zhí)行下面的程序段后，列表框List1中余下的兩項(xiàng)為1和3。Fori=1To4List1.AddItemiNe*tiFori=1To2List1.RemoveItemiNe*ti2、執(zhí)行下面的程序段后，輸出結(jié)果為2121。*=5ForI=1To20Step2*=*+I\5Ne*tIPrint*,I3、執(zhí)行下面的程序段后，則在Te*t1中顯示的值為24。DimA%(10,10),i%,j%Fori=1To10Forj=1To10A(i,j)=i+jNe*tNe*tTe*t1.Te*t=A(5,A(2,3))+A(7,A(3,4))4、執(zhí)行下面的程序段后，在輸入對(duì)話框中分別輸入321和456，則窗體上的輸出結(jié)果為321456。a=InputBo*("請(qǐng)輸入一個(gè)整數(shù)")b=InputBo*("請(qǐng)輸入一個(gè)整數(shù)")Printa+b5、程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為518。PrivateSubmand1_Click()Dim*%,y%*=5:y=3Callproc(*,y)Label1.Caption=*Label2.Caption=yEndSubPrivateSubproc(ByValaAsInteger,bAsInteger)a=a*bb=a+bEndSub三、填空題〔每空2分,共40分〕1、請(qǐng)完善程序，功能是：隨機(jī)生成一個(gè)8位數(shù)的整數(shù)，統(tǒng)計(jì)0～9這10個(gè)數(shù)字在生成的8位整數(shù)中出現(xiàn)的次數(shù)，并顯示統(tǒng)計(jì)結(jié)果。Dimi%,s&,j%,a(0To9)AsIntegers=___int(rnd*9+1)&_int(rnd*10)&__int(rnd*10)_&_int(rnd*10)&_int(rnd*10)&_int(rnd*10)&_int(rnd*10)&_int(rnd*10)___Print"這個(gè)八位數(shù)是";sPrint"其中"Forj=1To8c=Val(Mid(s,j,1))a(c)=__a(c)+1___Ne*tjFori=0To9Ifa(i)<>0ThenPrinti;"出現(xiàn)的次數(shù)";___a(i)______endif_____Ne*ti2、窗體上有一個(gè)名為L(zhǎng)ist1的列表框，一個(gè)名稱為Te*t1的文本框，一個(gè)命令按鈕，標(biāo)題分別為“計(jì)算〞。編寫代碼實(shí)現(xiàn)：1〕程序啟動(dòng)時(shí)，將所有的3位素?cái)?shù)添加到列表框中。函數(shù)Prime用于判斷一個(gè)數(shù)是否為素?cái)?shù)。請(qǐng)完善程序。2〕單擊“計(jì)算〞按鈕，則對(duì)List1中的數(shù)進(jìn)展累加求和，并在文本框中顯示計(jì)算結(jié)果。請(qǐng)完善程序。FunctionPrime(n%)AsBoolean'判斷素?cái)?shù)函數(shù)

Dimi%Prime=true

Fori=2ToSqr(n)Ifnmodi=0Then

Prime=False

Ne*tEndFunction

PrivateSubForm_Load()Dimi%,j%,tAsBooleanFori=100To999Ifprime(i)=trueThenList1.AddItemiNe*tiEndSubPrivateSubmand1_Click()‘計(jì)算Dimi%，sum%Fori=0ToList1.ListCount-1Sum=sum+Val(List1.List(i))Ne*tTe*t1.Te*t=SumEndSub3、將“ABC〞添加到列表框List1中第三項(xiàng)的語(yǔ)句為：List1.AddItem"ABC",2。4、求分段函數(shù)的值，可用y=IIf(*>=0,1+*,*^2+abs(2**))。5、設(shè)置文本框Te*t1中的文本字體顏色為紅色的語(yǔ)句為：Te*t1.ForeColor=vbRed。6、命令按鈕mand1左移200，實(shí)現(xiàn)語(yǔ)句是mand1.Movemand1.Left-200。7、將D:根目錄下的順序文件t1.t*t內(nèi)容讀入變量S，并顯示在文本框Te*t1中；繼而將其中的字母〔包括大小寫〕、數(shù)字及其它字符的分別串成不同的字符串，最后將結(jié)果顯示在圖形框P1中。請(qǐng)完善程序段。Dims$,i%,c$,n1$,n2$,n3$Open"D:\t1.t*t"For【15】As*1DoWhile【16】s=【17】'文件的內(nèi)容逐個(gè)讀入變量sTe*t1.Te*t=Te*t1.Te*t&sLoopClose*1Fori=1ToLen(s)c=Mid(【18】)SelectCasecCase【19】n1=n1&cCase"0"To"9"n2=n2&c【20】n3=n3&cEndSelectNe*tP1.Print"字母串為：";n1P1.Print"數(shù)字串為：";n2P1.Print"其它字符串為：";n3四、程序設(shè)計(jì)題〔每題10分，共20分〕1、編程計(jì)算圓周率Pi的近似值。計(jì)算公式如下，一直到1/i小于0.0000001為止。2、編寫程序，形成數(shù)列1，1，1，3，5，9，17，……的前N項(xiàng)〔該數(shù)列的規(guī)律是從第四項(xiàng)開場(chǎng)，每一項(xiàng)為哪一項(xiàng)前三項(xiàng)之和〕，直到*項(xiàng)的值超過(guò)50000。期末自測(cè)題〔B卷〕一、單項(xiàng)選擇題〔每題1分，共25分〕1、是Internet上的()。(A)IP地址(B)域名(C)密碼(D)軟件編號(hào)2、..是Internet上的()。(A)IP地址(B)域名(C)密碼(D)軟件編號(hào)3、計(jì)算機(jī)病毒是〔〕。(A)一種令人生畏的傳染病(B)一種使硬盤無(wú)法工作的細(xì)菌(C)一種可治的病毒性疾病(D)一種使計(jì)算機(jī)無(wú)法正常工作的破壞性程序4、以下表示存儲(chǔ)容量的數(shù)據(jù)中，〔〕是最大的。(A)1.44MB(B)20480KB(C)1GB(D)48657Byte5、以下設(shè)備中，不能作為計(jì)算機(jī)輸出設(shè)備的是〔〕。(A)顯示器(B)繪圖儀(C)掃描儀(D)打印機(jī)6、以下字符序列中，可以作為變量名的是〔〕。(A)a24(B)ab*d(C)a$*(D)CdE7、表達(dá)式5Mod3+3\5*2的值是〔〕。(A)0(B)2(C)4(D)68、改變控件在窗體中的上下位置，應(yīng)修改控件的〔〕屬性。(A)Top(B)Left(C)Width

(D)Right9、以下語(yǔ)句錯(cuò)誤的選項(xiàng)是〔〕。(A)E*itFor(B)E*itIf(C)E*itDo(D)E*itSub10、在默認(rèn)情況下，InputBo*函數(shù)返回值的類型為〔〕。(A)數(shù)值(B)字符串(C)變體(D)數(shù)值或字符串(視輸入的數(shù)據(jù)而定)11、窗體上有一水平滾動(dòng)條，其Ma*為1，Min為100。以下表達(dá)中正確的選項(xiàng)是〔〕。(A)程序運(yùn)行時(shí)，假設(shè)使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值會(huì)增大(B)程序運(yùn)行時(shí)，假設(shè)使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值會(huì)減小(C)由于滾動(dòng)條的Ma*值小于Min值，程序出錯(cuò)(D)由于滾動(dòng)條的Ma*值小于Min值，程序運(yùn)行時(shí)滾動(dòng)條的長(zhǎng)度會(huì)縮為一點(diǎn)，滑塊無(wú)法移動(dòng)12、在窗體上有兩個(gè)名分別為Op1、Op2的單項(xiàng)選擇按鈕，一個(gè)名稱為Ck1的復(fù)選框。程序運(yùn)行后，要求Op1和Ck1被選中，以下能實(shí)現(xiàn)上述操作的程序段是〔〕。(A)Op1.Value=TrueCk1.Value=True(B)Op1.Value=TrueCk1.Value=1(C)Op1.Value=FalseCk1.Value=0(D)Op1.Value=TrueCk1.Value=213、設(shè)*=30,執(zhí)行語(yǔ)句y=IIf(*>10,*+10,IIf(*<0,*^2,*^3))后，y值是〔〕。(A)30(B)40(C)900(D)270014、以下定義數(shù)組或給數(shù)組元素賦值的語(yǔ)句中，正確的選項(xiàng)是〔〕?！睞〕DimaAsVarianta=Array(1,2,3,4,5)〔B〕Dima(10)AsIntegera=Array(1,2,3,4,5)〔C〕Dima%(10)a(1)="ABCDE"〔D〕Dima(3),b(3)AsIntegera(0)=0:a(1)=1:a(2)=2:b=a15、以下語(yǔ)句中錯(cuò)誤的選項(xiàng)是〔〕。(A)Te*t1.Te*t=List1.Te*t(B)Label1.Caption=List1.Te*t(C)List1.Name=List1.Te*t(D)mand1.Caption=List1.Te*t16、以下表達(dá)中錯(cuò)誤的選項(xiàng)是〔〕。(A)列表框與組合框都有List屬性(B)列表框有Selected屬性，而組合框沒有(C)列表框和組合框都有Style屬性(D)組合框有Te*t屬性，而列表框沒有17、如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為〔〕。(A)=(B)*(C)&(D)-18、將組合框bo1當(dāng)前選中的工程下標(biāo)賦值給變量S，正確的語(yǔ)句是〔〕。(A)S=bo1.Te*t(B)S=bo1.ListInde*(C)S=bo1.List(D)S=bo1.List(0)19、要向文件t1.t*t添加數(shù)據(jù)，正確的文件翻開命令是〔〕。(A)Open"t1.t*t"ForWriteAs*1(B)Open"t1.t*t"ForAppendAs*1(C)Open"t1.t*t"ForInputAs*1(D)Open"t1.t*t"ForOutputAs*120、表達(dá)式Abs(-5)+Len("ABCDE")的值是〔〕。(A)-5ABCDE(B)5ABCDE(C)0(D)1021、執(zhí)行語(yǔ)句PrintMid("VisualBasic",3)，在窗體上顯示的內(nèi)容是〔〕。(A)s(B)Vis(C)sua(D)sualBasic22、VB中窗體、圖片框或圖像框裝入圖形可使用〔

〕函數(shù)。(A)LoadPicture(B)PictureLoad(C)LoadImage(D)Imageload23、有如下聲明語(yǔ)句：Dimstr1AsString*5，則執(zhí)行語(yǔ)句Str1="VisualBasic"后，str1的值是〔〕。(A)Visual(B)Visua(C)VisualBasic(D)V24、窗體上有兩個(gè)列表框List1和List2，List1中有假設(shè)干工程〔如以下圖所示〕，并有下面程序：PrivateSubmand1_Click()Fork=0ToList1.ListCount-1IfList1.Selected(k)ThenList2.AddItemList1.List(k)List1.RemoveItemkEndIfNe*tkEndSub程序運(yùn)行時(shí)假設(shè)按圖示在List1中選中2個(gè)工程并單擊命令按鈕，則產(chǎn)生的結(jié)果是〔〕。(A)在List2中添加了“物理〞、“計(jì)算機(jī)〞兩項(xiàng)(B)在List1中刪除了“物理〞、“計(jì)算機(jī)〞兩項(xiàng)(C)同時(shí)產(chǎn)生(A)和(B)的結(jié)果(D)出現(xiàn)錯(cuò)誤提示25、能表示身高H超于1.7米且體重W小于62.5千克的邏輯表達(dá)式是〔〕。(A)H>1.7AndW<=62.5(B)H<=1.7OrW>=62.5(C)H>1.7AndW<62.5(D)H>1.7OrW<62.5二、程序閱讀題〔每題3分，共15分〕1、程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為135。PrivateSubmand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub2、以下程序片段運(yùn)行后輸出a的值是3。a=0Fori=1To3Forj=1To3Ifj<iThena=a+1Ne*tjNe*tiPrinta3、程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為253。PrivateSubmand1_Click()Dim*%,y%*=5:y=3Callproc(*,y)Label1.Caption=*Label2.Caption=yEndSubPrivateSubproc(aAsInteger,ByValbAsInteger)a=a*ab=b+bEndSub4、程序運(yùn)行后，單擊命令按鈕，則變量a的值是負(fù)。PrivateSubmand1_Click()temp=Int(-0.8)SelectCasetempCaseIs<0a="負(fù)"Case0a="零"CaseIs>0a="正"EndSelectEndSub5、執(zhí)行下面的程序段后，輸出結(jié)果為93。DimA%(10,10),i%,j%Fori=1To10Forj=1To10A(i,j)=i*jNe*tNe*tPrintA(5,A(2,3))+A(7,A(3,3))三、填空題〔共40分，每空2分〕1、要使用以下For循環(huán)執(zhí)行20次，請(qǐng)?jiān)谙聞澗€處填入正確的值。Fork=99To–2Step-52、命令按鈕mand1右移200，實(shí)現(xiàn)語(yǔ)句是mand1.Movemand1.Left+200。3、設(shè)a、b、c都是整型變量，判斷“a和b中有一個(gè)小于c〞的表達(dá)式是iif(a>b,b<c,a<c)。4、請(qǐng)完善程序，功能是：在文本框Te*t1中輸入一串字符，在窗體上輸出其中出現(xiàn)頻率最高的字母〔不區(qū)分大小寫〕及其出現(xiàn)次數(shù)。例如：輸入“Thisisabeautifulworld.〞則輸出“使用頻率最高的是i，共出現(xiàn)3次。〞PrivateSubmand1_Click()Dims$,a%(65To90),i%,ma*%,n%s=Te*t1.Te*tFori=1ToLen(s)n=Asc(Ucase(mid(s,I,1)))Ifn>=65Andn<=90ThenA(n)=a(n)+1EndIfNe*tma*=65Fori=65to90Ifa(i)>a(ma*)Thenma*=iNe*tPrint"使用頻率最高的是:"&chr(ma*)&",共出現(xiàn)"&a(ma*)&"次。"EndSub5、窗體上有一個(gè)名為L(zhǎng)ist1的列表框，一個(gè)名稱為Te*t1的文本框，一個(gè)命令按鈕，標(biāo)題分別為“計(jì)算〞。1〕程序啟動(dòng)時(shí)，將1000以內(nèi)完數(shù)添加到列表框中。函數(shù)PerfNum用于判斷一個(gè)數(shù)是否為完數(shù)(一個(gè)數(shù)如果恰好等于它的因子之和，這個(gè)數(shù)就被稱為“完數(shù)〞。一個(gè)數(shù)的因子是指除了該數(shù)本身以外能夠被其整除的數(shù))。請(qǐng)完善程序。2〕單擊“計(jì)算〞按鈕，則對(duì)List1中的數(shù)進(jìn)展累加求和，并在文本框中顯示計(jì)算結(jié)果。請(qǐng)完善程序。FunctionPerfNum(n%)AsBoolean'判斷