vb程序設(shè)計試題

1、第一套試題一、選擇題(每題2分，共30分)在VB環(huán)境中，工程文件的擴(kuò)展名是(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)屆性進(jìn)行設(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)進(jìn)入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、表達(dá)式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ù)選按鈕和兩個命令按鈕。在文本框中輸入某人的姓名，并在性別和愛好項目中進(jìn)行選擇，單擊“顯示資料”命令按鈕，將個人資料顯示出來；單擊“充填”按鈕,將文本內(nèi)容活楚，選項回復(fù)到初始狀態(tài)（20分）第二套試題、選擇題（每題2分，共30分）在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時，除了工具箱窗口、窗體窗口、屆性窗口外，必不可少的窗口是(C)(A) 窗體布局窗口(B)立即窗口(C)代碼窗口(D)監(jiān)視窗口表達(dá)式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$="”，則表達(dá)式Val(Left$(A$,4)+Mid$(a$,4,2)的值為(B)(A)123456(B)123445(C)8(D)6表達(dá)式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)的表達(dá)式是x10+(xmod10)*10數(shù)學(xué)表達(dá)式sin150+-ln(3x)的VB算術(shù)表達(dá)式為sin(15/180*H)+-exp(3*x).表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為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)的所有對象均被屏蔽，不允許用戶對其進(jìn)行操作。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.表達(dá)式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è)置可達(dá)此要求的窗體的屆性是(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)系表達(dá)式(C) x=1為關(guān)系表達(dá)式,y=1為賦值語句(D) x=1為賦值語句，y=1為關(guān)系表達(dá)式要獲得用戶在組合框輸入的內(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è)置，可以在程序運行期間，讓時鐘控件顯示在窗體上在列表框中不能進(jìn)行多項選擇在列表框中能夠?qū)㈨椖堪醋帜疙樞驈拇蟮叫∨帕锌蚣芤灿蠧lick和DblClick事件在KeyDow咸KeyUp的事件過程中，能用來檢查Ctrl和F3是否同時按下的表達(dá)式為(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，表達(dá)式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. 表達(dá)式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）