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

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