vb程序設(shè)計試題

1、第一套試題一、選擇題(每題2分，共30分)在VB環(huán)境中，工程文件的擴展名是(C)(A) .frm(B).bas(C).vbp(D).frx下面4項中不屆于面向?qū)ο笙到y(tǒng)三要素的是(A)(A) 變量(B)事件(C)屆性(D)方法、/、Mod*這4個算述運算符中，優(yōu)先級別最低的是(C)(A) (B)/(C)Mod(D)*要使Print方法在Form_Load事件中起作用，要對窗體的(C)屆性進行設(shè)置(A)BackColor(B)ForeColor(C)AutoRedraw(D)Caption不論何控件，共同具有的屆性是(B)(A)Text(B)Name(C)ForeColor(D)Caption要使

2、Form1窗體的標(biāo)題欄顯示“歡迎使用VB',以下語句正確的是(D)(A)Form1.Caption="歡迎使用VB'(B)Form1.Caption=/歡迎使用VB，(C)Form1.Caption=歡迎使用VB(D)Form1.Caption="歡迎使用VB'VB提供了結(jié)構(gòu)化程序設(shè)計的3種基本結(jié)構(gòu)，這3種基本結(jié)構(gòu)是(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)給變量賦值a=123+MID("123456”，3,2),a變量中的值是(D)(

3、A)“12334”(B)123(Q12334(D)157下面If語句統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是(D)10.若要活除列表框的所有內(nèi)容，可用來實現(xiàn)的方法是(C)(A)Ifsex=“男”Andage<40AndInStr(duty,“教授”)>0Thenn=n+1(B)Ifsex=Thenn=n+1“男”Andage<40And(duty=“教授”O(jiān)rduty=)(C)Ifsex=“男”Andage<40AndRight(duty,2)=“教授”Thenn=n+1(D)Ifsex=n=n+1“男”Andage<40And

4、duty=“教授”Andduty="副教授”Then(A) Removeitem(B)Cls(C)Clear(D)以上均不可以要使時鐘控件Timerl的Timer事件不起作用，以下正確的語句是(B)(A)Timer1.Visible=False(B)Timer1.Enabled=False(A)Timer1.Interval=1000(A)Timer1.Interval=1000(A)Timer1.Interval=1000(D)Timer1.Index=0引用列表框(List1)最后一個數(shù)據(jù)項應(yīng)使用的語(B)(A)List1.List(List1.ListCount)(B)List

5、1.List(List1.ListCount-1)List1.List(ListCount)(D)List1.List(ListCount-1)如下數(shù)組聲明語句，正確的是(A)Dima3,4AsInteger如下數(shù)組聲明語句，正確的是(A)Dima3,4AsInteger(A)Dima3,4AsInteger(A)Dima3,4AsInteger(B) Dima(3,4)AsInteger(C) Dima(n,n)AsInteger(CI) Dima(n,n)AsInteger(CII) Dima(n,n)AsInteger(D) Dima(3,4)AsInteger14.下面子過程語句說明合

6、法的是14.下面子過程語句說明合法的是14.下面子過程語句說明合法的是(A、D)(A)Subf1(ByValn%)(A)Subf1(ByValn%)(A)Subf1(ByValn%)(B) Subf1(n%)AsInteger(D)Functionf1(ByValn%)(C)Functionf1%(f1%)假定有如下的命令按鈕(名稱為Command尊件過程：PrivateSubCommand1_Click()x=InputBox("輸入："，"輸入整數(shù)”)MsgBox輸入的數(shù)據(jù)是：”，”輸入數(shù)據(jù)："+xEndSub程序運行后，單擊命令按鈕，如果從鍵盤上輸

7、入整數(shù)10,則以下敘述中錯誤的是(A)(B)輸入對話框的標(biāo)題是“輸入整數(shù)”(D)信息框中顯示的是“輸入的數(shù)(A)x的值是數(shù)值10(C)信息框的標(biāo)題是“輸入數(shù)據(jù)：10據(jù)是：”二、填空題(每題2分，共20分)1、當(dāng)進入VB集成環(huán)境后，發(fā)現(xiàn)沒有顯示“工具箱”窗口，應(yīng)選擇視圖菜單的選項，使工具箱閔口顯小。2、VB是一種面向?qū)ο蟮某绦蛟O(shè)計語言、采用了事件驅(qū)動編程機制3、Int(-5.5)、Int(5.5)、Fix(-5.5)、Round(-5.5)的值分別是-6、_5_、5、-6。4、表達式Ucase(Mid("abcdefgh”，3,4)的值是CDEF。5、將文本框的ScrollBar的屆性

8、設(shè)置為2(有垂直滾動條)，但沒有垂直滾動條顯示，原因是沒有將multline屆性設(shè)置為True。6、VB的注釋語句采用'字符開頭,若一行上書寫多個語句，則各語句問用字符分隔07、列表框中項目的序號是從0開始的。8、歹0表框中的list和selected屆性是數(shù)組。9、如果要每隔15秒產(chǎn)生一個計時器事件，則Interval屆性應(yīng)設(shè)置為1500010、在VB中，事件過程名由sub和function構(gòu)成。三、請完成下列的程序(共15分)1、以下程序的功能是：生成20個200到300之間的隨機整數(shù)，輸出其中能被5整除的數(shù)并求出它們的和。請?zhí)羁?。PrivateSubCommandl_C1ick(

9、)Fori=1To20x=Int(_rnd*101+200)If_xmod5=0.ThenPrintxS=S十xEndIfNextiPrint"Sue":SEndSub(5分)2、某次大獎賽，有7個評委打分，如下程序?qū)σ幻麉①愓?，輸?個評委的打分分?jǐn)?shù)，去掉一個最高分和一個最低分后，求出平均分為該參賽者的得分。請在下劃線處填入相應(yīng)的內(nèi)容。PrivateSubCommand1_Click()Dimmark!,aver!I%,max1!min1!aver=0Fori=1To7Mark=InputBox(“輸入第”&i&“位評委的打分”)Ifi=1ThenMax1

10、=mark:min1=markElseIfmark<miniThenMin1=markElselfmark>max1ThenMax1=markEndIfEndIfAver=aver+markNextiAver=PrintaverEndSub四、操作題（第一題15分，第二小題20分，共計35分）提示：請同學(xué)們在E盤下面建立一個以自己的名字和學(xué)號命名的文件夾，然后將自己設(shè)計的窗體保存在這個文件夾下面即可，工程文件可以不保存，但窗體一定要保存1、斐波納契（Fibonacci）數(shù)列的第一項是1.第二項是1,以后各項都是前兩項的和。試用遞歸算法編寫一個程序，求斐波納契數(shù)列第N項的值。（15分

11、）2、設(shè)計一個窗體，在窗體中設(shè)置3個標(biāo)簽、1個文本框、2個單選按鈕、3個復(fù)選按鈕和兩個命令按鈕。在文本框中輸入某人的姓名，并在性別和愛好項目中進行選擇，單擊“顯示資料”命令按鈕，將個人資料顯示出來；單擊“充填”按鈕,將文本內(nèi)容活楚，選項回復(fù)到初始狀態(tài)（20分）第二套試題、選擇題（每題2分，共30分）在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時，除了工具箱窗口、窗體窗口、屆性窗口外，必不可少的窗口是(C)(A) 窗體布局窗口(B)立即窗口(C)代碼窗口(D)監(jiān)視窗口表達式16/4-2%*8/4MOD52的值為(B)(A) 14(B)4(C)20(D)2Int(198.555*100+0.5)/100的值為(

12、C)(A)198(B)199.6(C)198.56(D)200已知A$="”，則表達式Val(Left$(A$,4)+Mid$(a$,4,2)的值為(B)(A)123456(B)123445(C)8(D)6表達式DateDiff("y”，#12/30/1999#,#1/13/2000#)的結(jié)果是(C)注:一個Y表示相隔天數(shù)，四個Y表示相隔年數(shù)。(A)1(B)11(C)14(D)99若要使命令按鈕不可操作，要設(shè)置的屆性是(A)(A)Enabled(B)Visible(C)BackCol(D)Caption文本框所沒有的屆性是(D)(A)Enabled(B)Visible(C)

13、BackColor(。Caption要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個屆性是(A)(B)Style和Icon(D)Value和Icon(C)y=x+30(A)Style和Picture(C)Caption和Picture下面正確的賦值語句是(C)(A)x+y=30(B)y=兀*r*r下面程序段求兩個數(shù)中的大數(shù)，不正確的是(D)(A)Max=IIf(x>y,x,y)(B)Ifx>yThenMax=xElseMax=y(C)Max=x(D)Ify>=xThenMax=yIfy>xThenMax=yMax=x以下關(guān)于VisualBasic特點的敘述中，錯誤的是(D)(A

14、) VisualBasic是采用事件驅(qū)動編程機制的語言(B) VisualBasic程序既可以編譯運行，也可以解釋運行(C) 構(gòu)成VisualBasic程序的多個過程沒有固定的執(zhí)行順序(D) VisualBasic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化程序的三種基本結(jié)構(gòu)復(fù)選框的Value屆性為1時，表示(B)(A)復(fù)選框未被選中(B)復(fù)選框被選中(C)復(fù)選框內(nèi)有灰色的勾(D)復(fù)選框操作有錯誤在下列關(guān)于鍵盤事件的說法中,正確的是(D)(A)按下鍵盤上的任意一個鍵都會引發(fā)KeyPress事件(B) 大鍵盤上的“1”鍵和數(shù)字鍵盤的“1”鍵的KeyCode碼相同(C) KeyDowrf日KeyUp的事件過程

15、中有KeyAscii參數(shù)(D) 大鍵盤上的“4”鍵的上檔字符是“$”，當(dāng)同時按下Shift和大鍵盤上的“4”鍵時如果歹U表框(List1)中沒有被選定的項目，則執(zhí)行List1.RemoveItemList1.ListIndex語句的結(jié)果是(A)(A) 移去第一項(B)移去最后一項以上都不對(A)(B)b被定義為Integer類型變量(D)d中的數(shù)據(jù)是日期類型(C)移去最后加入列表的一項(D)設(shè)有如下語句：Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下關(guān)丁這段代碼的敘述中，錯誤的是(A) a被定義為Integer類型變量(C)c中的

16、數(shù)據(jù)是字符申二、填空題(每題2分，共20分)在VB中，要顯示程序代碼，必須在代碼窗口;要設(shè)計程序的運行界面，必須在窗體窗口。2.整型變量x中存放了一個二位數(shù)，要將二位數(shù)交換位置，例如，13變成31,實現(xiàn)的表達式是x10+(xmod10)*10數(shù)學(xué)表達式sin150+-ln(3x)的VB算術(shù)表達式為sin(15/180*H)+-exp(3*x).表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式為xmod5=0orxmod9=0_。4 .在VB中，123456&1.2346D+5這2個常數(shù)分別表示long、double_類型。6. 若已建立了Form1和Form2兩個窗體，默認(rèn)啟動窗體為Form1

17、。通過工程了性菜單的啟動對象命令的通用選項卡，可將啟動窗體設(shè)置為Form2。在程序中若要顯示Form1窗體、則執(zhí)行show語句。7. 文本框(Text1)中有選定的文本，執(zhí)行Text1.SelText=''Hello”的結(jié)果是hellotext1在程序運行時，如果將框架的enable屆性設(shè)為False,則框架的標(biāo)題呈灰色，表示框架內(nèi)的所有對象均被屏蔽，不允許用戶對其進行操作。8. 聲明如下數(shù)組：Dima(3,-2To2,5)，則數(shù)組a包含的元素的個數(shù)為12010.賦值語句:10.賦值語句:a=123&MID("123456”，3,2)執(zhí)行后，a變量中的值是12

18、334三、請完成下列的程序(共15分)1、窗體上有名稱分另U為Text1、Text2的2個文本框，要求文本框Text1中輸入的數(shù)據(jù)小丁500,文本框Text2中輸入的數(shù)據(jù)小丁1000,否則重新輸入。為了實現(xiàn)上述功能，請為下歹0程序編寫相應(yīng)的子過程。PrivateSubText1_LostFocus()CallCheckInput(Text1,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2,1000)EndSubSubCheckInput(tAsControl,asinteger)IfThenEndIfEndSubNextiEn

19、dSub(5分)2、子過程MoveStr()是把字符數(shù)組移動m個位置，當(dāng)Tag為True時左移，將前m個字符移到字符數(shù)組尾，例如，“abcdefghij”左移3個位置后，結(jié)果為“defghijabc”；當(dāng)Tag為False時右移，將后m個字符移到字符數(shù)組前，如“abcdefghij”右移3個位置后，結(jié)果為“hijabcdefg”。子過程如下：PublicSubMoveStr(a$(),m%,TagAsBoolean)DimI%,j%,t$IfTagthenForI=1Tomt=a(0)Forj=0Toubound(a)-1A(j)=a(j+1)NextjA(ubound(a)=tNextIEl

20、seForI=1Tomt=a(ubound(a)Forj=Ubound(A)to1step-1A(j)=a(j-1)Nextja(0)=cNextIEndIfEndSub中在程序中下劃線處填入相應(yīng)的內(nèi)容。四、操作題(第一題15分，第二小題20分，共計35分)提示：請同學(xué)們在E盤下面建立一個以自己的名字和學(xué)號命名的文件夾,然后將自己設(shè)計的窗體保存在這個文件夾下面即可，工程文件可以不保存,但窗體一定要保存1、編程實現(xiàn)打印以下圖案(15分)*2、統(tǒng)計學(xué)生成績設(shè)計如圖所示應(yīng)用程序，當(dāng)單擊“輸入成績”按鈕時，在InputBox對話框中輸入學(xué)生人數(shù)，然后在對話框中依次輸入不多丁人數(shù)的數(shù)個成績。再次單擊“輸

21、入成績”按鈕將追加學(xué)生人數(shù)和成績。單擊“顯示成績”按鈕顯示成績、平均分和未輸入成績的人數(shù)。(20分)已經(jīng)輸入的學(xué)生成筋為：gggggy96有1個學(xué)生的成績沒有輸入輸&成績平均成績?yōu)?8第二套試題一、選擇題(每題2分，共30分)下面各種高級語舌中，不是面向?qū)ο蟪绦蛟O(shè)計語言'的是(C)(A)VisualBasic(B)C+(C)Pascal(D)Java函數(shù)DateAdd("M',1#1/30/2000#)語句的結(jié)果是(A)(A)00-2-29(B)00-2-28(C)00-2-30(D)00-1-313.表達式LenB(“123程序設(shè)計ABC)的值是(C)(A)

22、10(B)14(C)20(D)17當(dāng)文本框的ScrollBars屆性設(shè)置了非零值，沒有效果，其原因是(B)(A)文本框中沒有內(nèi)容(B)文本框的MultiLine屆性為False(C)文本框的MultiLine屆性為True(D)文本框中的Locked屆性為True若要禁止窗體被用戶移動，通過設(shè)置可達此要求的窗體的屆性是(B)(A)MaxButton(B)Moveable(C)Move(。ControlBox下歹0語句中將按鈕(Command1)勺標(biāo)題賦值給文本框(Text1)Text屆性的是(B)(A)Text1=Command1(B)Text1=Command1.Caption(C)Text

23、1.Text=Command1(D)Text1.Text=CStr(Command1)語句Ifx=1Theny=1,下歹0說法正確的是(C)(A) x=1和y=1均為賦值語句(B) x=1和y=1均為關(guān)系表達式(C) x=1為關(guān)系表達式,y=1為賦值語句(D) x=1為賦值語句，y=1為關(guān)系表達式要獲得用戶在組合框輸入的內(nèi)容，應(yīng)利用的組合框的屆性是(D)(A)List(B)Selected(A) (C)ListIndex(D)Text將數(shù)據(jù)項“China”添加到列表框(List1)中成為第一項應(yīng)使用的語句是(A)(A)List1.AddItem"China,0(B)List1.Add

24、Item"China,1(C)List1.AddItem0,"China"(D)List1.AddItem1,"China”在下列說法中，正確的是(B)通過適當(dāng)?shù)脑O(shè)置，可以在程序運行期間，讓時鐘控件顯示在窗體上在列表框中不能進行多項選擇在列表框中能夠?qū)㈨椖堪醋帜疙樞驈拇蟮叫∨帕锌蚣芤灿蠧lick和DblClick事件在KeyDow咸KeyUp的事件過程中，能用來檢查Ctrl和F3是否同時按下的表達式為(C)(button=vbCtrlMask)And(KeyCode=vbKeyF3)KeyCode=vbKeyControl+vbKeyF3(KeyCode

25、=vbKeyF3)And(ShiftAndvbCtrlMask)(ShiftAndvbCtrlMask)And(KeyCodeandvbKeyF3)設(shè)有命令按鈕Command的單擊事件過程，代碼如下：PrivateSubCommand1_Click()Dima(30)AsIntegerFori=1To30a(i)=Int(Rnd*100)NextForEacharrItemInaIfarrItemMod7=0ThenPrintarrItem；IfarrItem>90ThenExitForNextEndSubA) 對于該事件過程，以下敘述中錯誤的是(B)a數(shù)組中的數(shù)據(jù)是30個100以內(nèi)的整

26、數(shù)語句ForEacharrItemIna有語法錯誤IfarrItemMod7=0語句的功能是輸出數(shù)組中能夠被7整除的數(shù)IfarrItem>90語句的作用是當(dāng)數(shù)組元素的值大于90時退出For循環(huán)要想從子過程調(diào)用后返回兩個結(jié)果，下面子過程語句說明合法的是(C)(A)Subf2(ByValn%,ByValm%)(B)Subf1(n%,ByValm%)(C)Subf1(n%,m%)(。Subf1(ByValn%,m%)以下關(guān)于MsgBox的敘述中，錯誤的是(D)(A) MsgBox函數(shù)返回一個整數(shù)(B) 通過MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型(C) MsgBox語句沒有返回值(D)

27、 MsgBox函數(shù)的第一個參數(shù)是一個整數(shù)，該參數(shù)只能確定對話框中顯示的按鈕數(shù)量設(shè)x=4,y=8,z=7，表達式x<yAnd(Noty>z)Orz<x的值是(D)(A)1(B)-1(C)True(。False二、填空題(每題2分，共20分)在VB中設(shè)置或修改一個對象的屆性的方法有兩種，它們分別是屆性窗口和代碼窗口。1. InStr（7,“什么ASCII是ASCII編碼”，“ASCII”）的結(jié)果9;InStr（“什么ASCII是ASCII編碼”，“ASCII”）的結(jié)果。2. 給變量w賦值：w=Choose（Weekday（2010,1,26”）,“Red',“Green”

28、，“Blue”，“Yellow”）后，變量w中的值是星期二。3. 將alignment屆性設(shè)置為1,單選按鈕和復(fù)選框的標(biāo)題顯示在左邊；將_style屆性設(shè)置為1,單選按鈕和復(fù)選框以圖形方式顯示。4. 在窗體上有若干控件，其中有一個名稱為Text1的文本框。影響Text1的Tab順序的屆性是tabindex。5. 表達式5/4*65Mod2的值是。6. 為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的interval屆性設(shè)置為500。7. Rnd函數(shù)的值的范圍為0,1）。8. 為了給x,y,z這3個變量賦初值1,正確的賦值語句是數(shù)組：Dima（4,-2To3,3）