vb期末考試練習(xí)卷3和答案-醫(yī)藥衛(wèi)生

vb期末考試練習(xí)卷3和答案-醫(yī)藥衛(wèi)生-讓每個(gè)人同樣地提高自我練習(xí)卷三一、語言基礎(chǔ)題（40分）判斷題（本題10分，每題1分）1．都能顯示和輸入文字是控件TextBox與Label的共同特點(diǎn)之一。2．DoUntil----Loop語句實(shí)現(xiàn)循環(huán)時(shí),當(dāng)條件為False時(shí)才執(zhí)行循環(huán)。3．經(jīng)過vb編譯生成的文件擁有.EXE文件擴(kuò)展名，該文件只能在VB環(huán)境下執(zhí)行。4．InputBox函數(shù)的數(shù)據(jù)種類是String。5．變量尾部的%符號隱式申明變量為整型。6．Dima1,a2asInteger語句顯式申明變量a1和a2都為整型變量。7．過程調(diào)用時(shí)，實(shí)質(zhì)參數(shù)的個(gè)數(shù)與形式參數(shù)的個(gè)數(shù)不必然要相等。8．能夠在窗體或標(biāo)準(zhǔn)模塊的通用申明部分申明全局變量，但不能夠夠在過程里申明全局變量。1/99．控件數(shù)組的每個(gè)元素都有同樣的Name屬性值和不同樣的Index屬性值，此中最小的Index屬性值為0。10．當(dāng)拖曳轉(zhuǎn)動條中的轉(zhuǎn)動框時(shí)，便發(fā)生轉(zhuǎn)動條Scroll事件。單項(xiàng)選擇題（本題10分，每題1分）1．改變某控件在窗體中的上下地址應(yīng)更正該控件的( )屬性。[A][B][C]Top[D]Left2．假定flge是邏輯型變量,下邊賦值語句中正確的選項(xiàng)是( )[A]flge='True'[B]flge=“True"[C]flge=#True#[D]flge=343．一個(gè)對象能夠執(zhí)行的動作和可被對象識其他動作分別稱為:事件、方法[B]方法、事件屬性、方法[D]過程、事件4．Sub過程與Function過程最根本的差別是:前者能夠使用Call或直接使用過程名調(diào)用,后者不能夠夠.后者能夠有參數(shù),前者不能夠夠.兩種過程參數(shù)的傳達(dá)方式不同樣.前者無返回值,但后者有.5．列表框控件的以下幾個(gè)屬性中,哪一個(gè)不是數(shù)組:[A]List[B]ListIndex[C]Selected[D]ItemData2/96．下邊哪一各種類的對象不能夠作為控件的容器:Form[B]PictureBox[C]Shape[D]Frame7．下邊哪一種控件不支持Change事件:TextBox[B]Label[C]PictureBox[D]ListBox8．以下函數(shù)中,返回值是字符串的是:[A]Chr[B]InStr[C]Val[D]Asc9．搬動轉(zhuǎn)動條中的轉(zhuǎn)動框,將觸發(fā)該轉(zhuǎn)動條的什么事件:Scale[B]KeyDown[C]Change[D]Scroll10．下邊哪一種對象沒有Caption屬性:Form[B]TextBoxCommondButton[D]Frame填空題（本題20分，每題2分）1．準(zhǔn)時(shí)器控件的Interval屬性值是指時(shí)間間隔，當(dāng)每隔此間隔的時(shí)間，準(zhǔn)時(shí)器會觸發(fā)一次事件。2．VB為增添到窗體上的第一個(gè)圖片框供給的默認(rèn)對象名為。3．當(dāng)復(fù)選框被選中,它的Value屬性值為。4．在過程調(diào)用中，參數(shù)傳達(dá)分為按值傳達(dá)和按地址傳達(dá)，此中按地址傳達(dá)是默認(rèn)方式。使用關(guān)-讓每個(gè)人同樣地提高自我鍵字來修飾參數(shù)，能夠使之按值傳達(dá)。3/95．判斷變量X是否是能被5整除的偶數(shù)，邏輯表達(dá)式寫為。6．表達(dá)式（-5）Mod8的值為。7．若是在模塊的申明段中有OptionBase0語句,則在模塊中使用Dima(6,3To5)申明的數(shù)組有個(gè)元素8．若是要強(qiáng)迫變量的申明,應(yīng)在模塊的申明段使用語句。9．已知a、b、c都是整型變量,，描述條件a和b中最少有一個(gè)大于c的VB邏輯表達(dá)式是。10．申明變量種類有二種方法，它們是：。二、程序閱讀題（本題20分，每題5分）1．設(shè)窗體上有兩個(gè)控件：文本框Text1和按鈕Command1,下邊是按鈕的Click事件過程,單擊按鈕后,文本框中最后顯示什么:PrivateSubCommand1_Click( )Dima(2,4)AsInteger,b(4)AsIntegerDimcAsIntegerDoWhilec=4a(1,c)=a(1,c)+2*c-1a(2,c)=a(2,c)+12-2*cc=c+1Loop4/9c=1DoWhilec=4b(c)=a(1,c)+a(2,5-c)=b(c)c=c+1LoopEndSub2．單擊窗體打印出的結(jié)果是：PrivateSubForm_click( )A=1：B=ADoUntilA=5X=A*BPrintStr$(A)"*"Str$(B)"=";Str$(X)A=A+BB=B+ALoopEndSub3．單擊窗體打印出的結(jié)果是：PrivateSubForm_Click( )5/9DimF(2)ForI=0To2F(I)=SQ(I*I+1)NextII=I-1DoUntilI=0I=I-1Print"F(";I;")=";F(I)-讓每個(gè)人同樣地提高自我LoopEndSubPublicFunctionSQ(X)X=X+2SQ=X*4-5EndFunction4．當(dāng)單擊窗體時(shí),窗體上顯示內(nèi)容的第一行和第二行分別是:PrivateSubForm_Click( )test2EndSubPublicSubtest(xAsInteger)x=x*2+16/9Ifx6ThenCalltest(x)EndIfx=x*2+1PrintxEndSub三、程序填空題（本題20分，每空2分）1．用隨機(jī)數(shù)產(chǎn)生十個(gè)[10---50]的隨機(jī)整數(shù)(包含10和50),并按由小到大序次并五個(gè)一行打印出來OptionBase1Dima(10)AsIntegerPrivateSubForm_Click( )Dimi,jAsIntegerDimtAsIntegerRandomizeFori=1To10a(i)=----(1)---NextiPrint"排序前數(shù)據(jù):"Fori=1To----(2)---Printa(i);7/9If----(3)---ThenPrintNextiPrintFori=1To9imin=iForj=----(4)---To10Ifa(imin)a(j)Thenimin=jNextjt=a(i)a(i)=a(imin)a(imin)=----(5)