VB程序設計例題12例

1、索引一、在窗體上畫一個文本框，其名稱為Text1，Text屬性為空白。再畫一個命令按鈕，其名稱為C1，Visible屬性為False。編寫適當?shù)氖录^程。程序運行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。二、計算圓的周長和面積：在窗體中添加一個文本框（Text1）和一個對應的標簽（Labell）,再添加兩個命令按鈕（Command體口Command2和一個圖片框（Picturel）。程序運行時，當單擊Command骸鈕后，計算圓的周長；當單擊Command2鈕后，計算圓的面積；計算結果輸出在圖片框中。（要求在未輸入半徑前兩個按鈕呈灰色不可用。）、“百位”。程序運行時，當單擊窗體后，隨機產(chǎn)生一

2、個【100，999】區(qū)間內(nèi)的整數(shù)，將它的個位、十位、百位數(shù)字分別顯示在對應的文本框中。4、 設計一個計算程序：在窗體上添加四個文本框和四個對應的標簽，標簽的標題分別是“語文”、“數(shù)學”、“外語”、“平均成績”，三個命令按鈕，標題分別為“清除”、“計算”、“退出”。程序運行后，用戶按“清除”按鈕，則清除文本框中顯示的內(nèi)容，按“計算”按鈕，則計算三科平均成績，將計算結果顯示在第四個文本框中（計算結果保留小數(shù)點后一位）。單擊退出按鈕則程序退出。5、 某稅務部門征收所得稅，規(guī)定如下：（1）收入200元以內(nèi)，免征。（2）收入在200400元，超過200元的部分納稅3%。（3）收入超過400元的部分，納稅

3、4%。（4）當收入達5000元或超過時，將4%稅金改為5%。編程序?qū)崿F(xiàn)上述操作。6、 給定三角形的三條邊的邊長，計算三角形的面積。編寫程序，首選判斷給出的三條邊能否構成三角形，如可以構成，則計算并輸出該三角形的面積，否則要求重新輸入。當輸入-1時結束程序。7、 編程求100以內(nèi)的全部素數(shù)。八、編程打印鉆石圖案。九、輸出楊輝三角形。十、有一個數(shù)組，包含了10個不同的隨機整數(shù)（2090），要求計算出它們的平均值，并輸出這個數(shù)組中最接近于平均值的數(shù)。十一、在一個窗體上建有包含三個命令按鈕的控件數(shù)組和一個文體框。編程實現(xiàn)當按下標題不同的命令按鈕時，使文體框中文字的字體發(fā)生相應的變化。十二、編程求100

4、0以內(nèi)的完全數(shù)。所謂完全數(shù)是指這樣的自然數(shù)：它的各個約數(shù)（不包括該數(shù)本身）。如28=1+2+4+7+14就是一個完全數(shù)。一、（P50-2）在窗體上畫一個文本框，其名稱為Textl,Text屬性為空白。再畫一個命令按鈕，其名稱為C1,Visible屬性為False。編寫適當?shù)氖录^程。程序運行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。要求：存盤時必須存放在“上機題”文件夾下，工程文件名為，窗體文件名為。程序中不得使用任何變量。程序清單如下：PrivateSubText1_Change()IfText1<>""ThenC1.Visible=TrueEndSub；仲

5、電，m>!141«>«Jiiier哨吊；斗圖/I*!-*Fi*Ai»3ff-W-.X-HI=s.mFTtLnridbnjucLM1TI運行效果如下:-g3-1«iff雷算ZKlRiorpHfHE子擊，MW*CT二、（P78-2）計算圓的周長和面積：在窗體中添加一個文本框（Textl）和一個對應的標簽（Labell）,再添加兩個命令按鈕（Command和Command2和一個圖片框（Picturel）。程序運行時，當單擊Commandl鈕后，計算圓的周長；當單擊Command技鈕后，計算圓的面積；計算結果輸出在圖片框中。（要求在未輸入半徑前兩個

6、按鈕呈灰色不可用。）程序清單如下：PrivateSubCommand1_Click（）Picturel.Print"r="&Text1Picture1.Print"周長="&xEndSubPrivateSubCommand2_Click()Picture1.Print"r="&Text1Picture1.Print"面積="&yEndSubPrivateSubText1_Change()IfTextl<>""ThenCommandl.Enabled=T

7、rueCommand2.Enabled=TrueEndIfEndSub運行效果如下:n口文*eni'ii嗝星器zfi'ii拈H爐m-iiiE13*rliiir*®1*)1埠彳利*七£14.*女才屋E5b.三、(P78-3)在窗體上添加三個文本框和對應的三個標簽，標簽的標題分別是“個位”、“十位”、“百位”。程序運行時，當單擊窗體后，隨機產(chǎn)生一個【100,999】區(qū)間內(nèi)的整數(shù)，將它的個位、十位、百位數(shù)字分別顯示在對應的文本框中。程序清單如下：PrivateSubForm_Click()Randomizex=Int(Rnd*900)+100Textl.Text=

8、xMod10Text2.Text=x10Mod10Text3.Text=x100EndSub運行效果如下:4Sri.El四、（P78-4）設計一個計算程序：在窗體上添加四個文本框和四個對應的標簽，標簽的標題分別是“語文”、“數(shù)學”、“外語”、“平均成績”，三個命令按鈕，標題分別為“清除”、“計算”、“退出”。程序運行后，用戶按“清除”按鈕，則清除文本框中顯示的內(nèi)容，按“計算”按鈕，則計算三科平均成績，將計算結果顯示在第四個文本框中（計算結果保留小數(shù)點后一位）。單擊退出按鈕則程序退出。程序清單如下:PrivateSubCommand1_Click()Textl=""Text2

9、=""Text3=""Text4=""EndSubPrivateSubCommand2_Click()Text4=(Val(Textl)+Val(Text2)+Val(Text3)/3Text4=Format(Text4,"0.0")EndSubPrivateSubCommand3_Click()EndSub1時叫川旅運行效果如下:五、（P112-3）某稅務部門征收所得稅，規(guī)定如下：（1）收入200元以內(nèi)，免征。（2）收入在200400元，超過200元的部分納稅3%。（3）收入超過400元的部分，納稅4%。（4）當

10、收入達5000元或超過時，將4%稅金改為5%。編程序?qū)崿F(xiàn)上述操作。程序清單如下：PrivateSubCommand1_Click()x=Val(Text1)SelectCasexCaseIs<=200Text2=0CaseIs<=400CaseIs<5000CaseElseEndSelectEndSub運行效果如下:六、(P112-4)給定三角形的三條邊的邊長，計算三角形的面積。編寫程序，首選判斷給出的三條邊能否構成三角形，如可以構成，則計算并輸出該三角形的面積，否則要求重新輸入。當輸入-1時結束程序。程序清單如下：PrivateSubCommand1_Click()A=Va

11、l(Textl)B=Val(Text2)C=Val(Text3)IfA<=0AndA<>-1OrB<=0AndB<>-1OrC<=0AndC<>-1ThenMsgBox"請重新輸入！",5+16+0,"警告"Text1=""Text2=""Text3=""ElselfA=-1OrB=-1OrC=-1ThenUnloadMeElselfA+B<=COrA+C<=BOrB+C<=AThenMsgBox”請重新輸入！",

12、5+16+0,"警告"Text1=""Text2=""Text3=""ElseP=(A+B+C)/2S=(P*(P-A)*(P-B)*(P-C)A(1/2)Text4=SEndIfEndSub運行效果如下:七、（P112-6）編程求100以內(nèi)的全部素數(shù)程序清單如下：PrivateSubForm_Click()y$="2"Dimn%,j%,k%n=100Forj=3Tonk=Int(Sqr(j)Fori=2TokIfjModi=0ThenExitForNextiIfi>kTheny$=y$&

13、amp;""&jEndIfNextjMsgBoxy,"顯示素數(shù)"EndSub運行效果如下：顯示耒數(shù)又£35T1113171923293137414347535S6167717379S3網(wǎng)gT八、(P112-8)編程打印鉆石圖案程序清單如下：PrivateSubForm_Click()Fori=-3To3a=Abs(i)x=9+ay=Abs(i*2)z=7-yPrintTab(x);Forj=1TozPrint"*"NextjPrintNextiEndSub運行效果如下：品FfI匚叵區(qū)本;東惠泮*案聿*¥*平

14、中外女*北*九、(P147-1)輸出楊輝三角形。程序清單如下：PrivateSubForm_Click()Print1Print1;1Print1;2;1Print1;3;3;1Print1;4;6;4;1Print1;5;10;10;5;1EndSub運行效果如下：'Fqe>1匚I叵I112113311464115101051十、(P147-4)有一個數(shù)組，包含了10個不同的隨機整數(shù)(2090),要求計算出它們的平均值，并輸出這個數(shù)組中最接近于平均值的數(shù)。程序清單如下：PrivateSubForm_Click()RandomizePrint"10個2090的隨機數(shù)如下

15、："Dima(1To10)AsInteger,nAsIntegerForn=1To10a(n)=20+Int(Rnd*71)s=s+a(n)Printa(n);NextPrintp=s/10Print”平均值為："&pDimb(1To10)AsInteger,mAsIntegerb(1)=Abs(a-p)x=bq=a(1)r=1Form=2To10b(m)=Abs(a(m)-p)Ifb(m)<xThenx=b(m)q=a(m)r=mEndIfNextPrint"10個隨機數(shù)中最接近于平均值的數(shù)是第"&r&"個數(shù)：&

16、quot;&qEndSub運行效果如下：邕二旦XJ或51的7S2SS3的7545平均值為：55.710個隨機教中最接近于平均值的數(shù)是第2個數(shù)：51H一、(P147-5)在一個窗體上建有包含三個命令按鈕的控件數(shù)組和一個文體框。編程實現(xiàn)當按下標題不同的命令按鈕時，使文體框中文字的字體發(fā)生相應的變化。程序清單如下：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Textl.FontName="黑體"Case 1Textl.FontName="隸書"Case 2Textl.FontN

17、ame="楷體_GB2312”EndSelectEndSub運行效果如下:星體字隸書字口叵I岡白日依山冬,黃河入海流;欲窮千里目,更上一層樓：十二、（P180-6）編程求1000以內(nèi)的完全數(shù)。所謂完全數(shù)是指這樣的自然數(shù)：它的各個約數(shù)（不包括該數(shù)本身）。如28=1+2+4+7+14就是一個完全數(shù)。程序清單如下：PrivateSubForm_Click（）Print"1000以內(nèi)的完全數(shù)有："Form=2To1000s=0Fori=1Tom-1IfmModi=0Thens=s+iEndIfNextIfs=mThenPrintm&"=1+"F

18、ori=2Tom-1IfmModi=0ThenPrint"+"&i;EndIfNextPrintEndIfNextEndSub運行效果如下：QFoulnfnlfx1口口口以內(nèi)的完全數(shù)有:&=1+2+326=14+2+4+7+14496E+244+計16+31十盟+124+248算法和程序設計基礎單元測驗試卷單項選擇題（本大題共30小題，每題1分，共30分）1。下列變量名寫法錯誤的是（）A、 abcB、 abc123C、 abc_123D、 123abc2。在3。語句段在VB中表達式113+11A、3D、6a=3:b=5:A、a值為3,b值為3C、a值為5，b

19、值為5modB、4t=a:4。語句if3*4>=10A、 12thena=1B、 103的運算結果值是（）。C、 5a=b:b=tB、a值為3，D、a值為5，執(zhí)行后，（）。b值為5b值為3elsea=2執(zhí)行后，a的值為（）。C、1D、35。語句段執(zhí)行后，語句段執(zhí)行后,i=1:s=0的值為（dowhilei<=5s=s+ii=i+1loopiA、1B、5C、6D、156。使用VisualBasic編程,我們把工具箱上的工具稱為（）。A.事件B.工具C.控件7。我們保存一個編寫好的程序，窗體和代碼是以（）作為擴展名保存的文件A、.frmB、.vbpC、.batD、.bas8。結束當前程

20、序的語句是（）。A、quitB、exitC、endD、sub9。要改變窗體的標題時，應當在屬性窗口中改變的屬性是（）。A、CaptionB、NameC、TextD、Label10。雙擊窗體中的對象后，VB將顯示的窗口是（）。A工程窗口B、工具箱C、屬性窗口D代碼窗口11。 有程序代碼：Label1.Caption="VisualBasic"其中的Label1、Caption和"VisualBasic"分別代表。A. 對象、值、屬性B.對象、方法、屬性C. 對象、屬性、值D.屬性、對象、值12語句Print5*20輸出的結果是。A.5*20B.100C.”

21、5*20”D.輸出不正確13 在文本框Text1中輸入數(shù)字12，Text2中輸入數(shù)字34，執(zhí)行一下語句，只有_可使文本框Text3中顯示46。B.Text3.Text=Val(Text1.Text)+Val(Text2.Text)D. Text3.Text=Val(Text1.Text)&Val(Text2.Text)14 .描述X、Y都小于Z的邏輯表達式是。A.X<ZAndY<ZB.X<ZOrY<ZC.X<ZXorY<ZD.X<Y<Z15 .表達式16/4-2A5*8/4mod52的值為。A.14B.4C.20D.216確定一個控件在窗

22、體上的位置的屬性是()C.Top或Left17.為了同時改變一個活動控件的高度和寬度，正確的操作是()18當需要提供一批數(shù)據(jù)供用戶選擇時，應該選擇。A.列表框B.文本框C.單選鈕D.標簽19字符串的連接運算符為AB$20下列邏輯運算結果為“Afalseornottrue()。C&D*True”的是()。Bfalseandnottrue21下列各賦值語句中不正確的是22為了保存一個完整Dtrueandnottrue)。BiNumber=15DsLength=x+y應用程序，下列說法中正確的應當是Ctrueornottrue(Ax+y=5Clblsj="Time"Vis

23、ualBasicA.只保存窗體模塊文件(.frm)B.只保存工程文件(.vbp)C.分別保存工程文件和標準模塊文件(.bas)D.分別保存工程文件、窗體文件和標準模塊文件23 .使用計算機解題的步驟，以下描述正確的是：A.正確理解題意設計正確算法-尋找解題方法-編寫程序-調(diào)試運行B.正確理解題意尋找解題方法-設計正確算法-編寫程序-調(diào)試運行C.正確理解題意-尋找解題方法-設計正確算法-調(diào)試運行-編寫程序D.正確理解題意-設計正確算法并尋找解題方法-調(diào)試運行-編寫程序24 .計算機程序由以下兩部分，即：組成。A執(zhí)行部分和數(shù)據(jù)部分B數(shù)據(jù)部分和程序部分C程序部分和指令部分D指令部分和數(shù)據(jù)部分25 .

24、算法的特征是：有窮性、_、能行性、有0個或多個輸人和有一個或多個輸出A.穩(wěn)定性B.確定性C.正常性D.快速性26。下面是使用信用卡在自動取款機上取款的過程。開始用戶正確地插入信用卡用戶輸入個人密碼若密碼正確跳到,否則記錄錯誤次數(shù)若錯誤次數(shù)小于3,返回,否則自動取款機將沒收信用卡，并跳轉(zhuǎn)到進入相關服務項目退出系統(tǒng)結束以上過程中需要補充的內(nèi)容是：A.B.C.D.27.人們在設計計算機程序時，_。A.只要考慮做據(jù)的存貯而不要考慮“計算的過程”B.不要考慮“數(shù)據(jù)的存貯”而只要考慮“計算的過程”C.必須同時考慮“數(shù)據(jù)的存貯”和“計算的過程”D.以上答案都錯28。設計計算機程序時，要考慮“計算的過程”，其

25、含義是在對解決問題的方法進行步驟化時，A.必須同時指出“動作”和“動作的次序”B.不必指出“動作”而只要指出“動作的次序”C.只要指出動作”而不必指出“動作的次序”D.以上說法都正確29 o關于程序中指令的次序，以下說法正確的是：_。A.不必考慮次序B.任意一個程序，其任意位置的指令次序都不能改變C_訐的t-A=0C.對于一個程序，可能某些指令次序可以改變D.任何程序，其任意位置的指令次序都可以改變30 o流程圖的功能是：“統(tǒng)計前1000個自然數(shù)中的奇數(shù)的個數(shù)”，以下關于“計數(shù)器”和“累加器”的描述正確的是：_。TyesA. 1000是計數(shù)器，B是累加器B. B是計數(shù)器，A是累加器是高配嗎？C

26、. A是計數(shù)器，B是累加器D. A是計數(shù)器，1000是累加器、填空題（本大題共16空，每空1分，共16分）1 .程序的三種基本結構是結構、結構和結構。2 .以英文的符號開頭的語句是注釋語句。機器不執(zhí)行，注釋語句可以放在程序的任何位置。3 .請將b"b24ac寫成VB中的表達式形式。2a4 .能夠?qū)⑷我獾囊粋€兩位數(shù)X的個位數(shù)與十位數(shù)對換的表達式為5 .根據(jù)右圖寫出InputBox函數(shù)中的參數(shù)R=InputBox(,10)6 .根據(jù)學生成績cj的值給出相應的評語：90分以上為“優(yōu)秀”，60-90)為“及格”，60分以下為“不及格”。試完成下列程序：x=Val(inputbox(“請輸入成

27、績”)IfThenmsgbox("不及格")ElseIfx>=90Thenmsgbox("“)Elsemsgbox("“)EndIfEndIf7 .以下程序?qū)?個數(shù)從小到大進行排序，試填空完成程序。IfThend=a:a=b:b=dIfThend=a:a=c:c=dIfThend=b:b=c:c=d8、15415mod4=9、(12)or(21)=三、閱讀流程圖或程序?qū)懡Y果(本大題共6空，每空3分，共18分)1、x=7:y=2:z=3ifx<>9ory<>3thenx=y-x:y=z-x:z=y+xendif2、3、prin

28、tx+y+z運行后，輸出結臬是x=2dowhilex<=10a=a+xx=x+2loop該循環(huán)執(zhí)行的次數(shù)是a=10:b=4:j=1Dowhilej<=10a=a+5b=b+4j=j+2loopprinta;b運行后，輸出結果是1=800-1000廠工。廣10輸入x/NN偷出?I圖3-4見圖見圖見圖3-4,若輸入值為900,輸出結果3-5,若輸入的值是-6,輸出結果3-6,語句1,將被執(zhí)行的次數(shù)：max=O4itin=1U圖3-5max=xmirt=x笛出ma、jninCBJ四、流程圖及程序填空：(本大題共7空，每空3分，共21分)1。求分段函數(shù)的值Y=-X+1(X<0);Y=1(X=0);Y=X+1(x>0),流程圖見下左：其中填充22。求：S=1+2+3+4+N,加到第幾項時填充3。求20個數(shù)的平均值。請在右側(cè)流程圖的空白處填入4 .下面程序的功能是統(tǒng)計輸入的十個兩位正整數(shù)中偶數(shù)和奇數(shù)的個板.i=1Dowhilei<=10x=val（inputbox（“請輸入一個兩位數(shù)：”）IfThenk2=k2+1ElseEndIfi=i+1LoopPrint"奇數(shù)個數(shù)="k1,"偶數(shù)個數(shù)="k2五、看流程圖寫程序：1、根據(jù)右側(cè)流程圖，編