大學計算機二級VB試卷

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

A)Ucase B)Len C)Mid D)Instr。11、數(shù)學表達式對應的正確VisualBasic表達式為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、窗體文件的擴展名是A。A).frm B).vbp C).bas D).frx13、VisualBasic程序中的注釋所使用的字符是A。A)′ B): C)\ D)_14、要使一個文本框對象能夠顯示多行文字，應該將對象設置為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、在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：程序運行后，單擊命令按鈕，在文本框中顯示的值是什么？PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextiText1.Text=Str(n)EndSub答：2、建立一窗體并編寫下列事件過程，單擊窗體執(zhí)行該事件過程，其輸出結果是什么？PrivateSubForm_Click()DimxAsIntegerx=Int(Rnd+4)SelectCasexCase5Print"優(yōu)秀"Case4Print"良好"Case3Print"合格"CaseElsePrint"不合格"EndSelectEndSub答：3、運行程序，當單擊窗體時，窗體上顯示內容的第三行是什么？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、當發(fā)生Command1_Click事件后，以下程序輸出結果是什么？PrivateSubCommand1_Click()DimyAsInteger,iAsIntegerDima(8)AsIntegery=18:i=0Doa(i)=yMod2i=i+1y=y\2LoopUntily<1Forj=i-1To0Step-1Printa(j);NextjEndSub答：5、寫出程序運行時單擊Command1后，窗體上顯示內容的第二行是結果什么。PrivateSubCommand1_Click()DimchAsString,iAsIntegerch="DEF"Fori=1ToLen(ch)ch=Mid(ch,2*i-1,1)&Left(ch,Len(ch))PrintchNextiEndSub答：6、寫出程序運行時單擊Command1后，在窗體上的輸出結果。PrivateSubCommand1_Click()DimiAsInteger,aAsIntegera=1Fori=aTo5Stepa+1a=a+1NextiPrinta,iEndSub答：7、寫出程序運行時單擊Command1后，在窗體上的輸出結果。OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,a(5)AsIntegerForI=1ToUBound(a)a(I)=I*2+1I=I+1NextIPrinta(3),LBound(a)EndSub答：8、寫出程序運行時單擊Command1后，在窗體上的輸出結果。

PrivateSubCommand1_Click()DimnAsInteger,jAsIntegerj=0:n=0DoWhilen<3j=(j+1)*(j+2)n=n+1LoopPrintj;nEndSub答：9、建立一窗體Form，然后編寫如下程序。程序運行后，單擊窗體的輸出第三行結果是什么？PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimt(10,10)AsIntegerFori=1To3Forj=1To3t(i,j)=(i-1)*3+jPrintt(i,j);NextjPrintNextiEndSub答：10、建立一窗體Form，在窗體上畫一文本框Text1和一命令按鈕Command1,然后編寫如下程序，運行程序后，單擊命令按鈕，在Text1中輸出結果是什么？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、下列程序的功能是從鍵盤上按行輸入一個3×4二維數(shù)組，求二維數(shù)組各列的和，輸出到窗體。請在下劃線處填寫適當?shù)膬热?。OptionBase1PrivateSubForm_Click()Dima(3,4)AsInteger,s(4)AsIntegerForj=1To4Fori=1To3a(i,j)=InputBox("請輸入一個元素的值")NextiNextjForj=1To4s(j)=0Fori=1To3NextiNextjFori=1To4NextiEndSub2、下列程序的功能是求一維數(shù)組的最大值和最小值及其下標，請在下劃線處填寫正確的內容。OptionBase1PrivateSubCommand1_Click()Dimt(10)AsInteger,min_iAsIntegerDimmax_iAsIntegerFori=1To10t(i)=InputBox("請輸入一個元素值")Nextimin_i=：max_i=Fori=2To10IfThenmin_i=iIfThenmax_i=iNextiPrintt(min_i),min_i,t(max_i),max_iEndSub3、下面程序的功能是用直接選擇排序法將數(shù)組a中的10個整數(shù)按降序排列，請在下劃線處將程序補充完整。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個個位數(shù)互不相同的三位隨機正整數(shù)，并存放到下標與其個位數(shù)相同的數(shù)組元素中。例如395應存到a(5)中。OptionExplicitPrivateSubForm_Click()Dima(9)AsInteger,xAsInteger,kAsIntegerDimIAsIntegerRandomizeDoWhileI<=9x=Int(Rnd*900+100)Ifa(k)=0Then