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

第一套試題一、選擇題（每題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要使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è)計(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)，過程結(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）（A）“12334”（B）123（C）12334（D）157下面If語句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是（D）（A）Ifsex=“男”Andage<40AndInStr（duty,“教授”）>0Thenn=n+1（B）Ifsex=“男”Andage<40And（duty=“教授”O(jiān)rduty=“副教授”）Thenn=n+1（C）Ifsex=“男”Andage<40AndRight（duty,2）=“教授”Thenn=n+1（D）Ifsex=“男”Andage<40Andduty=“教授”Andduty=“副教授”Thenn=n+1若要清除列表框的所有內(nèi)容，可用來實(shí)現(xiàn)的方法是（C）

(A)Removeitem(B)Cis(D)以上均不可以(A)Timer1.Visible=FalseTimer1.Enabled=False(A)Timer1.Interval=1000(D)Timer1.Index=0(C)Clear3.要使時(shí)鐘控件Timerl的Timer事件不起作用，以下正確的語句是(B)(B)Cis(D)以上均不可以(A)Timer1.Visible=FalseTimer1.Enabled=False(A)Timer1.Interval=1000(D)Timer1.Index=04.引用列表框(List1)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的語(B)(A)List1.List(List1.ListCount)(B)List1.List(List1.ListCount-1)List1.List(ListCount)(D)List1.List(ListCount-1)如下數(shù)組聲明語句，正確的是(A)Dima[3,4]AsIntegerDima(3,4)AsIntegerDima(n,n)AsIntegerDima(3,4)AsInteger6.下面子過程語句說明合法的是(A、D(A)Dima[3,4]AsIntegerDima(3,4)AsIntegerDima(n,n)AsIntegerDima(3,4)AsInteger6.下面子過程語句說明合法的是(A、D)(A)Subf1(ByValn%)Subf1(n%)AsIntegerFunctionf1%(f1%)(D)Functionf1(ByValn%)PrivateSubCommand1_Click()x=InputBox("輸入："，"輸入整數(shù)")MsgBox"輸入的數(shù)據(jù)是：”，，”輸入數(shù)據(jù)："+xEndSub程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)10,則以下敘述中錯(cuò)誤的是(A)(A)x的值是數(shù)值10(8)輸入對(duì)話框的標(biāo)題是“輸入整數(shù)”(C)信息框的標(biāo)題是“輸入數(shù)據(jù)：10”(D)信息框中顯示的是“輸入的數(shù)據(jù)是：”二、填空題(每題2分，共20分)1、當(dāng)進(jìn)入VB集成環(huán)境后，發(fā)現(xiàn)沒有顯示“工具箱”窗口，應(yīng)選擇視圖菜單的工具箱選項(xiàng)，使“工具箱”窗口顯示。2、VB是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，采用了事件驅(qū)動(dòng)編程機(jī)制。3、Int(-5.5)、Int(5.5)、Fix(-5.5)、Round(-5.5)的值分別是-6、-5、-6。4、表達(dá)式Ucase(Mid(“abcdefgh”,3,4))的值是CDEF。5、將文本框的ScrollBar的屬性設(shè)置為2(有垂直滾動(dòng)條)，但沒有垂直滾動(dòng)條顯示，原因是沒有將multline屬性設(shè)置為True。6、VB的注釋語句采用‘字符開頭，若一行上書寫多個(gè)語句，則各語句間用：字符分隔。7、列表框中項(xiàng)目的序號(hào)是從0開始的。8、列表框中的list和selected屬性是數(shù)組。9、如果要每隔15秒產(chǎn)生一個(gè)計(jì)時(shí)器事件，則Interval屬性應(yīng)設(shè)置為1500010、在VB中，事件過程名由sub和function構(gòu)成。三、請(qǐng)完成下列的程序(共15分)1、以下程序的功能是：生成20個(gè)200到300之間的隨機(jī)整數(shù)，輸出其中能被5整除的數(shù)并求出它們的和。請(qǐng)?zhí)羁?。PrivateSubCommandl_C1ick()Fori=1To20x=Int(_rnd*101+200)If_xmod5=0—ThenPrintxS=S十xEndIfNextiPrint"Sum=":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=mark:min1=markElseIfmark<miniThenMin1=markElselfmark>max1ThenMax1=markEndlfEndIfAver=aver+markNextiAver=PrintaverEndSub四、操作題（第一題15分，第二小題20分，共計(jì)35分）提示：請(qǐng)同學(xué)們?cè)贓盤下面建立一個(gè)以自己的名字和學(xué)號(hào)命名的文件夾，然后將自己設(shè)計(jì)的窗體保存在這個(gè)文件夾下面即可，工程文件可以不保存，但窗體一定要保存1、斐波納契（Fibonacci）數(shù)列的第一項(xiàng)是1.第二項(xiàng)是1，以后各項(xiàng)都是前兩項(xiàng)的和。試用遞歸算法編寫一個(gè)程序，求斐波納契數(shù)列第N項(xiàng)的值。（15分）2、設(shè)計(jì)一個(gè)窗體，在窗體中設(shè)置3個(gè)標(biāo)簽、1個(gè)文本框、2個(gè)單選按鈕、3個(gè)復(fù)選按鈕和兩個(gè)命令按鈕。在文本框中輸入某人的姓名，并在性別和愛好項(xiàng)目中進(jìn)行選擇，單擊“顯示資料”命令按鈕，將個(gè)人資料顯示出來；單擊“充填”按鈕，將文本內(nèi)容清楚，選項(xiàng)回復(fù)到初始狀態(tài)（20分）第二套試題、選擇題（每題2分，共30分）

9.在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時(shí)，外，必不可少的窗口是(C)(A)窗體布局窗口(B)立即窗口表達(dá)式16/4-2八5*8/4MOD5\2的值為(A)14(B)4Int(198.555*100+0.5)/100的值為(A)198(B)199.6除了工具箱窗口、窗體窗口、屬性窗口(C)代碼窗口(D)監(jiān)視窗口4.已知A$=“12345678”，則表達(dá)式B)(C)C)(C)Val(Left$(A20(D)198.56(D)200$,4)+Mid$(a$,4,2))的值為(B)(A)123456(B)1234455.表達(dá)式DateDiff(“y”，#12/30/1999#,#1/13/2000#一個(gè)Y表示相隔天數(shù)，四個(gè)Y表示相隔年數(shù)。(A)1(B)11(C)14(C)(D)6)的結(jié)果是(C)注:(D)99若要使命令按鈕不可操作，要設(shè)置的屬性是(A)(A)Enabled(B)Visible(C)BackCol文本框所沒有的屬性是(D)(A)Enabled(B)Visible要設(shè)置命令按鈕的背景圖形(A)Style和Picture(C)Caption和Picture下面正確的賦值語句是9.在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時(shí)，外，必不可少的窗口是(C)(A)窗體布局窗口(B)立即窗口表達(dá)式16/4-2八5*8/4MOD5\2的值為(A)14(B)4Int(198.555*100+0.5)/100的值為(A)198(B)199.6除了工具箱窗口、窗體窗口、屬性窗口(C)代碼窗口(D)監(jiān)視窗口4.已知A$=“12345678”，則表達(dá)式B)(C)C)(C)Val(Left$(A20(D)198.56(D)200$,4)+Mid$(a$,4,2))的值為(B)(A)123456(B)1234455.表達(dá)式DateDiff(“y”，#12/30/1999#,#1/13/2000#一個(gè)Y表示相隔天數(shù)，四個(gè)Y表示相隔年數(shù)。(A)1(B)11(C)14(C)(D)6)的結(jié)果是(C)注:(D)99若要使命令按鈕不可操作，要設(shè)置的屬性是(A)(A)Enabled(B)Visible(C)BackCol文本框所沒有的屬性是(D)(A)Enabled(B)Visible要設(shè)置命令按鈕的背景圖形(A)Style和Picture(C)Caption和Picture下面正確的賦值語句是(A)x+y=30(B)y=(C)BackColor必須設(shè)置的兩個(gè)屬性是(A)(B)Style和Icon(D)Value和Icon(C)n*r*r下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確的是(C)y=x+30(D)(D)Caption(D)Caption(D)3y=x(A)移去第一項(xiàng)(B)移去最后一項(xiàng)(C)移去最后加入列表的一項(xiàng)(D)以上都不對(duì)設(shè)有如下語句：Dima，bAsIntegerc="VisualBasic"d=#7/20/2005#以下關(guān)于這段代碼的敘述中，錯(cuò)是(A)(A)a被定為teger類型變(B)b被定義teger類型變量(C)c中的數(shù)據(jù)是字符串(D)d中的數(shù)據(jù)是日期類型、填空題(題2分，共20分)在VB中，要顯示程序代碼，必須在代碼窗口；要設(shè)計(jì)程序的運(yùn)行界面，必須在窗體窗口。整型變量中存放了一個(gè)二位數(shù)，要將二位數(shù)交換位置，例如，13變成，實(shí)現(xiàn)的表達(dá)式是x\10+(xmod10)*103.數(shù)學(xué)表達(dá)式sin15°+-ln(3x)的VB算術(shù)表達(dá)式為n(15/180*n)+-exp(3*x)4.表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式珈od5=0orxmod9=05.在VB中，123456&、1.2346D+5這2個(gè)常數(shù)分別表示」on^、double類型。若已建立了Form1和Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體Form1o通過工程屬性菜單的對(duì)好命令的通用選項(xiàng)卡，可將啟動(dòng)窗體設(shè)置為Drm2。在程序中若要顯示Form1窗體，則執(zhí)show語句。文本框(Text1)中有選定的文本，執(zhí)Text1.SelText=''Hello〃的結(jié)果是hellotext1在程序運(yùn)行時(shí)，如果將框架的enable屬性設(shè)False，則框架的題呈灰色，表示框架內(nèi)的所有對(duì)象均被屏蔽，不允許用戶對(duì)其進(jìn)操9、聲明如下數(shù)組：Dima(3,-2To2,5)，則數(shù)組a包含的元素的個(gè)數(shù)為12012.賦值語句：a=123&MID(“123456”,3,2)執(zhí)行后，a變量中的值是三、請(qǐng)完成下列的程序(共15分)1、窗體上有名稱分別為Text1、Text2的2個(gè)文本框，要求文本框Text1中輸入的數(shù)據(jù)小于500，文本框Text2中輸入的數(shù)據(jù)小于1000，否則重新輸入。為了實(shí)現(xiàn)上述功能，請(qǐng)為下列程序編寫相應(yīng)的子過程。PrivateSubText1_LostFocus()CallCheckInput(Text1，500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2，1000)EndSubSubCheckInput(tAsControl，asinteger)IfThenEndIfEndSubNextiEndSub(5分)2、子過程MoveStr()是把字符數(shù)組移動(dòng)m個(gè)位置，當(dāng)Tag為True時(shí)左移，將前m個(gè)字符移到字符數(shù)組尾，例如，“abcdefghij”左移3個(gè)位置后，結(jié)果為“defghijabc”;當(dāng)Tag為False時(shí)右移，將后m個(gè)字符移到字符數(shù)組前，如“abcdefghij”右移3個(gè)位置后，結(jié)果為“hijabcdefg”。子過程如下：PublicSubMoveStr(a$(),m%,TagAsBoolean)DimI%,j%,t$IfTagthenForI=1Tomt=a(0)Forj=0Toubound(a)-1A(j)=a(j+1)NextjA(ubound(a))=tNextIElseForI=1Tomt=a(ubound(a))Forj=Ubound(A)to1step-1A(j)=a(j-1)Nextja(0)=cNextIEndIfEndSub請(qǐng)?jiān)诔绦蛑邢聞澗€處填入相應(yīng)的內(nèi)容。四、操作題(第一題15分，第二小題20分，共計(jì)35分)提示：請(qǐng)同學(xué)們?cè)贓盤下面建立一個(gè)以自己的名字和學(xué)號(hào)命名的文件夾，然后將自己設(shè)計(jì)的窗體保存在這個(gè)文件夾下面即可，工程文件可以不保存，但窗體一定要保存1、編程實(shí)現(xiàn)打印以下圖案(15分)*************2、統(tǒng)計(jì)學(xué)生成績?cè)O(shè)計(jì)如圖所示應(yīng)用程序，當(dāng)單擊“輸入成績”按鈕時(shí)，在InputBox對(duì)話框中輸入學(xué)生人數(shù)，然后在對(duì)話框中依次輸入不多于人數(shù)的數(shù)個(gè)成績。再次單擊“輸入成績”按鈕將追加學(xué)生人數(shù)和成績。單擊“顯示成績”按鈕顯示成績、平均分和未輸入成績的人數(shù)。(20分)第三套試題一、選擇題(每題2分，共30分)13.下面各種高級(jí)語言中，不是面向?qū)ο蟪绦蛟O(shè)計(jì)語言的是(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-31表達(dá)式LenB(“123程序設(shè)計(jì)ABC”)的值是(C)(A)10(B)14(C)20(D)17當(dāng)文本框的ScrollBars屬性設(shè)置了非零值，沒有效果，其原因是(B)(A)文本框中沒有內(nèi)容(B)文本框的MultiLine屬性為False(C)文本框的MultiLine屬性為True(D)文本框中的Locked屬性為True若要禁止窗體被用戶移動(dòng)，通過設(shè)置可達(dá)此要求的窗體的屬性是(B)(A)MaxButton(B)Moveable(C)Move(D)ControlBox下列語句中將按鈕(Command1的標(biāo)題賦值給文本框(Text1)Text屬性的是(B)(A)Text1=Command1(B)Text1=Command1.Caption(C)Text1.Text=Command1(D)Text1.Text=CStr(Command1)語句Ifx=1Theny=1,下列說法正確的是(C)x=1和y=1均為賦值語句x=1和y=1均為關(guān)系表達(dá)式x=1為關(guān)系表達(dá)式，y=1為賦值語句x=1為賦值語句，y=1為關(guān)系表達(dá)式要獲得用戶在組合框輸入的內(nèi)容，應(yīng)利用的組合框的屬性是(D)(C)Listindex(D)Text將數(shù)據(jù)項(xiàng)“China”添加到列表框(Listl)中成為第一項(xiàng)應(yīng)使用的語句是(A)(A)Listl.Additem〃China〃,0(B)Listl.Additem〃China〃,1(C)Listl.Additem0,〃China〃(D)Listl.Additem1,〃China〃在下列說法中，正確的是(B)通過適當(dāng)?shù)脑O(shè)置，可以在程序運(yùn)行期間，讓時(shí)鐘控件顯示在窗體上在列表框中不能進(jìn)行多項(xiàng)選擇在列表框中能夠?qū)㈨?xiàng)目按字母順序從大到小排列框架也有Click和DblClick事件在KeyDown或KeyUp的事件過程中，能用來檢查Ctrl和F3是否同時(shí)按下的表達(dá)式為(C)(button=vbCtrlMask)And(KeyCode=vbKeyF3)KeyCode=vbKeyControl+vbKeyF3(KeyCode=vbKeyF3)And(ShiftAndvbCtrlMask)(ShiftAndvbCtrlMask)And(KeyCodeandvbKeyF3)設(shè)有命令按鈕Commandl的單擊事件過程，代碼如下：PrivateSubCommand1_Click()Dima(30)AsintegerFori=1To30a(i)=int(Rnd*100)NextForEacharriteminaifarritemMod7=0ThenPrintarritem；ifarritem>90ThenExitForNextEndSub對(duì)于該事件過程，以下敘述中錯(cuò)誤的是(B)a數(shù)組中的數(shù)據(jù)是30個(gè)100以內(nèi)的整數(shù)語句ForEacharritemina有語法錯(cuò)誤ifarritemMod7=0,,語句的功能是輸出數(shù)組中能夠被7整除的數(shù)ifarritem>90,,語句的作用是當(dāng)數(shù)組元素的值大于90時(shí)退出For循環(huán)要想從于過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語句說明合法的是(C)(A)Subf2(ByValn%,ByValm%)(B)Subf1(n%,ByValm%)(C)Subf1(n%,m%)(D)Subf1(ByValn%,m%)以下關(guān)于MsgBox的敘述中，錯(cuò)誤的是(D)通過MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型MsgBox語句沒有返回值MsgBox函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)量15.設(shè)x=4,y=8,z=7，表達(dá)式x<yAnd(Noty>z)Orz<x的值是(D)(A)1(B)-1(C)True(D)False二、填空題(每題2分，共20分)在VB中設(shè)置或修改一個(gè)對(duì)象的屬性的方法有兩種，它們分別是屬性窗口和代碼窗口。TOC\o"1-5"\h\zInStr(7，“什么ASCII是ASCII編碼”，“ASCII”)的結(jié)果9；InStr(“什么ASCII是ASCII編碼”，“ASCII”)的結(jié)果3。給變量w賦值：w=Choose(Weekda“(2010,1,26勺，“Red”，“Green”，“Blue”，“Yellow”)后，變量w中的值是星期二。將alignment屬性設(shè)置為1，單選按鈕和復(fù)選框的標(biāo)題顯示在左邊；將style屬性設(shè)置為1,單選按鈕和復(fù)選框以圖形方式顯示。在窗體上有若干控件，其中有一個(gè)名稱為Text1的文本框。影響Text1的Tab順序的屬性是tabindex。TOC\o"1-5"\h\z表達(dá)式5/4*6\5Mod2的值是。7.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的interval屬性設(shè)置為500。Rnd函數(shù)的值的范圍為[0,1)。為了給x,y,z這3個(gè)變量賦初值1，正確的賦值語句29.數(shù)組：Dima(4,-2To3,3)包含的元素的個(gè)數(shù)為120。三