VB期末考試考卷及答案

VB期末考試試卷及答案一·選擇題1.VisualBasic是一種面向?qū)ο蟮某绦蛟O(shè)計語言，構(gòu)成對象的三要素是（B）A屬性、控件和方法C窗體、控件和過程B屬性、事件和方法D控件、過程和模塊2.所有控件都有一個共同的屬性，這個屬性是（C）AtextBfontCnameDcaption3.下列敘述中錯誤的是（A）A工程文件擴展名是.vbgC窗體模塊的擴展名是.frmB標準模塊文件的擴展名是.basD類模塊的擴展名是.cls4.當(dāng)要編寫一個新的VisualBasic程序時，所做的第一件事是（A）A新建一個工程C設(shè)置屬性B編寫代碼D添加ActiveX控件5.下面控件中，沒有caption屬性的是（B）A框架B組合框C命令按鈕D復(fù)選按鈕6.B）AMultiLineCTextBPasswordCharDselText7.若要將窗體從內(nèi)存中卸載出去，其實現(xiàn)的方法是（D）AShowBHideCLoadDUnLoad8.下列關(guān)于過程敘述不正確的是（D）A過程的傳值調(diào)用是將實參的具體值傳值傳遞給形參B過程的傳址調(diào)用是將實參在內(nèi)存的地址傳遞給形參C過程的傳值調(diào)用參數(shù)是單向傳遞的，過程的傳址調(diào)用參數(shù)是雙向傳遞的D無論過程傳值調(diào)用還是傳地址調(diào)用，參數(shù)傳遞都是雙向的9.某人創(chuàng)建1個工程，其中的窗體名為Form1，之后又添加了1個名為Form2的窗體，并希望程序執(zhí)行時先顯示Form2窗體，那么，他需要做的工作是（C）A在Form1的Load事件過程中加入語句LoadForm2B在Form2的Load事件過程中加入語句Form2.ShowC在“過程屬性”對話框中把“啟動對象”設(shè)置為Form2D在Form2的TabIndex屬性設(shè)置為1，把Form1的TabIndex屬性設(shè)置為210.以下關(guān)于文件的敘述中，正確的是（B）A以O(shè)utput方式打開一個不存在的文件時，系統(tǒng)將顯示出錯信息B以Append方式打開的文件，既可以進行讀操作，也可以進行寫操作C在隨機文件在，每個記錄的長度是固定的D無論是順序文件還是隨機文件，其打開的語句和打開的方式都是完全相同的11.設(shè)a=6，b=8，c=10則函數(shù)IIf(a<b,Iif(b<c,c,b),a+b)的返回值是（A）A10B6C8D1212.下面程序的執(zhí)行結(jié)果為（B）I=”1”:j=”2”I=val(i)+val(j)J=val(“12”)Ifi<>jThenprinti-jElseprintj-iA9B-9D0C1213.下面程序的執(zhí)行結(jié)果為（A）DimS(10)ASIntegerFori=0to10S(I)=2*iNextiPrintS(S(3))A12B6D4C0二·程序填空題：1.以下事件，其功能是求數(shù)組中各元素之和，并將結(jié)果在標簽上顯示，請在指定位置填上正確代碼將程序補充完整。OptionBase1PrivateSubCommand1_Click()Dima(3,2)ASIntegerS=0Fori=1to3Forj=1to2a(I,j)=i+js=【1】NextjNexti【2】EndSub2.下面程序的功能是產(chǎn)生10個小于100（不含100）的隨機正整數(shù)，并統(tǒng)計其中5的倍數(shù)所占比例，請在指定位置填上正確代碼將程序補充完整。PrivateSubCommand1_Click()RandomiseDima(10)AsIntegerForj=1to10a(i)=【3】If【4】Thenk=k+1Printa(j)NextjPrintPrintk/10EndSub3.以下程序運行后，在Text1中輸入任意字符串，單擊命令按鈕，將Text1中的字符串轉(zhuǎn)換為大寫，再將字符串逆置（如Text2中顯示逆置后的字符串。請在指定位置填上正確代碼將程序補充完整。PrivateSubCommand1_Click()St=Ucase(Text1.text)Fori=【5】To1Step-1S2=s2+Mid(s1,【6】,1)Text2.text=s2EndSub4.Nexti設(shè)有如下的循環(huán)，要求程序運行時執(zhí)行3次循環(huán)，請在指定位置填上正確代碼將程序補充完整。DimxAsIntegerX=1Dox=x+2PrintxLoopUntil【7】5.名稱將添加在列表框中，當(dāng)組合框中沒有要選的大學(xué)名稱時，輸入一個名稱，則此大學(xué)名稱在添加列表框中的同時也會添加到組合框中，請在指定位置填上正確代碼將程序補充完整。PrivateSubForm_Load()Combo1.AddItem”交通大學(xué)”Combo1.AddItem”理工大學(xué)”Combo1.AddItem”財經(jīng)大學(xué)”Combo1.AddItem”外貿(mào)大學(xué)”EndSubPrivateSubCommand1_Click()【8】Flag=FlaseFori=0to【9】IfCombo1.List(i)=Combo1.TextThenflag=True:EixtForEndIfNextiIfNotflagThen【10】EndSub6.下面程序的功能是對數(shù)組的元素值用選擇法按遞增順序排序，請在指定位置填上正確代碼將程序補充完整。PrivateSubCommand1_Click()Dimia(),i%,max%,imax%.t%Ia=Array(3,8,5,6,7,4,9)Fori=0To5:imax=iForj=i+1To6If【11】Thenimax=jNextjT=ia(i):【12】:ia(imax)=tNextiFori=0To6:Printia(i):NextiEndSub7.窗體上有名稱為Command1的命令按鈕及名稱為程序運行后，如果單擊命令按鈕，則可打開磁盤文件c:\test.txt，并將文件中的內(nèi)容（多行文本）顯示在文本框中。下面是實現(xiàn)此功能的程序，請在指定位置填上正確代碼將程序補充完整。PrivateSubCommand1_Click()Text1=””O(jiān)pen”c:\test.txt”ForInputAs#1DoWhileNot【13】LineInput#1,SText1.text=Text1.text+【14】+chr(13)+chr(10)Loop【15】EndSub答案：1.S+a(I,j)2.Label10=S3.Int(Rnd*99)4.a(i)mod5=05.Len(S1)6.i7.x=78.List1.AddItemCombo1.text9.3/ListCount11.a(j)>imax10.Combo1.AddItemCombo1.text12.ia(i)=ia(imax)13.Eof14.S15.Close#1三·閱讀程序，在答題紙指定位置寫出程序運行結(jié)果。1.以下程序運行后，單擊命令按鈕，寫出程序的運行結(jié)果。PrivateSubCommand1_Click()Dimn%,b,tt=1:b=1DoWhilen<=4:n=2Ifb>1ThenExitDob=b*n:t=t+b:n=n+1LoopPrint“t=”&tEndSub2.在窗體中添加一個命令按鈕Command1，并編寫如下程序：PrivateSubCommand1_Click()X=InputBox(x)Ifx^2<=9Theny=1/xIfx^2>9Theny=x^2+1If(x^2)-7=9Theny=xPrint“y=”&yEndSub程序運行后，在InputBox中輸入4，單擊命令按鈕，寫出程序的運行結(jié)果。3.窗體上畫一個命令按鈕，并編寫以下事件過程和子過程：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=20CallValue(x,y)Print“x=”&x,“y=”&yEndSubPrivateSubValue(ByValmAsInteger,nAsInteger)m=m*2：ｎ=n-5EndSub程序運行后，單擊命令按鈕，寫出程序的輸出結(jié)果。4.窗體上畫一個命令按鈕和一個圖像框，并編寫以下事件過程：PrivateSubCommand1_Click()Dima(3,3)Form=1To3Forn=1To3Ifn=mOrn=4–mThena(m,n)=m+nElsea(m,n)=0EndIfPicture1.Printa(m,n)NextnPicture1.PrintNextmEndSub程序運行后，單擊命令按鈕，圖像框中顯示的內(nèi)容是什么?5.在窗體上畫一個列表框和一個命令按鈕Command1，然后編寫如下程序：PrivateSubCommand1_Click()List1.RemoveItem1List1.RemoveItem2EndSubPrivateSubForm_Load()List1.AddItem”蘭州”List1.AddItem”甘肅”List1.AddItem”交通”List1.AddItem”大學(xué)”EndSub程序運行后，單擊命令按