VB程序設計試題及答案一

1、精品-可編輯-VB程序設計試題及答案(一)一、單選題1. VB6.0 是一種面向B的編程環(huán)境。(A)機器(B)對象(C)過程(D) 應用2.要使FormI窗體的標題欄顯示”歡迎使用VB，以下 D 語句是正確的(A) Forml.Caption=“歡迎使用/B(B) Forml.Caption=歡迎使用 VB(C) Forml.Caption= 歡迎使用 VB(D) Forml.Caption= 歡迎使用 VB3.若要使命令按鈕不可操作，要對A屬性進行設置。(A) En abled(B)Visible(C) Backcolor(D)Capti on4.如果在窗體上已經(jīng)創(chuàng)建了一個文本框?qū)ο骉ext

2、I，可以通過 C事件獲得輸入鍵值的ASCII碼。(A) Cha nge(B) LostFocus(C) KeyPress(D) GotFocus5.下面 A是合法的變量名(A) X_yz(B)123ab。(C) in teger(D) X-Y6.以下關系表達式 中，其值為False的是(A) ABCAbC(B)女男,(C) BASIC二UCase(basic)(D) 123v237.為了給x、y、z三個變量賦初值1，下面正確的賦值語句是(A) x=1:y=1:z=1(B) x=1,y=1,z=1(C) x=y=z=1(D) xyz=18. VB提供了結(jié)構(gòu)化程序設計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是

3、 D 。(A) 遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)(B) 選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)(C) 過程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)(D) 選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)9. 下面If語句統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù),不正確的語句是(A) If sex=男 ” And age=4O And InStr(duty，教授)OThe n n=n+l(B) If sex=男And age=4O And (duty=教授Or duty=副教授)Then n=n+l(C) If sex= 男And age=4O And Right(duty，2)=教授The n n=n+l(D) If

4、sex= 男And age=4O And duty=教授And duty=副教授 ” Then n=n+l10.下列關于DoLoop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的 是 D 。(A) Do While-oLp循環(huán)和 DoLoop Un til 循環(huán)至少都執(zhí)行一次(B) Do While Loo循環(huán)和 DoLoop Un til循環(huán)可能都不執(zhí)行(C) Do While Loo循環(huán)至少執(zhí)行一次和DoLoop Un til 循環(huán)可能不執(zhí)行(D) Do While Loo循環(huán)可能不執(zhí)行和DoLoop Un til循環(huán)至少執(zhí)行一次11.以下B是正確的ForNext結(jié)構(gòu)(A) For x=1 To Ste

5、p 10(B) For x=3 To-3 Step -3Nextx(C) For x=1 To 103re:Next xIf i=10 Then GoTO re12.如下數(shù)組聲明語句， BNext x(D) For x=3 to 10 stepNext y是正確的。(A) Dim a3,4 As Integer(B) Dim a(3,4) As Integer(C) Dim a(n,n) As Integer(D) Dim a(3 4) As Integer13.下列語句中(假定變量 n有值)，能正確聲明可變長數(shù)組的是 A 。(A) Dim a( ) As IntegerAs IntegerR

6、eDim a(n)As String(C) Dim a( ) As IntegerAs IntegerReDim a(3, 4)ReDim Preserve a(4, 4)(B) Dim a()ReDim a(n)(D) Dim a(10)ReDim a(n+10)14.要想從子過程調(diào)用后返回兩個結(jié)果，下面子過程語句說明合法的(A) Sub f2(ByVal n%, ByVal m%)(B) Subf1(n%, ByVal m%)(C) Sub f1(n%, m%)(D) Subf1(ByVal n%, m%)15.設有如下程序段：Public Sub F1(n%)n=3*n+4End Sub

7、則在 Command1_Click事件中有效的調(diào)用語句是B。(A) Call F1(n+m)(B) CallF1(m)(C) Call F1(5)(D) CallF1(m+5)16.用來設置粗體字的屬性是:C 。(A) FontItalic(B) Fon tName(C)FontBold(D) Fon tSize17.假定定時器的Interval屬性為 1000 , Enabled屬性為True，調(diào)用下面的事件過程，程序運行結(jié)束后變量x的值為D。Dim x As IntegerSub Timer1_Timer()For i=1 to 10x=x+1Next iEnd Sub(C)B 。顯示“字

8、體對話框(B) DrawWidth 屬性(D) ScaleMode 屬-6, - 3 ”將繪Private Sub Command1_Click()Dim n%, m%n=3m=4調(diào)用F1語句End Sub(A) 1000(B) 1000010(D)以上都不對18. 在下列關于通用對話框的敘述中，錯誤的是(A) Commo nDialog1.ShowFo nt(B) 在“打開或“另存為對話框中，用戶選擇的文件名可以經(jīng)FileTitle 屬性返回(C) 在“打開或“另存為對話框中，用戶選擇的文件名機器路徑可以經(jīng)FileName 屬性返回(D)19. 當用戶按下并且釋放一個鍵后會觸發(fā)KeyPres

9、s、KeyUp和KeyDown 事件，這三個事件發(fā)生的順序是C 。(A) KeyPress、KeyDown、KeyUp(B) KeyDown、KeyUp 、KeyPress(C) KeyDown、KeyPress、KeyUp(D)沒有規(guī)律20. 在下面關于順序文件的描述中，正確的是C 。(A) 順序文件中每行的長度都是相同的。(B) 可以通過編程對文件中的某行方便地進行修改(C) 數(shù)據(jù)以ASCII碼的形式存放在文件中，所以可通過記事本打開(D) 文件的組織結(jié)構(gòu)復雜21. 隨機文件是因為C 。(A) 文件中的內(nèi)容是通過隨機數(shù)產(chǎn)生的(B) 文件中的記錄號通過隨機數(shù)產(chǎn)生的(C) 可對文件中的記錄根據(jù)

10、記錄號隨機地讀/寫(D) 文件的每條記錄的長度是隨機的22. 從磁盤上讀入一個文件名為“t1.txt:順序文件，如下 A 正確。(A) F=“ ct1.txt”O(jiān)pen F For Input As #1(B) F=“ ct1.txt”O(jiān)pen “ F ” For Input As #2(C) Open “ C1.txt ” For Input As #1(D) Open c:t1.txt For Input As #223. 坐標度量單位可由通過來D 改變。(A)Drawstyle 屬性(C) Scale 方法性24. 指令 “ Circle (1000, 1000), 500, 8,制 A

11、 。(A)畫圓(B)橢圓(C)圓弧(D)扇形25. 用ADO數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設置操作過程按 A順序進行。選擇數(shù)據(jù)源連接方式；選擇數(shù)據(jù)庫類型；指定數(shù)據(jù)庫文件名；指定記錄源(A)(B)(C)(D)二、填空題1 . VB是建立在BASIC語言基礎上的可見化編程語言或編程環(huán)境。2 .在窗體上已建立多個控件如Text1、Label1、Command1 ，若要程序一運行時焦點就定位在Command1 控件上，應對 Command1控件設置TabIndex屬性的值為0。3 .在 VB 中，1234、123456&、1.2346E+5、1.2346D+5 這 4個常數(shù)分別表示整形 、長整形 、單精

12、度 、雙精度 類型。4 .表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式為x mod 5 = 0 orx mod 9=0。5.數(shù)組聲明時下標下界默認為0,利用OpationBase 1語句可以使下標為 1。6.傳地址方式是當過程被調(diào)用時，形參和實參共享存儲單元。7.窗體中的模塊級變量應在窗口模塊段聲明，它作用于該窗體的全局范圍。8 .當用戶單擊滾動條的空白處時，滑塊移動的增量值由 LargeChange屬性決定。9.如果菜單標題的某個字母前輸入一個“了熱鍵字母；如果建立菜單時在標題文本框中輸入一個號)符號，那么顯示時形成一個分隔符。10 .使用 Scale方法可以自定義坐標系。11 .使用Line方

13、法畫矩形，不許在指令中使用關鍵字B12 .使用 SQL語句設置 ADO 控件的 RecordSource 屬性，這CommandType屬性需要設置成1(adCmdText) 或者(adCmdU nknown)13 .為了顯示一個窗體，所使用的方法為show ;而為了隱藏一個窗體，所使用的方法為 _Hide 。14 .如果要將某個命令按鈕不顯示，則可將_Visible_ 性設置為False15 .在VB中窗體文件的擴展名為 .FRM 。三、編程應用題1.程序閱讀，寫出下列程序的運行結(jié)果。(1)Private Sub Command1_Click()Dim a, i%, min%, imin%,

14、 sum%, t%a=Array(26, 43, 61, 87, 33, 19, 37, 59,76, 69)min=a(0): imin=0: sum=a(0)For i=1 to UBound(a)sum=sum+a(i)If a(i)=Z ThenVB程序設計試題及答案(二)一、單選題1. VB6.0集成開發(fā)環(huán)境不包括(A) DOS 界面窗口(C)代碼窗口2. 有程序代碼如下：CA And UCase=A 窗口。(B)窗體窗口(D)屬性窗口Tex1.Text= Tex1.Text 則 Tex1、Text、 Tex1.Text 分別代表(A)對象、值、屬性(B)對象、方法、屬性(C)對象、

15、屬性、值(D)屬性、對象、值3.下面關于對象的描述中，A是錯誤的。(A)對象就是自定義結(jié)構(gòu)變量&符號，那么該字母就成-(減(B) 對象代表正在創(chuàng)建的系統(tǒng)中的一個實體(C) 對象是一個特征和操作的封裝體(D) 對象之間的信息傳遞是通過消息進行的4.要使某控件在運行時不可顯示，應對(A) EnabIed(C) Backco lor5.與數(shù)學表達式對應，不正確的(A) a*b/(3*c*d)a/3*b/c/d(C) a*b/3/c/da*b/3*c*d6. InputBox 函數(shù)返回值的類型是(A)整型數(shù)值 (B)字符串字符串7. 下面正確的賦值語句是C(A) x+y=30y= *r*r(C) y=

16、x+308.下面程序段運行后，顯示的結(jié)果是B屬性進行設置。(B) Visible(D) CaptionVB算術(shù)表達式是(B)(D)B 。(C)變體(D)數(shù)值或(B)(D) 3y=xC 。Dim xIf x Then Print x Else Print x+1(A)l(B)O(C)-1(D)顯示出錯信息9.下面程序段，運行后顯示的結(jié)果是A 。Dim xx=Int(Rnd)+5Select Case xCase 5Print 優(yōu)秀Case 4Print 良好Case 3Print 通過CaseE ElsePrint 不通過EndSelect(A)優(yōu)秀(B)良好(C)通過(D)不通過10.下列循環(huán)

17、結(jié)構(gòu)能正常結(jié)束循環(huán)的是C(A) i=5(B) i=1Doi=i+1+2Loop Until i0i=111.下面的程序段的運行結(jié)果為多少？DDoi=iLoopDoi=i-2Loop UntilPrivate SubComma nd1_Click()For i=1 to 5n=0For j=i to 5n=n+113. 在窗體的通用聲明段自定義了數(shù)據(jù)類型列 A定義方式是正確的。(A) Private Type StudentsType StudentsName AsSting*10Studno AsIntegerEnd TypeStudents(C) Type StudentsType Stud

18、entsNameString*10Sting*10StudnoIntegerIntegerEnd TypeType14. 下面子過程說明合法的是D(A) Sub f1(ByVal n%() f1(n%) As Integer(C) Function f1%(f1%) f1(ByVal n%)15. 下面過程運行后顯示的結(jié)果是Stude nts，下(B)Name As Sting*10Studno As IntegerEnd(D)Name AsStudno AsEnd(B) Sub(D) FunctionNext jNext iPrint nEnd Sub(A) 10(B) 5(C) 15(D)

19、 112.要分配存放如下矩陣的數(shù)據(jù)，C 數(shù)組聲明語句能實現(xiàn)(不浪費空間)。1.12.23.34.45.56.67.78.89.9(A) Dim a(9) As Si ngle(B) Dim a(3,3) As Single(C) Dim a(-1 to 1, -5 to -3) As Single(D) Dim a(-3 to -1,5 to 7) As IntegerPrivate Sub F1(m%, ByVal m%)n=n Mod 10m=m10End SubPrivate Sub Comma nd1_Click()Dim x%, y%x=12:y=34Call F1(x, y)Pri

20、nt x, y24.命令按鈕、單選按鈕、復選框上都有Picture屬性，可以在控件上End Sub(A) 234(B)1234(C)顯示圖片，但需要通過屬性B 來控制(D) 12316.下列控件中,沒有 Caption 屬性的是 D(A)框架(B)列表框(C)復選框(D)(A) Appearance(C) DisabledPictureDownPicture25.設置ADO數(shù)據(jù)控件RecordSource(B) Style(D)屬性為數(shù)據(jù)庫中的單個表名,單選按鈕17.在用菜單編輯器設計菜單時，必須輸入的項有(A)快捷鍵(B)標題(C)索引(D)名稱18.以下正確的語句是D 。(A) Commo

21、nDialog1.Filter=AIIFiles|*.*|Pictures(*.Bmp)|(*.Bmp)(B) CommonDialog1.Filter=All則CommandType屬性需設置為B(A) adCmdTextadCmdTable(C) adCmdStoreProcadCmdUnknown填空題Files| Pictures(*.Bmp)p)(C) CommonDialo g1.Filter=AllFiles|*.*|Pictures(*.Bmp)|(*.Bmp)(D) CommonDialog1.Filter=AIIFiles|*.*|Pictures(*.Bmp)|(*.Bm

22、p)19.如果Form1是啟動窗體，并且Form1的Load事件過程中有語句Form2.Show，則程序啟動后(A)發(fā)生一個運行時錯誤(B)發(fā)生一個編譯錯誤(C)在所有的初始化代碼運行后Form1是活動窗體(D)在所有的初始化代碼運行后Form2是活動窗體20.按存儲信息的形式分類，文件可以分為(A)順序文件和隨機文件(B) ASCII 文件和二進制文件(C)程序文件和數(shù)據(jù)文件(D)磁盤文件和打印文件21.下面關于隨機文件的描述不正確的是(A)每條記錄的長度必須相同(B)一個文件中記錄號不必唯一(C)可通過編程對文件中的某條記錄方便地修改(D)文件的組織結(jié)構(gòu)比順序文件復雜22.為了建立一個隨機

23、文件，其中每一天記錄由多個不同數(shù)據(jù)類型的數(shù)據(jù)項組成，應使用C 。(A)記錄類型(B)數(shù)字(C)字符串類(D)變體類型23.當使用Line方法畫直線后，當前坐標在。(A) (0, 0)(B)直線起點(C)直線終點(D)容器的中心(B)(D)1 .對文本框的ScrollBars屬性設置為2 (有垂直滾動條)，但沒有垂直滾動條顯示，是因為沒有將MultiLine屬(*性設置為True。2 .對命令按鈕的Picture屬性裝入.bmp圖形文件后，選項 按鈕上并沒有顯示所需的圖形，原因是沒有將 Style 屬性設置為 1 (Graphical )。3 .In t(-3.5)、In t(3.5)、Fix(

24、-3.5)、Fix(3.5)、Rou nd(-3.5)、 Roun d(3.5) 的值分別為 4、3、-3、3、-4、4。4 .若定義一維數(shù)組為：Dim a(N to M)，則該數(shù)組的元素為 M-N+1個。5 .按如下要求書寫函數(shù)過程定義的首語句，即FunctionMyF(a as in t,b( n)as int)定義語句，要求為：形參有兩個a為整型，b為一位整型數(shù)組，函數(shù)過程名為MyF，函數(shù)返回值為邏輯型。6 .滾動條產(chǎn)生Change事件是因為Value 值改變了。7 .如果要每隔15s產(chǎn)生一個計時器事件，則Interval屬性應設置為 15000。8 .在VB中，除了可以指定某個窗體作為

25、啟動對象之外，還可以指定 Main子過程作為啟動對象。9 .用Show 方法顯示自定義對話框時，如果Show 方法后帶 vbModal參數(shù)就將窗體作為模式對話框顯示。10 .容器的實際可用高度和寬度由右 和 上 屬性確定。11 .使用Circle方法正向采用逆時針方向。12 .啟動窗體時，為了初始化窗體中的各控件，可選作窗體的load事件。13 .結(jié)構(gòu)化程序設計中，三種基本結(jié)構(gòu)是分支結(jié)構(gòu) 、順序結(jié)構(gòu) 口循環(huán)結(jié)構(gòu)。三、編程應用題1.程序閱讀(1)Private Sub Comma nd1_Click()Dim x() As In tegerDim n %, i%n = 10ReDim x(n -

26、 1)x(0) = 1x(1) = 1For i = 2 To n - 1x(i) = x(i - 1) + x(i - 2)Next iFor i = 0 To n - 1Print x(i),If (i + 1) Mod 5 = 0 The n PrintNextEnd Sub輸出結(jié)果：11238132134(2) Public Function f(m%, n%)Do While mnDo While m n: m=m-n: LoopDo While ma(i)Thent = a(j):a(j) = a(j + 1):a(j + 1) = tEnd IfNext jNext iFor i

27、 = 0 To nPrint a(i);Next iEnd Sub(2) 用遞歸的方法求n!Private Sub Command1_Click()Print fac(4)=; fac(4)End SubPublic Function fac As IntegerIf n = 1 Thenfac = 1ElseFac=fac*nEnd IfEnd FunctionVB程序設計試題及答案(三)一、單選題1. Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O計語言，采取了 A的編程機制。(A)事件驅(qū)動(B)按過程順序執(zhí)行(C)從主程序開始執(zhí)行(D)按模塊順序執(zhí)行2. 若要使標簽控件顯示時不覆蓋

28、其背景內(nèi)容，要對D 屬性進行設置。(A) Backcolor(B)BorderStyle(C) Forecolor(D)3.在Visual Basic中最基本的對象是C ，它是應用程序的基石,是其他控件的容器。(A)文本框(B)命令按鈕(C)窗體(D)標簽4.要判斷在文本框是否按下Enter鍵，應在文本框的D事件中判斷。(B)KeyDown(D)KeyPress3 xy Then(D) Ify=x The nMax=xABCD個字符時，窗體上顯示的(C) AABABCABCD(D)1 !、2 !、3 !、4 !的值 B (B)Fn=1Next jPrint nNext i(D)j=1Dn=n*

29、jPrint na包含元素的個數(shù)有LoA 。Private Sub Text1_Cha nge()Print Text1;(A) 120(B) 75(C) 6013.以下程序的輸出結(jié)果是 D 。Dim aa=Array(1,2, 3, 4, 5, 6, 7)(D) 13Backstyle(A) Change(C) Click5. 數(shù)學表達式(A) 3=x10(C) x=3 Or x10AND xy , x, y) Max=x Else Max=y(C) Max=xMax=yIf y=x Then Max=y10. 當在文本框中輸入是 c 。(B) 3=3值。(C) 0.1234(D),3, 2

30、)執(zhí)行后，a變量中的值End Sub(A) ABCD(B) AABABCABCD ABCD11. 下列哪個程序段不能分別正確顯示(A) For i=1 to 4For i=1 to 4n=1orj=1 to iFor j=1 toIn=n*jn=n*jNextjPrintnNextI(C) n=1n=1For j=1to4n=n*jo While j=0And a+cb+3 Or Not d 的值是 False 。5.要獲得動態(tài)數(shù)組的上界通過UBou nd 函數(shù)，下界通過 LBou nd函數(shù)。6 .由Array函數(shù)建立的數(shù)組，其變量類型必須是 varia nt 類型。7. VB中的變量按其作用

31、域分為全局變量、模塊變量和局部變量 變量。8 .復選框的Value屬性設置為2Grayed時，變成灰色，禁止用戶選擇。9 .滾動條響應的重要事件有Scroll 和Change。10 .假定有一個通用對話框控件CommonDialog1 ，除了用COmmonDialog1.Action=3顯示顏色對話框之外，還可以用 showcolor 方法顯示。11 .窗體Form1的左上角坐標為(-200, 250)，窗體Form1的右下角的坐標為(300,-150)，則X軸的正向向右 ，Y軸的正向向上 。12 .使用Circle方法畫扇形，起始角、終止角取值范圍為 02 n 。13 .在運行狀態(tài)改變 AD

32、O數(shù)據(jù)控件的數(shù)據(jù)源連接屬性后，必須使用Refresh方法激活這些變化。14 . VB中工程文件的擴展名為vbg 。15 .如果在窗體上已經(jīng)創(chuàng)建了一個文本框?qū)ο骉ext1，可以通過Keypress事件獲得輸入鍵值的 ASCII碼。16 . VB中對象的三要素是屬性 、事件 和方法 。三、編程應用題1. 程序閱讀(1) Private Sub Comma nd1_Click()Dim s as Strin g, i% s= abcd For i=Le n(s) to 1 step -1Print Mid(s, i, 1)Next iEnd Sub輸出結(jié)果：dcSub Swap1(ByVal x%,

33、 ByVai y%)Dim t%t = x: x = y: y = tEnd SubSub Swap2(ByRef x%, ByRef y%)Dim t%t = x: x = y: y = tEnd SubSub Comma nd1_Click()Dim a%, b%a = 10:b = 20Print 調(diào)用Swapl前a和b的值為：;a;bCall Swap1(a, b)Print 調(diào)用Swapl后按傳值方式 a和b的 值為：；a; ba = 10: b = 20Call Swap2(a, b)Print 調(diào)用Swap2后按傳地址方式 a和b的值為：;a; bEnd Sub輸岀結(jié)果調(diào)用Swa

34、pl前a和b的值為：1020調(diào)用Swap1后按傳值方式 a和b的值為：10 20調(diào)用Swap2后按傳地址方式 a和b的值為：20 10Private Sub Comma nd1_Click()Dim x%, y%, z%x=242:y=44z=x*yDo Until x=yIf xy Then x=x-y Else y=y-xLoopPrint x, z/xEnd Sub輸出結(jié)果：224842. 補充程序(1) 以下是求118之間某個數(shù)的階乘的程序，具體的數(shù)值n由滾動條HScroll1 獲得，結(jié)果顯示在窗體下部的兩個Label標簽里。補充完整如下程序。Private Sub HScroll1_Change()Dim i As Integer, s As Doubles = 1n = Hscroll1.ValueIf n 0 ThenFor i = 1 To ns = s*iNext iEnd IfLabel2.Caption = n & !=Label3.Caption