大學(xué)計(jì)算機(jī)二級(jí)VB試卷

一、選擇題(每題1分，共30分)1、能被對(duì)象所識(shí)其他動(dòng)作與對(duì)象可履行的活動(dòng)分別稱為對(duì)象的。A)方法、事件B)事件、方法C)事件、屬性D)過程、方法2、履行語句PrintVal("12A12")的值為b。A)12AB)12C)1212D)12A13、以下是合法的VB變量名。A)_abB)W_cdeC)5studentD)Name&City4、表達(dá)式6.5*5Mod28\8的值是C。；32.532.5A)0B)1C)2D)35、假如在立刻窗口中挨次履行以下命令：a=8：b=9Printa>b則輸出的結(jié)果是C。A)1B)0C)FalseD)True6、以下表達(dá)式的值為真的是D。A)"A">"a"B)"9">"a"C)12>12.1D)"That">"Thank"7、表示“X>Y>Z”，正確的VB邏輯表達(dá)式是A。A)X>YAndY>ZB)X>Y>Z第1頁共14頁C)X>YORY>ZD)X>YAnd>Z8、函數(shù)CInt、Int、Fix都返回整數(shù)值，以下能正確地描繪它們返回值的大小關(guān)系的是A。A)CInt(-4.51)＝Int(-4.51)<Fix(-4.51)B)Int(-4.51)<CInt(-4.51)<Fix(-4.51)C)CInt(-4.51)<Fix(-4.51)<CInt(-4.51)D)Int(-4.51)<Fix(-4.51)=CInt(-4.51)9、與語句Dimabc%作用同樣的語句是B。A)DimabcAsLongB)DimabcAsIntegerC)DimabcAsStringD)DimabcAsDate10、能夠查找字符串中給定字符串地點(diǎn)的函數(shù)是D。A)UcaseB)LenC)MidD)Instr。11、數(shù)學(xué)表達(dá)式bb24ac對(duì)應(yīng)的正確VisualBasic表達(dá)式為C。2aA)-b+Sqr(b*b-4*a*c)/2*aB)-b+Sqr(b*b-4*a*c)/(2*a)C)(-b+Sqr(b*b-4*a*c))/(2*a)D)(-b+Sqr(b*b-4*a*c))/2*a12、窗體文件的擴(kuò)展名是A。A).frmB).vbpC).basD).frx13、VisualBasic程序中的說明所使用的字符是A。A)′B):C)\D)_14、要使一個(gè)文本框?qū)ο竽軌蝻@示多行文字，應(yīng)當(dāng)將對(duì)象設(shè)置為True的屬性值是B。A)TextB)MultiLineC)StyleD)Visible第2頁共14頁15、履行下邊語句后，Len函數(shù)值最大的是C。DimIAAsInteger,BAsSingle,SAsString*5,ChAsStringIA=32767:B=23.5:S="A":Ch="abcd"A)Len(IA)B)Len(B)C)Len(S)D)Len(Ch)16、若要求從文本框中輸入密碼時(shí)在文本框中只顯示*號(hào)，則應(yīng)當(dāng)在此文本框的屬性窗口中設(shè)置。A)Text屬性值為*B)Caption屬性值為*C)password屬性值為空D)Passwordchar屬性值為*17、窗體上擱置了三個(gè)文本框，若在Text1中輸入456，在Text2中輸入78，在程序中履行了語句Text3=Text1+Text2后，則在Text3中顯示。A)434B)45678C)溢出D)語法錯(cuò)誤18、以下選項(xiàng)中，是十六進(jìn)制數(shù)。A)1234B)&1234C)&O1234D)&H123419、履行語句PrintInt(4*Rnd+1)后，不可以可能出現(xiàn)的值為。A)2B)3C)4D)520、語句段a=3:b=5t=a:a=b:b=t履行后，。A)a值為3，b值為3B)a值為3，b值為5C)a值為5，b值為3D)a值為5，b值為521、Print方法可在上輸出數(shù)據(jù)。①窗體②文本框③圖片框④標(biāo)簽⑤列表框⑥立刻窗口A)①③⑥B)②③⑤C)①②⑤D)③④⑥22、在運(yùn)轉(zhuǎn)程序時(shí)，將焦點(diǎn)移至指定的控件或窗體，則需使用的第3頁共14頁方法是。A)ChangeB)SetFocusC)GetFocusD)Move23、在VisualBasic中最基本的對(duì)象是，它是應(yīng)用程序的基石。A)標(biāo)簽B)窗體C)文本框D)命令按鈕24、以下語句中的語句能夠用來正確地申明一個(gè)動(dòng)向數(shù)組。A)PrivateA(n)AsIntegerB)DimA()AsIntegerC)DimA(,)AsIntegerD)DimA(1ton)25、有程序代碼：Text1.Text="VisualBasic"，此中的Text1、Text和"VisualBasic"分別代表。A)對(duì)象、值、屬性B)對(duì)象、方法、屬性C)對(duì)象、屬性、值D)屬性、對(duì)象、值26、在程序中能夠經(jīng)過復(fù)選框和單項(xiàng)選擇框的屬性來判斷它們的目前狀態(tài)。A)CaptionB)ValueC)CheckedD)Selected27、用窗體的屬性來設(shè)置窗體的標(biāo)題。A)StyleB)TextC)CaptionD)Name28、假如在兩個(gè)菜單命令項(xiàng)之間加一條分開線，可在標(biāo)題文本框中鍵入。A)－B)＋C)&D)#29、假定變量Lng為長整形變量，下邊不可以正常履行的語句是。A)Lng=16384*2B)Lng=4*0.5*16384C)Lng=190^2D)Lng=32768*230、在Form_Click事件中履行以下語句的正確結(jié)果是。第4頁共14頁P(yáng)rintFormat(1236.54,"+##,##0.0%")A)123456B)+123,654.0%C)+123,6.54%D)+123,654二、閱讀程序(每題2分，共20分)1、在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，而后編寫以下事件過程：程序運(yùn)轉(zhuǎn)后，單擊命令按鈕，在文本框中顯示的值是什么？PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextiText1.Text=Str(n)EndSub答：2、成立一窗體并編寫以下事件過程，單擊窗體履行該事件過程，其輸出結(jié)果是什么？PrivateSubForm_Click()DimxAsIntegerx=Int(Rnd+4)SelectCasexCase5Print"優(yōu)異"Case4Print"優(yōu)異"第5頁共14頁Case3Print"合格"CaseElsePrint"不合格"EndSelectEndSub答：3、運(yùn)轉(zhuǎn)程序，當(dāng)單擊窗體時(shí)，窗體上顯示內(nèi)容的第三行是什么？PrivateSubForm_Click()DimsAsString,iAsInteger,n(9)AsIntegerDims1AsString*1,jAsIntegers=Trim("12345a307291b233")Fori=1ToLen(s)s1=Mid(s,i,1)Ifs1>="0"Ands1<="9"Thenj=Val(s1)n(j)=n(j)+1EndIfNextiForj=0To9Printj;":";n(j)NextjEndSub答：4、當(dāng)發(fā)生Command1_Click事件后，以下程序輸出結(jié)果是什么？PrivateSubCommand1_Click()第6頁共14頁DimyAsInteger,iAsIntegerDima(8)AsIntegery=18:i=0Doa(i)=yMod2i=i+1y=y\2LoopUntily<1Forj=i-1To0Step-1Printa(j);NextjEndSub答：5、寫出程序運(yùn)轉(zhuǎn)時(shí)單擊Command1后，窗體上顯示內(nèi)容的第二行是結(jié)果什么。PrivateSubCommand1_Click()DimchAsString,iAsIntegerch="DEF"Fori=1ToLen(ch)ch=Mid(ch,2*i-1,1)&Left(ch,Len(ch))PrintchNextiEndSub答：6、寫出程序運(yùn)轉(zhuǎn)時(shí)單擊Command1后，在窗體上的輸出結(jié)果。PrivateSubCommand1_Click()第7頁共14頁DimiAsInteger,aAsIntegera=1Fori=aTo5Stepa+1a=a+1NextiPrinta,iEndSub答：7、寫出程序運(yùn)轉(zhuǎn)時(shí)單擊Command1后，在窗體上的輸出結(jié)果。OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,a(5)AsIntegerForI=1ToUBound(a)a(I)=I*2+1I=I+1NextIPrinta(3),LBound(a)EndSub答：8、寫出程序運(yùn)轉(zhuǎn)時(shí)單擊Command1后，在窗體上的輸出結(jié)果。PrivateSubCommand1_Click()DimnAsInteger,jAsIntegerj=0:n=0DoWhilen<3j=(j+1)*(j+2)n=n+1第8頁共14頁LoopPrintj;nEndSub答：9、成立一窗體Form，而后編寫以下程序。程序運(yùn)轉(zhuǎn)后，單擊窗體的輸出第三行結(jié)果是什么？PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimt(10,10)AsIntegerFori=1To3Forj=1To3t(i,j)=(i-1)*3+jPrintt(i,j);NextjPrintNextiEndSub答：10、成立一窗體Form，在窗體上畫一文本框Text1和一命令按鈕Command1,而后編寫以下程序，運(yùn)轉(zhuǎn)程序后，單擊命令按鈕，在Text1中輸出結(jié)果是什么？PrivateSubCommand1_Click）DimFb(10)AsInteger，IAsIntegerFb(l)＝2：Fb(2)＝3ForI=3To5Fb(I)＝Fb(I-2)+Fb(I-1)第9頁共14頁NextIForI=1To5Text1=Text1＆Str(Fb(I))＆“”NextIEndSub答：三、程序填空(每空2分，共20分)1、以下程序的功能是從鍵盤上按行輸入一個(gè)3×4二維數(shù)組，求二維數(shù)組各列的和，輸出到窗體。請(qǐng)?jiān)谙聞澗€處填寫適合的內(nèi)容。OptionBase1PrivateSubForm_Click()Dima(3,4)AsInteger,s(4)AsIntegerForj=1To4Fori=1To3a(i,j)=InputBox("請(qǐng)輸入一個(gè)元素的值")NextiNextjForj=1To4s(j)=0Fori=1To3NextiNextjFori=1To4NextiEndSub2、以下程序的功能是求一維數(shù)組的最大值和最小值及其下標(biāo)，請(qǐng)第10頁共14頁在下劃線處填寫正確的內(nèi)容。OptionBase1PrivateSubCommand1_Click()Dimt(10)AsInteger,min_iAsIntegerDimmax_iAsIntegerFori=1To10t(i)=InputBox("請(qǐng)輸入一個(gè)元素值")Nextimin_i=：max_i=Fori=2To10IfThenmin_i=iIfThenmax_i=iNextiPrintt(min_i),min_i,t(max_i),max_iEndSub3、下邊程序的功能是用直接選擇排序法將數(shù)組a中的10個(gè)整數(shù)按降序擺列，請(qǐng)?jiān)谙聞澗€處將程序增補(bǔ)完好。OptionBase1PrivateSubCommand1_Click()Dima,iAsInteger,tempAsIntegerDimjAsInteger,kAsIntegera=Array(678,45,324,528,439,387,87,875,273,823)Fori=k=iForj=Ifa(k)<a(j)Thenk=jNextjIfkiThentemp=a(i)a(i)=a(k)a(k)=tempEndIfNextiFori=1To10Printa(i)Nexti第11頁共14頁EndSub4、本程序的功能是產(chǎn)生10個(gè)個(gè)位數(shù)互不同樣的三位隨機(jī)正整數(shù)，并寄存到下標(biāo)與其個(gè)位數(shù)同樣的數(shù)組元素中。比如395應(yīng)存到a(5)中。OptionExplicitPrivateSubForm_Click()Dima(9)AsInteger,xAsInteger,kAsIntegerDimIAsIntegerRandomizeDoWhileI<=9x=Int(Rnd*900+100)