VB程序設(shè)計(jì)試卷試題標(biāo)準(zhǔn)答案

1、VB程序設(shè)計(jì)試卷試題及標(biāo)準(zhǔn)答案VB程序設(shè)計(jì)試卷試題及標(biāo)準(zhǔn)答案VB程序設(shè)計(jì)試卷試題及標(biāo)準(zhǔn)答案VB程序設(shè)計(jì)試題及答案（一）一、單項(xiàng)選擇題是一種面向B的編程環(huán)境。機(jī)器(B)對(duì)象過(guò)程(D)應(yīng)用要使FormI窗體的標(biāo)題欄顯示歡迎使用VB，以下D語(yǔ)句是正確的。=“歡迎使用VB”=歡迎使用VB=歡迎使用VB=歡迎使用VB若要使命令按鈕不可以操作，要對(duì)A屬性進(jìn)行設(shè)置。EnabIed(B)Visible(C)Backcolor(D)Caption4.若是在窗體上已經(jīng)創(chuàng)辦了一個(gè)文本框?qū)ο骉extI，可以經(jīng)過(guò)C事件獲得輸入鍵值的ASCII碼。Change(B)LostFocusKeyPress(D)GotFocus

2、下面A是合法的變量名。X_yz(B)123ab。(C)integer(D)X-Y以下關(guān)系表達(dá)式中，其值為False的是A。(A)ABCAbC(B)女男(C)BASIC=UCase(basic)(D)123OThenn=n+l(B)Ifsex=男Andage=4OAnd(duty=教授Orduty=副教授)Thenn=n+l(C)Ifsex=男Andage=4OAndRight(duty，2)=教授Thenn=n+l(D)Ifsex=男Andage=4OAndduty=教授Andduty=副教授Thenn=n+l10.以下關(guān)于DoLoop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的選項(xiàng)是D。(A)DoWhi

3、leLoop循環(huán)和DoLoopUntil循環(huán)最少都執(zhí)行一次(B)DoWhileLoop循環(huán)和DoLoopUntil循環(huán)可能都不執(zhí)行(C)DoWhileLoop循環(huán)最少執(zhí)行一次和DoLoopUntil循環(huán)可能不執(zhí)行(D)DoWhileLoop循環(huán)可能不執(zhí)行和DoLoopUntil循環(huán)最少執(zhí)行一次以下B是正確的ForNext結(jié)構(gòu)。Forx=1ToStep10(B)Forx=3To-3Step-3NextxNextxForx=1To10(D)Forx=3to10step3re:NextxNextyIfi=10ThenGoTOre以下數(shù)組聲明語(yǔ)句，B是正確的。Dima3,4AsIntegerDima(

4、3,4)AsIntegerDima(n,n)AsIntegerDima(34)AsInteger13.以下語(yǔ)句中（假定變量n有值），能正確聲明可變長(zhǎng)數(shù)組的是A。Dima()AsInteger(B)Dima()AsIntegerReDima(n)ReDima(n)AsStringDima()AsInteger(D)Dima(10)AsIntegerReDima(3,4)ReDima(n+10)ReDimPreservea(4,4)14.要想從子過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面子過(guò)程語(yǔ)句說(shuō)明合法的是C。Subf2(ByValn%,ByValm%)(B)Subf1(n%,ByValm%)Subf1(n%

5、,m%)(D)Subf1(ByValn%,m%)設(shè)有以下程序段：PublicSubF1(n%)n=3*n+4EndSubPrivateSubCommand1_Click()Dimn%,m%n=3m=4調(diào)用F1語(yǔ)句EndSub則在Command1_Click事件中有效的調(diào)用語(yǔ)句是B。CallF1(n+m)(B)CallF1(m)(C)CallF1(5)(D)CallF1(m+5)用來(lái)設(shè)置粗體字的屬性是C。FontItalic(B)FontName(C)FontBold(D)FontSize17.假定準(zhǔn)時(shí)器的Interval屬性為1000，Enabled屬性為True，調(diào)用下面的事件過(guò)程，程序運(yùn)行

6、結(jié)束后變量x的值為D。DimxAsIntegerSubTimer1_Timer()Fori=1to10 x=x+1NextiEndSub(A)1000(B)10000(C)10(D)以上都不對(duì)18.在以下關(guān)于通用對(duì)話框的表達(dá)中，錯(cuò)誤的選項(xiàng)是B。(A)顯示“字體”對(duì)話框(B)在“打開”或“另存為”對(duì)話框中，用戶選擇的文件名可以經(jīng)FileTitle屬性返回(C)在“打開”或“另存為”對(duì)話框中，用戶選擇的文件名機(jī)器路徑可以經(jīng)FileName屬性返回(D)當(dāng)用戶按下并且釋放一個(gè)鍵后會(huì)觸發(fā)KeyPress、KeyUp和KeyDown事件，這三個(gè)事件發(fā)生的序次是C。KeyPress、KeyDown、Key

7、UpKeyDown、KeyUp、KeyPressKeyDown、KeyPress、KeyUp沒(méi)有規(guī)律20.在下面關(guān)于序次言件的描述中，正確的選項(xiàng)是C。序次言件中每行的長(zhǎng)度都是相同的?？梢越?jīng)過(guò)編程對(duì)文件中的某行方便地進(jìn)行更正數(shù)據(jù)以ASCII碼的形式存放在文件中，所以可經(jīng)過(guò)記事本打開文件的組織結(jié)構(gòu)復(fù)雜隨機(jī)文件是因?yàn)镃。文件中的內(nèi)容是經(jīng)過(guò)隨機(jī)數(shù)產(chǎn)生的文件中的記錄號(hào)經(jīng)過(guò)隨機(jī)數(shù)產(chǎn)生的(C)可對(duì)文件中的記錄依照記錄號(hào)隨機(jī)地讀/寫文件的每條記錄的長(zhǎng)度是隨機(jī)的從磁盤上讀入一個(gè)文件名為“c:”序次言件，以下A正確。(A)F=“c:”O(jiān)penFForInputAs#1(B)F=“c:”O(jiān)pen“F”ForInpu

8、tAs#2Open“c:”ForInputAs#1Openc:ForInputAs#2坐標(biāo)胸襟單位可由經(jīng)過(guò)來(lái)D改變。(A)Drawstyle屬性(B)DrawWidth屬性(C)Scale方法(D)ScaleMode屬性24.指令“Circle(1000,1000),500,8,-6,-3”將繪制A。畫圓(B)橢圓(C)圓弧(D)扇形25.用ADO數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設(shè)置操作過(guò)程按A序次進(jìn)行。選擇數(shù)據(jù)源連接方式；選擇數(shù)據(jù)庫(kù)種類；指定數(shù)據(jù)庫(kù)文件名；指定記錄源(B)(D)二、填空題1VB是建立在BASIC語(yǔ)言基礎(chǔ)上的可見化編程語(yǔ)言或編程環(huán)境。2在窗體上已建立多個(gè)控件如Text1、Label

9、1、Command1，若要程序一運(yùn)行時(shí)焦點(diǎn)就定位在Command1控件上，對(duì)付Command1控件設(shè)置TabIndex屬性的值為0。3在VB中，1234、123456&、+5、+5這4個(gè)常數(shù)分別表示整形、長(zhǎng)整形、單精度、雙精度種類。4表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為xmod5=0orxmod9=0。5數(shù)組聲明時(shí)下標(biāo)下界默認(rèn)為0，利用OpationBase1語(yǔ)句可以使下標(biāo)為1。6傳地址方式是當(dāng)過(guò)程被調(diào)用時(shí)，形參和實(shí)參共享積蓄單元。7窗體中的模塊級(jí)變量應(yīng)在窗口模塊段聲明，它作用于該窗體的全局范圍。8當(dāng)用戶單擊轉(zhuǎn)動(dòng)條的空白處時(shí)，滑塊搬動(dòng)的增量值由LargeChange屬性決定。9若是菜單標(biāo)

10、題的某個(gè)字母前輸入一個(gè)“&”符號(hào)，那么該字母就成了熱鍵字母；若是建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“-(減號(hào))”符號(hào)，那么顯示時(shí)形成一個(gè)分開符。10使用Scale方法可以自定義坐標(biāo)系。11使用Line方法畫矩形，禁止在指令中使用要點(diǎn)字B。12使用SQL語(yǔ)句設(shè)置ADO控件的RecordSource屬性，這CommandType屬性需要設(shè)置成1(adCmdText)也許(adCmdUnknown)。13為了顯示一個(gè)窗體，所使用的方法為show；而為了隱蔽一個(gè)窗體，所使用的方法為_Hide_。14若是要將某個(gè)命令按鈕不顯示，則可將_Visible_屬性設(shè)置為False15在VB中窗體文件的擴(kuò)展名為。三

11、、編程應(yīng)用題程序閱讀，寫出以下程序的運(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)=AAndUCase=0Andch=9Thench;是數(shù)字字符Elsech;是其他字符EndIfEndSub輸出結(jié)果：是數(shù)字字符(3)PublicSubProc(a%()Statici%Doa(i)=a(i)+a(i+1)i=i+1LoopWhile

12、i2EndSubPrivateSubCommand1_Click()Dimm%,n%,x%(10)Fori=0to4:x(i)=i+1:NextiFori=1to2:CallProc(x):NextiFori=0to4:Printx(i);:NextiEndSub輸出結(jié)果：35745補(bǔ)充程序(1)以下是賬號(hào)和密碼輸入的檢驗(yàn)程序，運(yùn)行界面以以以下列圖1所示。輸入帳號(hào)和密碼后，單擊“檢驗(yàn)密碼”按鈕，若是密碼正確則程序結(jié)束，假定密碼為“s001”；若是密碼不正確，則彈出以以以下列圖2所示對(duì)話框，單擊“取消”則程序結(jié)束，單擊“重試”則返回圖1窗體，且密碼文本框Text2內(nèi)容被清空，等待再次輸入。補(bǔ)充圓滿以下程序。圖1圖2PrivateSubCommand1_Click()DimiAsIntegerIfs001Theni=MsgBox(密碼錯(cuò)誤,5+vbExclamation,警告)Ifi4ThenEndElseEndEndIfEndIfEndSub以下是求最大合約數(shù)和最小公倍數(shù)的程序，使用的是輾轉(zhuǎn)相除法，將程序補(bǔ)充圓滿。PrivateSubForm_Click()Dimm%,n%,t%n=Inp