VB期末考試真題試卷及答案七

一、單項(xiàng)選擇題1、以下____不是VisualBasic程序根本構(gòu)造。A)層次構(gòu)造B)分支構(gòu)造C)循環(huán)構(gòu)造D)順序構(gòu)造2、當(dāng)文本框內(nèi)容發(fā)生變化時(shí)，必將觸發(fā)____事件。A)LostFocusB)KeyPressC)ChangeD)Click3、在VisualBasic中，建立一個(gè)文本編輯區(qū)域，可采用以下____。A)命令按鈕B)標(biāo)簽控件C)文本控件D)定時(shí)器控件4、在VisualBasic中，以下____表達(dá)式值不等于4。A)int(4.1)B)int(4.9)C)Abs(int(-3.9))D)Abs(int(-4.5))5、代數(shù)表達(dá)式中一元二次方和求根公式中一個(gè)改成VB表達(dá)式是____。A)(-b+sqr(b*b-4*a*c))/(2*a)B)-b+sqr(b*b-4*a*c)/(2*a)C)(-b+sqr(b*b-4*a*c))/2*aD)(-b+(b*b-4*a*c))/(2*a)6、在VisualBasic中，以下____程序行是符合語(yǔ)法。A)X=Y=5B)A+B=C^3C)Y=1:Y=Y+17、假定X是一個(gè)數(shù)值型變量，那么由函數(shù)組成表達(dá)式INT〔X/2〕=X/2，作用是____。A)用于測(cè)試X是否偶數(shù)B)返回一個(gè)整數(shù)C)返回一個(gè)奇數(shù)D)用于測(cè)試X是否整數(shù)8、表達(dá)式Abs(-3.6)*sqr(100)值是____。A)-360B)360C)-36D)369、為了使一個(gè)窗體從屏幕消失但仍在內(nèi)存中，所使用方法或語(yǔ)句為_______。A)ShowB)HideC)LoadD)Unload10、要改變新建對(duì)象缺省名稱，應(yīng)使用屬性____。A)FontB)ForeColorC)NameD)Height11、要使一個(gè)命令按鈕顯示文字“確定〞，正確設(shè)置是把它屬性____設(shè)置為“確定〞。A)FontB)ForeColorC)CaptionD)BorderStyle12、在VisualBasic中，以下____單詞用于注釋語(yǔ)句。A)RemB)EndC)ElseD)Loop13、在VisualBasic中，設(shè)置控件位置，可改變以下____屬性。A)Height與WidthB)height與TopC)Left與TopD)Left與Width14、以下語(yǔ)句中____定義了一個(gè)單精度型變量。A)DimIAsIntegerB)DimSumAsSingleC)DimNameAsStringD)wjm="信息技術(shù)"15、要使一個(gè)控件在運(yùn)行時(shí)無效，正確設(shè)置是____。A)把屬性Enabled設(shè)置為TrueB)把屬性Enabled設(shè)置為FalseC)把屬性Visibled設(shè)置為TrueD)把屬性Visibled設(shè)置為False16、下面表達(dá)正確是_______。A)算法執(zhí)行效率與數(shù)據(jù)存儲(chǔ)構(gòu)造無關(guān)B)算法空間復(fù)雜度是指算法程序中指令(或語(yǔ)句)條數(shù)C)算法有窮性是指算法必須能在執(zhí)行有限個(gè)步驟之后終止D)算法時(shí)間復(fù)雜度是指執(zhí)行算法程序所需要時(shí)間17、下面概念中，不屬于面向?qū)ο蠓椒ㄊ莀______。A)對(duì)象、消息B)繼承、多態(tài)C)類、封裝D)過程調(diào)用18、下面描述中，不符合構(gòu)造化程序設(shè)計(jì)風(fēng)格是_______。A)使用順序、選擇和重復(fù)(循環(huán))三種根本控制構(gòu)造表示程序控制邏輯B)自頂向下C)注重提高程序執(zhí)行效率D)限制使用goto語(yǔ)句19、可以同時(shí)刪除字符前導(dǎo)和尾部空格函數(shù)是______。A)LtrimB)RtrimC)TrimD)Mid20、每一個(gè)控件都有屬性是_______。A)TopB)NameC)VisibleD)Interval21、執(zhí)行以下程序段后，變量c$值為______。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$，7，6))&Right$(a$,12)A)VisualBasicProgrammingB)QuickBasicProgrammingC)QUICKBasicProgrammingD)QuickBASICProgramming22、Rnd函數(shù)不可能產(chǎn)生_______值。A)0B)1C23、以下說法錯(cuò)誤是______。A)函數(shù)過程沒有返回值B)子過程沒有返回值C)函數(shù)過程可以帶參數(shù)D)子過程可以帶參數(shù)24、以下哪項(xiàng)是窗體對(duì)象方法而不是屬性______。A)NameB)PrintC)CaptionD)Enabled25、以下關(guān)于文件表達(dá)中，錯(cuò)誤是______。A)順序文件中記錄一個(gè)接一個(gè)地順序存放B)隨機(jī)文件中記錄長(zhǎng)度是隨機(jī)C)執(zhí)行翻開文件命令后，自動(dòng)生成一個(gè)文件指針D)LOF函數(shù)返同給文件分配字節(jié)數(shù)26、計(jì)算機(jī)之所以按人們意志自動(dòng)進(jìn)展工作，最直接原因是因?yàn)椴捎昧薩_______。A)二進(jìn)制數(shù)制B)高速電子元件C)存儲(chǔ)程序控制D)程序設(shè)計(jì)語(yǔ)言27、微型計(jì)算機(jī)主機(jī)主要組成局部是________。A)運(yùn)算器和控制器B)CPU和內(nèi)存儲(chǔ)器C)CPU和硬盤存儲(chǔ)器D)CPU、內(nèi)存儲(chǔ)器和硬盤28、一個(gè)完整計(jì)算機(jī)系統(tǒng)應(yīng)該包括________。A)主機(jī)、鍵盤、和顯示器B)硬件系統(tǒng)和軟件系統(tǒng)C)主機(jī)和其他外部設(shè)備D)系統(tǒng)軟件和應(yīng)用軟件29、計(jì)算機(jī)軟件系統(tǒng)包括________。A)系統(tǒng)軟件和應(yīng)用軟件B)編譯系統(tǒng)和應(yīng)用系統(tǒng)C)數(shù)據(jù)庫(kù)管理系統(tǒng)和數(shù)據(jù)庫(kù)D)程序、相應(yīng)數(shù)據(jù)和文檔30、微型計(jì)算機(jī)中，控制器根本功能是________。A)進(jìn)展算術(shù)和邏輯運(yùn)算B)存儲(chǔ)各種控制信息C)保持各種控制狀態(tài)D)控制計(jì)算機(jī)各部件協(xié)調(diào)一致地工作二、填空題I閱讀程序，寫出以下程序運(yùn)行結(jié)果：1、以下VisualBasic程序段運(yùn)行后,變量M值為__[1]__。a=3:b=2:c=5Ifa<bThenm=aElsem=bIfc<mThenm=c2、在窗體上畫一個(gè)文本框，然后編寫如下事件過程：PrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)KeyAscii=Asc(LCase(char))Textl．Text=String(6，KeyAscii)EndSub程序運(yùn)行后，如果在鍵盤上輸入字母“C〞，那么文本框中顯示內(nèi)容為___[2]____。3、在窗體上畫一個(gè)名稱為Command1命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()StaticxAsIntegerClsFori=lTO2y=y+xx=x+2NextPrintx,yEndSub程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示是___[3]____。4、以下程序段輸出結(jié)果為____[4]____。X=1Y=4DoUntilY>4X=X*YY=Y+1LoopPrintX5、在窗體上畫一個(gè)名稱為Commandl命令按鈕和一個(gè)名稱為Textl文本框，然后編寫如下程序：PrivateSubCommandlClick()Dimx，y，zAsIntegerx=5y=7z=0Textl．Text=＂＂CallPl(x，y，z)Textl．Text=Str(z)EndSubSubPl(ByValaAsInteger，ByValbAsInteger，cAsInteger)c=a+bEndSub程序運(yùn)行后，如果單擊命令按鈕，那么在文本框中顯示內(nèi)容是___[5]____。II在以下程序劃線處填寫適當(dāng)代碼，使之能夠完成題目要求：6、假設(shè)一個(gè)三位數(shù)，它個(gè)、十、百位數(shù)字立方和恰巧等于這個(gè)數(shù)本身，那么把這個(gè)數(shù)稱為水仙花數(shù)。完善程序求出所有水仙花數(shù)。Dimx%,a%,b%,c%Forx=______[6]______Step1a=Int(x/100)b=______[7]______c=x-100*a-10*bIf____________[8]_______________ThenPrintx____[9]_____Nextx7、編程鍵盤輸入5個(gè)數(shù)字，求出其中最接近100數(shù)字。PrivateSubCommand1_Click()Dimi%,x%,Nu%Nu=Val(InputBox("請(qǐng)輸入第一個(gè)數(shù)字"))Print"你輸入五個(gè)數(shù)分別是:"ΝFori=2To5 x=____[10]______("請(qǐng)輸入第"&i&"個(gè)數(shù)")) Printx; IfAbs(x-100)___[11]____Abs(Nu-100)Then ____[12]______ EndIfNextiPrintvbCrLf&"最接近100數(shù)是____[13]______EndSub8、完善程序，自定義一個(gè)名為ProcMin函數(shù)，該函數(shù)能夠承受一個(gè)整型數(shù)組參數(shù)，求出該數(shù)組中最小元素值并將這個(gè)值作為函數(shù)值返回。FunctionProcMin(b%())AsIntegerDimi%,Nmin%____[14]_______=b(LBound(b))Fori=LBound(b)+1To_____[15]________Ifb(i)<NminThen_____[16]______Nexti_____[17]_________EndFunction9、完善程序，完成冒泡排序。程序可隨機(jī)生成指定個(gè)數(shù)[50，80]區(qū)間整數(shù)進(jìn)展排序，在窗體中顯示每一步排序操作結(jié)果。Dim____[18]__________AsInteger,i%,j%,imin%,t%,n%n=Val(InputBox("請(qǐng)輸入數(shù)組元素個(gè)數(shù):"))ReDimia(n)Fori=1Tonia(i)=_____[19]________Printia(i);NextiFori=1TonForj=1To_______[20]____________Ifia(j)<______[21]________Thent=ia(j)ia(j)=ia(j+1)ia(j+1)=tEndIfNextjPrintForj=1TonPrintia(j);NextjNextiPrint≤x≤3.1415926。Dimx!,y!PrivateSub________[22]___________Timer1.Interval=100EndSubPrivateSubTimer1_Timer()__[23]__________[24]___________Shape1.Movex0,y0-Shape1.Height/2PSet(x0,y0),RGB(255,0,0)Ifx______[25]_____ThenTimer1.Interval=0EndSub三、編程題1、編程輸入10名短跑運(yùn)發(fā)動(dòng)姓名及其100米跑成績(jī)，輸出最好成績(jī)運(yùn)發(fā)動(dòng)姓名及其成績(jī)，再顯示低于平均成績(jī)所有運(yùn)發(fā)動(dòng)姓名及其成績(jī)。2、素?cái)?shù)(質(zhì)數(shù))是一個(gè)正整數(shù)，除了1和它本身之外，不能被其它任何正整數(shù)整除。編程：求出1到1000間所有素?cái)?shù)，并將這些素?cái)?shù)顯示在列表框中。當(dāng)用戶輸入數(shù)不是正整數(shù)時(shí)，給出提示并要求重新輸入一個(gè)數(shù)。參考答案〔可在vb6.0種驗(yàn)證〕選擇題ACCDACADBCCACBBCDCCBDBABBCBBDD填空題對(duì)于與標(biāo)準(zhǔn)答案不同但驗(yàn)證正確答案同樣給分，對(duì)于有個(gè)別文字不準(zhǔn)確而不致引起誤解答案，可酌情扣1分。[1]2[2]ccccccc[3]218[4]4[5]12[6]100To999[7](x-100*a)\10[8]X=a^3+b^3+c^3[9]Endif[10]Val(InputBox[11]<[12]Nu=x[13]“&Nu[14]Nmin[15]UBound(b)[16]Nmin=b(i)[17]ProcMin=Nmin[18]ia()[19]Int(Rnd*(80-50+1))+50[20]n-1[21]Ia(j+1)[22]Form_Click()[23]X[24]Y=cos(x)編程題〕Privatesubform_click()Dima(1To10)AsString,b(1To10)AsInteger,i%,j%,n%,p%,sum!,aver!Fori=1To10