程序設(shè)計基礎(chǔ)模擬試題

1、VB程序設(shè)計模擬試題?填空題1?窗體模塊的文件擴(kuò)展名為FRM、標(biāo)準(zhǔn)模塊的文件擴(kuò)展名為BAS、類模塊文件的擴(kuò)展名為CLSoVisualBasic中數(shù)據(jù)類型可分為標(biāo)準(zhǔn)數(shù)據(jù)類型和用戶自泄義數(shù)據(jù)類型兩大類，前者根據(jù)其取值的不同，可分為整型、長整型、布爾型和一字符型oAbs(-6.5)=6.5：Int(-9.1)=-10。程序&設(shè)計運算結(jié)果為一程序設(shè)計一-Dima,basBoolean語句顯式聲明變量a是變體變呈：，b是_布爾_變量。MsgBox函數(shù)的返回值中，VBRetry表示單擊了一重試換鈕，VBYes表示單擊了一是按鈕，vB&a示單擊了否一按鈕。要加載窗體，可以在代碼中使用語句，要顯示窗體，可以在

2、代碼中使用方法，要隱藏窗體，可以在代碼中使用Hide方法，要卸載窗體，可以在代碼中使用方法。對話框分為對話框和對話框兩種類型，其中對話框最對象是VisualBasic應(yīng)用程序的基本單元，它是由類一創(chuàng)建的。在VisualBasic中可以用屬性、一方法一、一事件一來說明和衡量一個對象的特性。條件判斷語句可以使用一If-then語句、If-Then-Else語句和If?Then?Elself語句。Selectcasei1句聲明一個值為3.14的常疑Pi的語句為一Constpi=3.14。DoLoopUntil循環(huán)結(jié)構(gòu)中，當(dāng)條件為真_時結(jié)束循環(huán)。要顯示彈出菜單，可以在代碼中使用事件。參數(shù)傳遞有方式、方

3、式和命名傳遞方式，常量默認(rèn)采用方式：變量默認(rèn)采用方式；表達(dá)式默認(rèn)采用方式。名稱屬性必須以一個一字母標(biāo)點一開始弁且最長可達(dá)40個字符，不能包括一符號一和一空格一。VisualBasic的程序模塊有3種：一窗體模塊一、標(biāo)準(zhǔn)模塊和一類模塊一.VisualBasic程序，按其語句代碼執(zhí)行的先后順序，可以分為一順序_結(jié)構(gòu)、選擇一結(jié)構(gòu)和一循環(huán)結(jié)構(gòu)。數(shù)組元素下標(biāo)的下界默認(rèn)為是,如果要改變其默認(rèn)值，應(yīng)使用o?判斷題()1.VisualBasic運行程序的方法只有編譯模式。()2.語句Commandl.visible二false與Command!,enabled二false是等價的。()3.InputBox函數(shù)

4、和MsgBox函數(shù)一樣，返回的是字符串。()4.通過類模塊，我們不可以根據(jù)需要建立自己的控件。(X)5.2.1E+5是合法的VisualBasic數(shù)據(jù)。()6.根拯占用內(nèi)存方式的不同，可將數(shù)組分為常規(guī)數(shù)組和動態(tài)數(shù)組兩種類型。V)7.x2是合法的變量名()8.按照文件的存取方式及其組成結(jié)構(gòu)可以分為兩種類型：文本文件和隨機(jī)文件。V)9.Do-LoopUntil語句實現(xiàn)循環(huán)時，不管條件真假，首先無條件地執(zhí)行一次循環(huán)。(X)10.標(biāo)簽沒有change事件和setFocus方法(X)11.VB對象就是窗體和控件。(X)12.要實現(xiàn)同樣的循環(huán)控制，在DoWhile-Loop和D0?LoopWh訂e循環(huán)結(jié)構(gòu)

5、中給上的循環(huán)條件是一樣的。X)13.文本框和標(biāo)簽通過同一屬性在窗體上顯示文字。()14.能夠改變復(fù)選框背景顏色的屬性是BackColoro()15.當(dāng)圖片框Picturebox控件的Autosize屬性為true時，超過圖片框尺寸的圖片其超過部分會被圖片框截去。X)16.所有對象的屬性都可以在屬性窗口中設(shè)泄。(X)17.Msgbox函數(shù)建立的信息框既能顯示信息又能輸入用戶的信息。)18.使用Open語句可以創(chuàng)建新的順序文件。X)19.要在窗體上添加控件，不能通過雙擊工具箱中對應(yīng)的控件圖標(biāo)實現(xiàn)。X)20.TextBox與Label有許多共同的特點，它們都能顯示和輸入文字。(V)21.方法Form

6、l.show與Forml.vis讓le=True是等效的V)22.Do-LoopUnti1語句實現(xiàn)循環(huán)時，不管條件真假，首先無條件地執(zhí)行一次循環(huán)。(X)23.函數(shù)Str(26)與Str(-26)的值的長度相同。(V)24.每個Vb對象都有name屬性。)25.在VisualBasic中，向過程傳遞參數(shù)時，按地址傳遞參數(shù)是缺省的。(V)26.Do-Loopunti1語句實現(xiàn)循環(huán)時，只要條件是假，循環(huán)將一直進(jìn)行下去。X)27.文本框和標(biāo)簽通過同一屬性在窗體上顯示文字。(X)2&要實現(xiàn)同樣的循環(huán)控制，在DoWhile-Loop和D0?LoopWhile循環(huán)結(jié)構(gòu)中給左的循環(huán)條件是一樣的。(V)29.將

7、焦點主動設(shè)置到指泄的控件或窗體上，應(yīng)采用Setfocus方法。(X)30?使用Open語句可以創(chuàng)建新的順序文件。?寫出下面的程序運行結(jié)果.程序1PrivateSubForm_load()MsgBox你好EndSub運行結(jié)果：彈出消息框，提示為你好”。.程序2DimNumberNumber=8SelectCaseNumberCase1To5PrintBetween1and5Case6To10PrintBetween6and10CaseElsePrintNotbetween1and10EndSelect運行結(jié)果：Between6and10O.程序3DimSubCommand1_C1ick()Tex

8、tl.Text=07EndSubDimSubCommand2_Click()Textl.Text=秋季EndSub單擊Command額鈕后，再單擊Command按鈕，在文本框中顯示：_07一。.程序4PrivateSubForm_Click()For1=1To100Sum=Sum+INextIPrintSumEndSub運行結(jié)果：5050.程序5PrivateSubForm_load()MsgBoxVB程序EndSub運行結(jié)果：一彈出消息框，提示為“VB程序”。.程序6PrivateSubForm_Activate()DimSAsSingleDimIAsIntegerS=1For1=1To5S

9、=S*INextPrint5!=;SEndSub運行結(jié)果：120o.程序7PrivateSubForm_Activate0Dim?sAsLongDim?IAsIntegerS=0ForI=lTo6S=S+I2NextPrintS=;SEnd?Sub運行結(jié)果：91VB程序設(shè)計基礎(chǔ)模擬試一?判斷題（正確的劃錯誤的劃X,每小題1分，共10分）（V）K而向?qū)﹀璩绦蛟O(shè)訃是一種以對象為基礎(chǔ)，由事件驅(qū)動對象來執(zhí)行的設(shè)計方法。（X）2、所有對象的屬性都可以在屬性窗口中設(shè)泄。(V)3x把當(dāng)前窗體forml隱藏，用forml.hide和me.hide語句均可。(V)4.變量的聲明有兩種方法，即使用“類型說明符”和

10、使用“類型說明詞”均可。(X)5、判斷數(shù)值X是否在0,100范圍可用關(guān)系表達(dá)式：0=X=10(?V)6、文本框控件沒有Caption性。(X)7、Dimal,a2AsInteger語句表示聲明的變量el和a2都為整型變雖：。(7)8.執(zhí)行Do-LoopWHle語句時，不管條件真假，首先會無條件地執(zhí)行一次循環(huán)。(X)9、Rnd(x)產(chǎn)生0,1之間的隨機(jī)數(shù)。(V)10.每個VisualBasic對象都有NameS性。二選擇題(以下只有一項是正確的，每題2分，共40分)()1、不是VisualBasic的特點的選項是：A.可視編程B?面向過程C事件驅(qū)動D.而向?qū)ο?)2、如果把一個人當(dāng)作對象，那么“

11、身高”相當(dāng)于這個對象的：A.屬性B?方法C?事件D.特征()3、以下哪項不是合法的變量名？A.file.lB?filelC.file-1D.file_l_12)4、求從文本框中輸入密碼時在文本框中只顯示*號，則應(yīng)在此文本框的屬性窗口中設(shè)置：A.Text屬性值為*B.Caption屬性值為*C.Password屬性值為空D.Passwordchar屬t生值為*)5、哪個是算術(shù)運算符：A.ImpB?ModC.Not)6.Integer類型的變量可存的最大整數(shù)為：A.255B.256C.32768D.32767)7、下列哪一個是日期型常量：A.”2/1/99B?2/1/99C.#2/1/99#D.2

12、/1/99)8、用于獲得字符串S從第5個字符開始的3個字符的函數(shù)是：A.Mid(S,5,3)b.Middle(s,5,3)C?Right(S,5,3)D?Left(S,5,3)9、為使計時器對象每隔5秒鐘產(chǎn)生一個時鐘事件(Timer事件),則其Interval屬性值應(yīng)設(shè)置為：5B.300C.500D.5000)10對一個窗體對象，其最先發(fā)生的事件是：、A.B.DbdickC?LoadD.UnLoadA.對象名？屬性名C.對象需？事件名)12、若x是一個正實數(shù),A. 0. 01*Int (x+0. 005)C. 0. 01*Int(100*(x+0. 05)13、下列表達(dá)式中，合法的( b+sq

13、r(b*b+4a*c) ) /2/aCos(a 廠 2-Atn(a)Sqr(Y A3+3*(A*A+6B*B)11、下列4個選項中，可以單獨的構(gòu)成一條語句的選項是：B.對象名？方法名D.對象名？控件需將千分位四舍五入，保留兩位小數(shù)的VB表達(dá)式為：0.01*Int(100*(x+0.005)D.0.01*Int(x+0.05)VisualBasic表達(dá)式有：D.1/(X+1/Y+5A)14、在一個語句行內(nèi)寫多條語句時，語句之間應(yīng)該用什么符號分隔?A.逗號B.分號C?頓號D.冒號)15、計算結(jié)果為0的表達(dá)式是：A.Int(3.4)+Int(-3.8)B?Int(3.4)+Fix(-3.8)C.Fi

14、x(3.4)+Fix(-2?8)D.Fix(3.4)+Int(-3.8)16、下列程序段執(zhí)行后輸出的結(jié)果是：x=int(Rnd+4)SleetCasexCase5Print優(yōu)秀Case4Print良好Case3Print及格”CaseElsePrint不及格”EndSelectA.優(yōu)秀B.良好c.及格D.不及格)17、循環(huán)結(jié)構(gòu)Fori二0to10Step2的執(zhí)行次數(shù)是：4B?5C.6D.7)18、“x是小于100的非負(fù)數(shù)S用VB表達(dá)式表示，正確的是：A.x100B-0=xAndx100C.0=x100D.OWxOrx100)19、要判斷兩個整型變量A和B中有且只有一個為0,不能使用下而哪一個邏

15、輯表達(dá)式AndBOOorAOOandB=0A二XorA*AndAOBA*BAnd(A=0OrB=0)20、下列程序段循環(huán)結(jié)構(gòu)執(zhí)行后，i的輸出值是：A.25B.10C?11D.因為y的初值不知道，所以不確定Fori=lto10Step2y=y+iNextiPrinti三然空題(每空2分，共20分)1.語句optionexplicit的作用是2?把條件10WXV12寫成Visualbasic表達(dá)式為：10=xandx1.7and收62.5o.聲明一個值為3.14的常量Pi的語句為Constpi=3.14.7?在過程中怎義Dimx(9,1to10)asInteger,則數(shù)組中共擁有個元素。8?要使一

16、個按鈕無效，則可把它的Enable屬性設(shè)為_False_(True.False)o9?設(shè)X是大于300且能被3整除的奇數(shù)，關(guān)于X的表達(dá)式為：(x300)and(xMod3=0)and(xMod20)10.泄時器控件的Interval屬性值是指時間間隔，單位為亳秒；當(dāng)每隔此間隔的時間，龍時器會觸發(fā)一次計時器事件。四?程序填空題：(每空3分，共12分).如下程序運行后，變量s的值為120,i的值為_oOptionExplicitPrivateSubCommand1_Click()DimiAsIntegerStaticSAsIntegerS二1Fori=1To5S=S*iNextiPrintSEnd

17、Sub.以下程序是求1100之間所有的“偶數(shù)”之和。請?zhí)羁?。DimsasintegerDimiasintegerS=0Fori=2to100step2S二S+iNextiPrintS五？程序閱讀題(每小題2分，共4分)在窗體上畫一個需稱為Commandl的命令按鈕，然后編寫如下事件過程：PrivateSubcommand1_C1ick0Forn=lTo5IfnMod30Thenm=m+n3NextnPrintnPrintmEndSub程序運行后，如果單擊命令按鈕，則窗體上顯示：n=6_;m=2六.程序設(shè)計題，請將以下橫線中的代碼補(bǔ)充完整。(每空2分，共14分)1.假設(shè)某班共有學(xué)生N人，編寫程序

18、統(tǒng)計該班學(xué)生的VisualBasic考試成績，弁顯示出60分以下、60-70.70-80.80-90以及90分以上的學(xué)生人數(shù)各是多少？程序代碼如下：Privatesubfornuclick0Dim score as singleDim xl%, x2%, x3%, x4%? x5%Dim I as integerDim N as integerN=val (inputbox ( “請輸入?yún)⒖伎側(cè)藬?shù)For I =1 to4score 表示考生的實際分?jǐn)?shù)xl, x2, x3, x4, x5 分別表示各個分?jǐn)?shù)段的人數(shù)T 表示循環(huán)變量N 表示參考總?cè)藬?shù))Score=val(inputbox(請輸入成績

19、:)SelectcaseScoreCaseis=90Xl=xl+1Caseis=80X2=x2+1Caseis=70X3=x3+1Caseis=60X4=x4+1CaseelseX5=x5+1En(1SelectNext1Print“90分以上xl:Print“8090 x2:Print分7080 x3:Print分:“60=70分x4:Print“60分以x5:Endsub下：:實驗六思考題：設(shè)s,m,n均為String類型的變量，編程實現(xiàn)：如果s中包含字串m,則將s中的字串m部分替換為n后生成一個新串并輸出.要求s,m,n的值均由用戶輸入.PrivateSubCommand1_C1ick(

20、)DimsAsStringDimmAsStringDimnAsStringDimIsAsStringDimiAsIntegerDimkAsIntegers=InputBox(請輸入S字符串”)Text2?Text=sm=InputBox(，z請輸入m字符串”)Text3?Text=mn=InputBoxC請輸入n字符串”)Text4.Text=ni=InStr(s,m)k=i+Len(m)Is=Left(s,i-1)Textl?Text二Is+n+Mid(s,k)textl?Text二left(s,i-l)+n+mid(s,k)EndSubPrivateSubForm_Click()Dima%

21、,b%c%tempAsDoublea=Vai(InputBoxC請輸入a)b=Vai(InputBoxC請輸入b)c=Vai(InputBoxC請輸入c)IfabThentemp=aa=bb=tempEndIfIfacThentemp=aa=cc=tempEndIfIfbcThentemp=bb=cc=tempEndIfPrinta;b;cEndSubPrintResult或者PrivateSubcmdselect_Click()DimxAsSingle,yAsSingleDimOperatorAsStringDimresultAsSinglex=Val(InputBox(輸入第一個數(shù)：”，0

22、)Operator=InputBox(輸入運算法：y=Vai(InputBox(z/輸入第二個數(shù)：，0)SelectCaseOperatorCase+：resultx+yCase“-：result=x-yCaseresult二x*yCase/：resultx/yEndSelectPrintresultEndSub1、PrivateSubForm_Click()Dimx%y%z%X=Val(InputBox(A請輸入第一門課程成績)y=Val(InputBox(A請輸入第二門課程成績)z=Val(InputBox(A請輸入第三門課程成績) 該同學(xué)獲得 該同學(xué)獲If(x+y+z)/3)95Or(x

23、=100Andy=100Andz=80)Or(x=100Andz=100Andy=80)Or(y=100Andz=100Andz=80)ThenPrint一等獎Elself(x+y+y)/390Or(x=100Andy=75Andz=75)Or(y=100Andx=75Andz=75)Or(z=100Andx=75Andz=75)ThenPrint得二等獎Elselfx=70Andy=70Andz=70ThenPrint該同學(xué)獲得三等獎ElsePrint該同學(xué)沒有獎項EndIfEndSub2、評優(yōu)If語句PrivateSubcmdCheck_Click()Dima%a=Val(InputBox(A請輸入一門課程的百分之成績)Ifa=90ThenP