【試卷】程序設(shè)計(jì)語(yǔ)言VB綜合設(shè)計(jì)題及答案

1、程序設(shè)計(jì)語(yǔ)言VB綜合設(shè)計(jì)題1 .編制程序?qū)崿F(xiàn)：在窗體上，單擊按鈕1,在文本框中動(dòng)態(tài)顯示當(dāng)前時(shí)間；單擊按鈕2,則停止動(dòng)態(tài)顯示；單擊按鈕3,清除文本框內(nèi)容。提示：可用定時(shí)器控制時(shí)間，用系統(tǒng)函數(shù)Now顯示時(shí)間（如Textl.Text=Now）。2 .編制程序：求出100-200之間所有可以被3整除的數(shù)的總和，將結(jié)果用消息框顯示輸出。3 .編制程序：利用輸入框輸入10個(gè)不同的整數(shù)，將它們從小到大排序，并打印輸出。4 .編制程序?qū)崿F(xiàn)：設(shè)計(jì)在一框架中包含三個(gè)復(fù)選框，只有當(dāng)其1,3選中而2未選中時(shí)，才在Text1中顯示Hello字符。5 .編一程序能實(shí)現(xiàn)在窗體上打印出如下圖所示的圖形。AAAAAAAAAAA

2、AAAAABBBBBBBBBBBBBBBB6 .編一程序用于判斷一正整數(shù)是否為素?cái)?shù)。（提示：只能被1和本身整除的正整數(shù)稱為素?cái)?shù)。為了判斷一個(gè)數(shù)n是不是素?cái)?shù)，可以將n被2到sqr（n）之間的所有整數(shù)除，如果都除不盡，則n就是素?cái)?shù)，否則n是非素?cái)?shù)。）7 .選用If和Select判斷結(jié)構(gòu)中任意一種編寫滿足下列條件的計(jì)稅要求的程序：少于1600元，免稅；1601-5000元，征2%勺稅；多于5000元，超過部分征5%勺稅。8 .有a、b、c三個(gè)數(shù)，編一程序?qū)崿F(xiàn)通過文本框給a、b賦值；再調(diào)用能完成a、b比較大小的子過程，用c將大數(shù)回傳。要求按值傳送a、bo9 .編一程序用于求所有的水仙花數(shù)。所謂水仙花數(shù)

3、是指一個(gè)3位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。例如：153就是一水仙花數(shù)，因?yàn)?53=13+53+33o10.設(shè)計(jì)一彈出式菜單，用于設(shè)置窗體的背景色，背景色包含白色、黃色、紅色三種顏色。11 .編寫程序?qū)崿F(xiàn)：輸入三角形的三條邊a,b,c的值，根據(jù)其數(shù)值判斷能否構(gòu)成三角形。如果能，則判斷三角形是否是直角三角形，若是則計(jì)算該直角三角形的面積。提示：判斷能否構(gòu)成三角形的方法是，求最長(zhǎng)的一邊，判斷它的邊長(zhǎng)是否小于另外兩邊邊長(zhǎng)之和；或求最短的一邊，判斷它的邊長(zhǎng)是否大于另外兩邊之差。12 .編寫程序：通過四個(gè)命令按鈕Command1-Command4E圖片框Picture1內(nèi)分別實(shí)現(xiàn)畫點(diǎn)、畫線、畫圓、擦除

4、等功能。13 .編寫程序?qū)崿F(xiàn)：在窗體上單擊按鈕1,可通過輸入對(duì)話框輸入兩個(gè)字符串；單擊按鈕2,將輸入的兩個(gè)字符串連接為一個(gè)字符串，并計(jì)算該字符串長(zhǎng)度，然后在消息框中顯示出來。14 .編一程序：用三個(gè)文本框分別輸入a、b、c,求一元二次方程ax2+bx+c=0的解x1和x2,只包括實(shí)根。15 .編一程序：利用輸入對(duì)話框輸入兩個(gè)正整數(shù)，求最大公約數(shù)。答案1. PrivateSubCommand1_Click()Timerl.Interval=5Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubP

5、rivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSub2. PrivateSubCommand1_Click()Dimi,sAsIntegerFori=100To200IfiMod3=0Thens=s+iNextiMsgBox(100-200之間所有可以被3整除的數(shù)的總和為：&Str(s)3. PrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)=Val(InputBo

6、x(第&i+1&個(gè)數(shù)：)NextiFori=0To9Forj=i+1To9Ifa(i)a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNextiFori=0To9Printa(i);NextiEndSub4. PrivateSubCommand1_Click()IfCheck1.Value=1AndCheck2.Value=1AndCheck3.Value=0ThenText1.Text=HelloEndSub5. PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To4Forj=1To(2*i-1)PrintA;Nex

7、tjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1Step-1PrintB;NextjPrintNextiEndSub6. PrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox(請(qǐng)輸入一個(gè)正整數(shù))k=Int(Sqr(n)i=2temp=0DoWhilei=kAndtemp=0IfnModi=0Thentemp=1Else1 =i+1EndIfLoopIftemp=0ThenPrintn;是一個(gè)素?cái)?shù)ElsePrintn;不是素?cái)?shù)EndIfEndSub7. PrivateSubCommand1_Cli

8、ck()Dimn,pAsSinglen=Val(Textl.Text)SelectCasenCaseIsbThenc=aElsec=bEndSubPrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)Callc1(a,b,c)PrintcEndSub9. PrivateSubCommand1_Click()Dima,b,c,nAsIntegerForn=100To999a=Int(n/100)b=Int(n-a*100)/10)c=n-(a*100+b*10)Ifn=a八3+b八3+c八3Then

9、Printn;NextEndSub10. PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMenuAEndIfEndSubPrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase 1Forml.BackColor=vbWhiteCase 2Forml.BackColor=vbYellowCaseElseForml.BackColor=vbRedEndSelect11. PrivateSubComma

10、nd1_Click()Dima(2),i,j,mAsIntegerFori=0To2a(i)=Val(InputBox(第&i+1&條邊為：)NextiFori=0To2Forj=i+1To2Ifa(i)a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNextiIfa(0)+a(1)a(2)ThenIfa(0)八2+a(1)八2=a(2)八2ThenPrint能構(gòu)成直角三角形，面積為：&a(0)*a(1)/2ElsePrint能構(gòu)成三角形，但不是直角三角形EndIfElsePrint不能構(gòu)成三角形EndSub12. PrivateSubCommand1_Click

11、()Picturel.PSet(Picturel.Width/2,Picture1.Height/2)EndSubPrivateSubCommand2_Click()Picture1.Line(0,0)-(Picture1.Width,Picture1.Height)EndSubPrivateSubCommand3_Click()Picture1.Circle(Picture1.Width/2,Picture1.Height/2),800EndSubPrivateSubCommand4_Click()Picture1.ClsEndSub13. Dima,b,cAsStringPrivateSubCommand1_Click()a=InputBox(請(qǐng)輸入第一個(gè)字符串)b=InputBox(請(qǐng)輸入第二個(gè)字符串)EndSubPrivateSubCommand2_Click()c=a+bMsgBox連接后的字符串為：&c&。長(zhǎng)度為：&Len(c)EndSub14. PrivateSubCommand4_Cli