vb程序設(shè)計(jì)試題

1、第一套試題一、選擇題(每題2分，共30分)在VB環(huán)境中，工程文件的擴(kuò)展名是(C)(A) .frm(B).bas(C).vbp(D).frx下面4項(xiàng)中不屆于面向?qū)ο笙到y(tǒng)三要素的是(A)(A) 變量(B)事件(C)屆性(D)方法、/、Mod*這4個(gè)算述運(yùn)算符中，優(yōu)先級(jí)別最低的是(C)(A) (B)/(C)Mod(D)*要使Print方法在Form_Load事件中起作用，要對(duì)窗體的(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',以下語(yǔ)句正確的是(D)(A)Form1.Caption="歡迎使用VB'(B)Form1.Caption=/歡迎使用VB，(C)Form1.Caption=歡迎使用VB(D)Form1.Caption="歡迎使用VB'VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的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)，過(guò)程結(jié)構(gòu)，順序結(jié)構(gòu)(C)過(guò)程結(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語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語(yǔ)句是(D)10.若要活除列表框的所有內(nèi)容，可用來(lái)實(shí)現(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)以上均不可以要使時(shí)鐘控件Timerl的Timer事件不起作用，以下正確的語(yǔ)句是(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)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的語(yǔ)(B)(A)List1.List(List1.ListCount)(B)List

5、1.List(List1.ListCount-1)List1.List(ListCount)(D)List1.List(ListCount-1)如下數(shù)組聲明語(yǔ)句，正確的是(A)Dima3,4AsInteger如下數(shù)組聲明語(yǔ)句，正確的是(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.下面子過(guò)程語(yǔ)句說(shuō)明合

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

7、入整數(shù)10,則以下敘述中錯(cuò)誤的是(A)(B)輸入對(duì)話框的標(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)沒(méi)有顯示“工具箱”窗口，應(yīng)選擇視圖菜單的選項(xiàng)，使工具箱閔口顯小。2、VB是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言、采用了事件驅(qū)動(dòng)編程機(jī)制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(有垂直滾動(dòng)條)，但沒(méi)有垂直滾動(dòng)條顯示，原因是沒(méi)有將multline屆性設(shè)置為T(mén)rue。6、VB的注釋語(yǔ)句采用'字符開(kāi)頭,若一行上書(shū)寫(xiě)多個(gè)語(yǔ)句，則各語(yǔ)句問(wèn)用字符分隔07、列表框中項(xiàng)目的序號(hào)是從0開(kāi)始的。8、歹0表框中的list和selected屆性是數(shù)組。9、如果要每隔15秒產(chǎn)生一個(gè)計(jì)時(shí)器事件，則Interval屆性應(yīng)設(shè)置為1500010、在VB中，事件過(guò)程名由sub和function構(gòu)成。三、請(qǐng)完成下列的程序(共15分)1、以下程序的功能是：生成20個(gè)200到300之間的隨機(jī)整數(shù)，輸出其中能被5整除的數(shù)并求出它們的和。請(qǐng)?zhí)羁铡rivateSubCommandl_C1ick(

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

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

11、）2、設(shè)計(jì)一個(gè)窗體，在窗體中設(shè)置3個(gè)標(biāo)簽、1個(gè)文本框、2個(gè)單選按鈕、3個(gè)復(fù)選按鈕和兩個(gè)命令按鈕。在文本框中輸入某人的姓名，并在性別和愛(ài)好項(xiàng)目中進(jìn)行選擇，單擊“顯示資料”命令按鈕，將個(gè)人資料顯示出來(lái)；單擊“充填”按鈕,將文本內(nèi)容活楚，選項(xiàng)回復(fù)到初始狀態(tài)（20分）第二套試題、選擇題（每題2分，共30分）在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時(shí)，除了工具箱窗口、窗體窗口、屆性窗口外，必不可少的窗口是(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)注:一個(gè)Y表示相隔天數(shù)，四個(gè)Y表示相隔年數(shù)。(A)1(B)11(C)14(D)99若要使命令按鈕不可操作，要設(shè)置的屆性是(A)(A)Enabled(B)Visible(C)BackCol(D)Caption文本框所沒(méi)有的屆性是(D)(A)Enabled(B)Visible(C)

13、BackColor(。Caption要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屆性是(A)(B)Style和Icon(D)Value和Icon(C)y=x+30(A)Style和Picture(C)Caption和Picture下面正確的賦值語(yǔ)句是(C)(A)x+y=30(B)y=兀*r*r下面程序段求兩個(gè)數(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特點(diǎn)的敘述中，錯(cuò)誤的是(D)(A

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

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

16、數(shù)據(jù)是字符申二、填空題(每題2分，共20分)在VB中，要顯示程序代碼，必須在代碼窗口;要設(shè)計(jì)程序的運(yùn)行界面，必須在窗體窗口。2.整型變量x中存放了一個(gè)二位數(shù)，要將二位數(shù)交換位置，例如，13變成31,實(shí)現(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個(gè)常數(shù)分別表示long、double_類型。6. 若已建立了Form1和Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Form1

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

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

19、dSub(5分)2、子過(guò)程MoveStr()是把字符數(shù)組移動(dòng)m個(gè)位置，當(dāng)Tag為T(mén)rue時(shí)左移，將前m個(gè)字符移到字符數(shù)組尾，例如，“abcdefghij”左移3個(gè)位置后，結(jié)果為“defghijabc”；當(dāng)Tag為False時(shí)右移，將后m個(gè)字符移到字符數(shù)組前，如“abcdefghij”右移3個(gè)位置后，結(jié)果為“hijabcdefg”。子過(guò)程如下：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分，共計(jì)35分)提示：請(qǐng)同學(xué)們?cè)贓盤(pán)下面建立一個(gè)以自己的名字和學(xué)號(hào)命名的文件夾,然后將自己設(shè)計(jì)的窗體保存在這個(gè)文件夾下面即可，工程文件可以不保存,但窗體一定要保存1、編程實(shí)現(xiàn)打印以下圖案(15分)*2、統(tǒng)計(jì)學(xué)生成績(jī)?cè)O(shè)計(jì)如圖所示應(yīng)用程序，當(dāng)單擊“輸入成績(jī)”按鈕時(shí)，在InputBox對(duì)話框中輸入學(xué)生人數(shù)，然后在對(duì)話框中依次輸入不多丁人數(shù)的數(shù)個(gè)成績(jī)。再次單擊“輸

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

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

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

24、Item"China,1(C)List1.AddItem0,"China"(D)List1.AddItem1,"China”在下列說(shuō)法中，正確的是(B)通過(guò)適當(dāng)?shù)脑O(shè)置，可以在程序運(yùn)行期間，讓時(shí)鐘控件顯示在窗體上在列表框中不能進(jìn)行多項(xiàng)選擇在列表框中能夠?qū)㈨?xiàng)目按字母順序從大到小排列框架也有Click和DblClick事件在KeyDow咸KeyUp的事件過(guò)程中，能用來(lái)檢查Ctrl和F3是否同時(shí)按下的表達(dá)式為(C)(button=vbCtrlMask)And(KeyCode=vbKeyF3)KeyCode=vbKeyControl+vbKeyF3(KeyCode

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

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

27、 MsgBox函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(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è)置或修改一個(gè)對(duì)象的屆性的方法有兩種，它們分別是屆性窗口和代碼窗口。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. 在窗體上有若干控件，其中有一個(gè)名稱為T(mén)ext1的文本框。影響Text1的Tab順序的屆性是tabindex。5. 表達(dá)式5/4*65Mod2的值是。6. 為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的interval屆性設(shè)置為500。7. Rnd函數(shù)的值的范圍為0,1）。8. 為了給x,y,z這3個(gè)變量賦初值1,正確的賦值語(yǔ)句是數(shù)組：Dima（4,-2To3,3）