VB程序設(shè)計(jì)試題及答案一

VB程序設(shè)計(jì)試題及答案(一)一、單選題VB6.0是一種面向B的編程環(huán)境。(A)機(jī)器(B)對(duì)象(C)過(guò)程(D)應(yīng)用要使FormI窗體的標(biāo)題欄顯示"歡迎使用VB"，以下D語(yǔ)句是正確的。Forml.Caption="歡迎使用VB”Forml.Caption='歡迎使用VB'Forml.Caption=歡迎使用VBForml.Caption="歡迎使用VB"若要使命令按鈕不可操作，要對(duì)A屬性進(jìn)行設(shè)置。EnabIed(B)Visible(C)Backcolor(D)Caption如果在窗體上已經(jīng)創(chuàng)建了一個(gè)文本框?qū)ο骉extI，可以通過(guò)C事件獲得輸入鍵值的ASCII碼。Change(B)LostFocus(C)KeyPress(D)GotFocus下面A是合法的變量名。X_yz(B)123ab。(C)integer(D)X-Y以下關(guān)系表達(dá)式中，其值為False的是A。"ABC">"AbC"(B)"女">"男"(C)"BASIC"=UCase("basic)(D)"123"<"23"為了給x、y、z三個(gè)變量賦初值1，下面正確的賦值語(yǔ)句是A。x=1:y=1:z=1(B)x=1,y=1,z=1x=y=z=1(D)xyz=1VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是D。遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu)(C)過(guò)程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱(chēng)為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語(yǔ)句是D。Ifsex="男"Andage=4OAndInStr(duty，"教授")>OThenn=n+lIfsex="男"Andage=4OAnd(duty="教授"Orduty="副教授")Thenn=n+lIfsex="男"Andage=4OAndRight(duty，2)="教授"Thenn=n+lIfsex="男"Andage=4OAndduty="教授"Andduty="副教授"Thenn=n+l下列關(guān)于Do-Loop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的是D。(A)DoWhile-Loop循環(huán)和Do-LoopUntil循環(huán)至少都執(zhí)行一次DoWhile—Loop循環(huán)和Do-LoopUntil循環(huán)可能都不執(zhí)行DoWhile—Loop循環(huán)至少執(zhí)行一次和Do—LoopUntil循環(huán)可能不執(zhí)行DoWhile—Loop循環(huán)可能不執(zhí)行和Do—LoopUntil循環(huán)至少執(zhí)行一次以下B是正確的For—Next結(jié)構(gòu)。Forx=1ToStep10(B)Forx=3To-3Step-3NextxNextxForx=1To10(D)Forx=3to10step3re: NextxNextyIfi=10ThenGoTOre如下數(shù)組聲明語(yǔ)句，B是正確的。Dima[3,4]AsIntegerDima(3,4)AsIntegerDima(n,n)AsIntegerDima(34)AsInteger下列語(yǔ)句中(假定變量n有值)，能正確聲明可變長(zhǎng)數(shù)組的是A。(A)Dima()AsInteger(B)Dima()AsIntegerReDima(n)ReDima(n)AsStringDima()AsInteger(D)Dima(10)AsIntegerReDima(3,4)ReDima(n+10)ReDimPreservea(4,4)要想從子過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面子過(guò)程語(yǔ)句說(shuō)明合法的是C。(A)Subf2(ByValn%,ByValm%)(B)Subf1(n%,ByValm%)(C)Subf1(n%,m%)(D)Subf1(ByValn%,m%)設(shè)有如下程序段：PublicSubF1(n%)…n=3*n+4…EndSubPrivateSubCommand1_Click()Dimn%,m%n=3m=4…‘調(diào)用F1語(yǔ)句…EndSub則在Command1_Click事件中有效的調(diào)用語(yǔ)句是B。(A)CallF1(n+m)(B)CallF1(m)(C)CallF1(5)(D)CallF1(m+5)用來(lái)設(shè)置粗體字的屬性是C。(A)FontItalic(B)FontName(C)FontBold(D)FontSize假定定時(shí)器的Interval屬性為1000，Enabled屬性為T(mén)rue，調(diào)用下面的事件過(guò)程，程序運(yùn)行結(jié)束后變量x的值為D。DimxAsIntegerSubTimer1_Timer()Fori=1to10x=x+1NextiEndSub(A)1000(B)10000(C)10(D)以上都不對(duì)在下列關(guān)于通用對(duì)話框的敘述中，錯(cuò)誤的是B。CommonDialog1.ShowFont顯示“字體”對(duì)話框在“打開(kāi)”或“另存為”對(duì)話框中，用戶(hù)選擇的文件名可以經(jīng)FileTitle屬性返回在“打開(kāi)”或“另存為”對(duì)話框中，用戶(hù)選擇的文件名機(jī)器路徑可以經(jīng)FileName屬性返回(D)當(dāng)用戶(hù)按下并且釋放一個(gè)鍵后會(huì)觸發(fā)KeyPress、KeyUp和KeyDown事件，這三個(gè)事件發(fā)生的順序是C。KeyPress、KeyDown、KeyUpKeyDown、KeyUp、KeyPressKeyDown、KeyPress、KeyUp沒(méi)有規(guī)律在下面關(guān)于順序文件的描述中，正確的是C。順序文件中每行的長(zhǎng)度都是相同的?？梢酝ㄟ^(guò)編程對(duì)文件中的某行方便地進(jìn)行修改數(shù)據(jù)以ASCII碼的形式存放在文件中，所以可通過(guò)記事本打開(kāi)文件的組織結(jié)構(gòu)復(fù)雜隨機(jī)文件是因?yàn)镃。文件中的內(nèi)容是通過(guò)隨機(jī)數(shù)產(chǎn)生的文件中的記錄號(hào)通過(guò)隨機(jī)數(shù)產(chǎn)生的可對(duì)文件中的記錄根據(jù)記錄號(hào)隨機(jī)地讀/寫(xiě)文件的每條記錄的長(zhǎng)度是隨機(jī)的從磁盤(pán)上讀入一個(gè)文件名為“c:\t1.txt”順序文件，如下A正確。F="c:\t1.txt”O(jiān)penFForInputAs#1F="c:\t1.txt”O(jiān)pen“F”ForInputAs#2Open“c:\t1.txt”ForInputAs#1Openc:\t1.txtForInputAs#2坐標(biāo)度量單位可由通過(guò)來(lái)D改變。(A)Drawstyle屬性(B)DrawWidth屬性(C)Scale方法(D)ScaleMode屬性指令“Circle(1000,1000),500,8,-6,-3”將繪制A。(A)畫(huà)圓(B)橢圓(C)圓弧(D)扇形用ADO數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設(shè)置操作過(guò)程按A順序進(jìn)行。①選擇數(shù)據(jù)源連接方式；②選擇數(shù)據(jù)庫(kù)類(lèi)型；③指定數(shù)據(jù)庫(kù)文件名；④指定記錄源(A)①②③④(B)②③④①(C)③①②④(D)①③②④二、填空題VB是建立在BASIC語(yǔ)言基礎(chǔ)上的可見(jiàn)化編程語(yǔ)言或編程環(huán)境。在窗體上已建立多個(gè)控件如Text1、Label1、Command1，若要程序一運(yùn)行時(shí)焦點(diǎn)就定位在Command1控件上，應(yīng)對(duì)Command1控件設(shè)置TabIndex屬性的值為0。在VB中，1234、123456&、1.2346E+5、1.2346D+5這4個(gè)常數(shù)分別表示整形、長(zhǎng)整形、單精度、雙精度類(lèi)型。表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為xmod5=0orxmod9=0。數(shù)組聲明時(shí)下標(biāo)下界默認(rèn)為0,利用OpationBase1語(yǔ)句可以使下標(biāo)為1。傳地址方式是當(dāng)過(guò)程被調(diào)用時(shí)，形參和實(shí)參共享存儲(chǔ)單元。窗體中的模塊級(jí)變量應(yīng)在窗口模塊段聲明，它作用于該窗體的全局范圍。當(dāng)用戶(hù)單擊滾動(dòng)條的空白處時(shí)，滑塊移動(dòng)的增量值由LargeChange屬性決定。如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“&”符號(hào)，那么該字母就成了熱鍵字母；如果建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“-(減號(hào))”符號(hào)，那么顯示時(shí)形成一個(gè)分隔符。使用Scale方法可以自定義坐標(biāo)系。使用Line方法畫(huà)矩形，不許在指令中使用關(guān)鍵字B。使用SQL語(yǔ)句設(shè)置ADO控件的RecordSource屬性，這CommandType屬性需要設(shè)置成1(adCmdText)或者(adCmdUnknown)。13.為了顯示一個(gè)窗體，所使用的方法為 show；而為了隱藏一個(gè)窗體，所使用的方法為_(kāi)_Hide。如果要將某個(gè)命令按鈕不顯示，則可將Visible屬性設(shè)置為False在VB中窗體文件的擴(kuò)展名為.FRM。三、編程應(yīng)用題1.程序閱讀，寫(xiě)出下列程序的運(yùn)行結(jié)果。(1)PrivateSubCommand1_Click()Dima,i%,min%,imin%,sum%,t%a=Array(26,43,61,87,33,19,37,59,76,69)min=a(0):imin=0:sum=a(0)Fori=1toUBound(a)sum=sum+a(i)Ifa(i)<minThenmin=a(i):imin=iNextit=a(0):a(0)=a(imin):a(imin)=tPrintsum;a(0)EndSub輸出結(jié)果：51019(2)PrivateSubCommand1_Click()DimchasString*1ch="8"IfUCase(ch)>="A"AndUCase<="Z"Thenform1.Printch;”是字母字符”Elselfch>="0"Andch<="9"Thenform1.Printch;”是數(shù)字字符”Elseform1.Printch;”是其他字符”EndIfEndSub輸出結(jié)果：是數(shù)字字符⑶PublicSubProc(a%())Statici%Doa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSubPrivateSubCommand1_Click()Dimm%,n%,x%(10)Fori=0to4:x(i)=i+1:NextiFori=1to2:CallProc(x):NextiFori=0to4:Printx(i);:NextiEndSub輸出結(jié)果：35745補(bǔ)充程序⑴如下是賬號(hào)和密碼輸入的檢驗(yàn)程序，運(yùn)行界面如下圖1所示。輸入帳號(hào)和密碼后，單擊“檢驗(yàn)密碼”按鈕，如果密碼正確則程序結(jié)束，假定密碼為“S001”；如果密碼不正確，則彈出如下圖2所示對(duì)話框，單擊“取消”則程序結(jié)束，單擊“重試”則返回圖1窗體，且密碼文本框Text2內(nèi)容被清空，等待再次輸入。補(bǔ)充完整如下程序。圖1圖2PrivateSubCommand1_Click()DimiAsIntegerIftext2.text<>s001Theni=MsgBox("密碼錯(cuò)誤",5+vbExclamation,"警告")Ifi<>4ThenEndElseEndText2.SetFocusEndIfEndIfEndSub(2)以下是求最大公