VB程序設計試題及答案一

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