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

第4頁(yè)共14頁(yè)一、選擇題(每題1分，共30分)1、能被對(duì)象所識(shí)別的動(dòng)作與對(duì)象可執(zhí)行的活動(dòng)分別稱為對(duì)象的b。A)方法、事件 B)事件、方法C)事件、屬性 D)過(guò)程、方法2、執(zhí)行語(yǔ)句PrintVal("12A12")的值為b。A)12A B)12C)1212 D)12A13、下列是合法的VB變量名。A)_ab B)W_cdeC)5student D)Name&City4、表達(dá)式6.5*5Mod28\8的值是C。；32.532.5A)0 B)1 C)2 D)35、如果在立即窗口中依次執(zhí)行下列命令：a=8：b=9Printa>b則輸出的結(jié)果是C。A)1 B)0 C)False D)True6、下列表達(dá)式的值為真的是D。A)"A">"a" B)"9">"a"C)12>12.1 D)"That">"Thank"7、表示“X>Y>Z”，正確的VB邏輯表達(dá)式是A。A)X>YAndY>Z B)X>Y>ZC)X>YORY>Z D)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、與語(yǔ)句Dimabc%作用相同的語(yǔ)句是B。A)DimabcAsLong B)DimabcAsIntegerC)DimabcAsString D)DimabcAsDate10、可以查找字符串中給定字符串位置的函數(shù)是D。

A)Ucase B)Len C)Mid D)Instr。11、數(shù)學(xué)表達(dá)式對(duì)應(yīng)的正確VisualBasic表達(dá)式為C。A)-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).frm B).vbp C).bas D).frx13、VisualBasic程序中的注釋所使用的字符是A。A)′ B): C)\ D)_14、要使一個(gè)文本框?qū)ο竽軌蝻@示多行文字，應(yīng)該將對(duì)象設(shè)置為True的屬性值是B。A)Text B)MultiLineC)Style D)VisiblePrintFormat(1236.54,"+##,##0.0%")

A)123456 B)+123,654.0% C)+123,6.54% D)+123,654二、閱讀程序(每題2分，共20分)1、在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是什么？PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextiText1.Text=Str(n)EndSub答：2、建立一窗體并編寫下列事件過(guò)程，單擊窗體執(zhí)行該事件過(guò)程，其輸出結(jié)果是什么？PrivateSubForm_Click()DimxAsIntegerx=Int(Rnd+4)SelectCasexCase5Print"優(yōu)秀"Case4Print"良好"Case3Print"合格"CaseElsePrint"不合格"EndSelectEndSub答：3、運(yù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()DimyAsInteger,iAsIntegerDima(8)AsIntegery=18:i=0Doa(i)=yMod2i=i+1y=y\2LoopUntily<1Forj=i-1To0Step-1Printa(j);NextjEndSub答：5、寫出程序運(yù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)行時(shí)單擊Command1后，在窗體上的輸出結(jié)果。PrivateSubCommand1_Click()DimiAsInteger,aAsIntegera=1Fori=aTo5Stepa+1a=a+1NextiPrinta,iEndSub答：7、寫出程序運(yù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)行時(shí)單擊Command1后，在窗體上的輸出結(jié)果。

PrivateSubCommand1_Click()DimnAsInteger,jAsIntegerj=0:n=0DoWhilen<3j=(j+1)*(j+2)n=n+1LoopPrintj;nEndSub答：9、建立一窗體Form，然后編寫如下程序。程序運(yù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)行程序后，單擊命令按鈕，在Text1中輸出結(jié)果是什么？PrivateSubCommand1_Click）DimFb(10)AsInteger，IAsIntegerFb(l)＝2：Fb(2)＝3ForI=3To5Fb(I)＝Fb(I-2)+Fb(I-1)NextIForI=1To5Text1=Text1＆Str(Fb(I))＆“”NextIEndSub

答：三、程序填空(每空2分，共20分)1、下列程序的功能是從鍵盤上按行輸入一個(gè)3×4二維數(shù)組，求二維數(shù)組各列的和，輸出到窗體。請(qǐng)?jiān)谙聞澗€處填寫適當(dāng)?shù)膬?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)?jiān)谙聞澗€處填寫正確的內(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)NextiEndSub4、本程序的功能是產(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)Ifa(k)=0Then