索引一、在窗體上畫一個(gè)文本框，其名稱為Text1，Text屬性為空白。再畫一個(gè)命令按鈕，其名稱為C1，Visible屬性為False。編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。二、計(jì)算圓的周長(zhǎng)和面積：在窗體中添加一個(gè)文本框(Text1)和一個(gè)對(duì)應(yīng)的標(biāo)簽(Labell),再添加兩個(gè)命令按鈕(Commandfi^Command)2和一個(gè)圖片框(Picturel)。程序運(yùn)行時(shí)，當(dāng)單擊Command1按鈕后，計(jì)算圓的周長(zhǎng)；當(dāng)單擊Command按鈕后，計(jì)算圓的面積；計(jì)算結(jié)果輸出在圖片框中。(要求在未輸入半徑前兩個(gè)按鈕呈灰色不可用。)三、 在窗體上添加三個(gè)文本框和對(duì)應(yīng)的三個(gè)標(biāo)簽，標(biāo)簽的標(biāo)題分別是“個(gè)位” 、“十位”、“百位”。程序運(yùn)行時(shí)，當(dāng)單擊窗體后，隨機(jī)產(chǎn)生一個(gè)【100，999】區(qū)間內(nèi)的整數(shù)，將它的個(gè)位、十位、百位數(shù)字分別顯示在對(duì)應(yīng)的文本框中。四、 設(shè)計(jì)一個(gè)計(jì)算程序：在窗體上添加四個(gè)文本框和四個(gè)對(duì)應(yīng)的標(biāo)簽，標(biāo)簽的標(biāo)題分別是“語文”、“數(shù)學(xué)”、“外語”、“平均成績(jī)”，三個(gè)命令按鈕，標(biāo)題分別為“清除”、“計(jì)算”、“退出”。程序運(yùn)行后，用戶按“清除”按鈕，則清除文本框中顯示的內(nèi)容，按“計(jì)算”按鈕，則計(jì)算三科平均成績(jī)，將計(jì)算結(jié)果顯示在第四個(gè)文本框中(計(jì)算結(jié)果保留小數(shù)點(diǎn)后一位)。單擊退出按鈕則程序退出。五、 某稅務(wù)部門征收所得稅，規(guī)定如下：(1)收入200元以內(nèi)，免征。(2)收入在200~400元，超過200元的部分納稅3%。(3)收入超過400元的部分，納稅4%。(4)當(dāng)收入達(dá)5000元或超過時(shí)，將4%稅金改為5%。編程序?qū)崿F(xiàn)上述操作。六、 給定三角形的三條邊的邊長(zhǎng)，計(jì)算三角形的面積。編寫程序，首選判斷給出的三條邊能否構(gòu)成三角形，如可以構(gòu)成，則計(jì)算并輸出該三角形的面積，否則要求重新輸入。當(dāng)輸入-1時(shí)結(jié)束程序。七、 編程求100以內(nèi)的全部素?cái)?shù)。八、 編程打印鉆石圖案。九、 輸出楊輝三角形。十、有一個(gè)數(shù)組，包含了10個(gè)不同的隨機(jī)整數(shù)(20~90)，要求計(jì)算出它們的平均值，并輸出這個(gè)數(shù)組中最接近于平均值的數(shù)。十一、在一個(gè)窗體上建有包含三個(gè)命令按鈕的控件數(shù)組和一個(gè)文體框。編程實(shí)現(xiàn)當(dāng)按下標(biāo)題不同的命令按鈕時(shí)，使文體框中文字的字體發(fā)生相應(yīng)的變化。十二、編程求1000以內(nèi)的完全數(shù)。所謂完全數(shù)是指這樣的自然數(shù)：它的各個(gè)約數(shù)(不包括該數(shù)本身)。如28=1+2+4+7+14就是一個(gè)完全數(shù)。

一、(P50-2)在窗體上畫一個(gè)文本框，其名稱為Textl,Text屬性為空白。再畫一個(gè)命令按鈕，其名稱為C1,Visible屬性為False。編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。要求：存盤時(shí)必須存放在“上機(jī)題”文件夾下，工程文件名為 vb2-2.vbp，窗體文件名為vb2-2.frm。程序中不得使用任何變量。程序清單如下：PrivateSubText1_Change()IfText1<>""ThenC1.Visible=TrueEndSub二、(P78-2)計(jì)算圓的周長(zhǎng)和面積：在窗體中添加一個(gè)文本框(Textl)和一個(gè)對(duì)應(yīng)的標(biāo)簽(Labell)，再添加兩個(gè)命令按鈕(Command和Command2和一個(gè)圖片框(Picturel)。程序運(yùn)行時(shí)，當(dāng)單擊Command按鈕后，計(jì)算圓的周長(zhǎng)；當(dāng)單擊Command按鈕后，計(jì)算圓的面積；計(jì)算結(jié)果輸出在圖片框中。(要求在未輸入半徑前兩個(gè)按鈕呈灰色不可用。)程序清單如下：PrivateSubCommand1_Click()x=Val(Text1)*2*3.14159Picturel.Print"r="&TextlPicturel.Print"周長(zhǎng)="&xEndSubPrivateSubCommand2_Click()y=Val(Textl)A2*3.14159Picturel.Print"r="&Text1Picture1.Print"面積="&yEndSubPrivateSubText1_Change()IfText1<>""ThenCommand1.Enabled=TrueCommand2.Enabled=TrueEndIfEndSub運(yùn)行效果如下:rr工比ri>'呵彌c-whme泅JbjbL"ij""aImiL護(hù)IsbiL03ImiL三、(P78-3)在窗體上添加三個(gè)文本框和對(duì)應(yīng)的三個(gè)標(biāo)簽，標(biāo)簽的標(biāo)題分別是“個(gè)位”“十位”、“百位”。程序運(yùn)行時(shí)，當(dāng)單擊窗體后，隨機(jī)產(chǎn)生一個(gè)【100，999】區(qū)間內(nèi)的整數(shù)，將它的個(gè)位、十位、百位數(shù)字分別顯示在對(duì)應(yīng)的文本框中。程序清單如下：PrivateSubForm_Click()Randomizex=Int(Rnd*900)+100Textl.Text=xMod10Text2.Text=x\10Mod10Text3.Text=x\100EndSub運(yùn)行效果如下:

四、（P78-4）設(shè)計(jì)一個(gè)計(jì)算程序：在窗體上添加四個(gè)文本框和四個(gè)對(duì)應(yīng)的標(biāo)簽，標(biāo)簽的標(biāo)題分別是“語文”、“數(shù)學(xué)”、“外語”、“平均成績(jī)”，三個(gè)命令按鈕，標(biāo)題分別為“清除”、“計(jì)算”、“退出”。程序運(yùn)行后，用戶按“清除”按鈕，則清除文本框中顯示的內(nèi)容，按“計(jì)算”按鈕，則計(jì)算三科平均成績(jī)，將計(jì)算結(jié)果顯示在第四個(gè)文本框中（計(jì)算結(jié)果保留小數(shù)點(diǎn)后一位）。單擊退出按鈕則程序退出。程序清單如下:PrivateSubCommand1_Click()Textl=""Text2=""Text3=""Text4=""EndSubPrivateSubCommand2_Click()Text4=(Val(Text1)+Val(Text2)+Val(Text3))/3Text4=Format(Text4,"O.O")EndSubPrivateSubCommand3_Click()Form1.HideEndSub五、（P112-3）某稅務(wù)部門征收所得稅，規(guī)定如下：（1）收入200元以內(nèi)，免征。（2）收入在200~400元，超過200元的部分納稅3%。（3）收入超過400元的部分，納稅4%。（4）當(dāng)收入達(dá)5000元或超過時(shí)，將4%稅金改為5%。編程序?qū)崿F(xiàn)上述操作。程序清單如下：PrivateSubCommand1_Click()x=Val(Text1)SelectCasexCaseIs<=200Text2=0CaseIs<=400Text2=(Val(Text1)-200)*0.03CaseIs<5000Text2=200*0.03+(Val(Textl)-400)*0.04CaseElseText2=200*0.03+(Val(Textl)-400)*0.05EndSelectEndSub運(yùn)行效果如下:

六、(P112-4)給定三角形的三條邊的邊長(zhǎng)，計(jì)算三角形的面積。編寫程序，首選判斷給出的三條邊能否構(gòu)成三角形，如可以構(gòu)成，則計(jì)算并輸出該三角形的面積，否則要求重新輸入。當(dāng)輸入-1時(shí)結(jié)束程序。程序清單如下：PrivateSubCommand1_Click()A=Val(Text1)B=Val(Text2)C=Val(Text3)IfA<=0AndA<>-1OrB<=0AndB<>-1OrC<=0AndC<>-1ThenMsgBox"請(qǐng)重新輸入！",5+16+0,"警告"Text1=""Text2=""Text3=""ElselfA=-1OrB=-1OrC=-1ThenUnloadMeElselfA+B<=COrA+C<=BOrB+C<=AThenMsgBox"請(qǐng)重新輸入！",5+16+0,"警告"Text1=""Text2=""Text3=""ElseP=(A+B+C)/2S=(P*(P-A)*(P-B)*(P-C))A(1/2)Text4=SEndIfEndSub運(yùn)行效果如下：■汁埠三角形面私 nrnifx蘭靖飛邊圧 蘭箱定邊民 三揚(yáng)眾邊上計(jì)算七、(P112-6)編程求100以內(nèi)的全部素?cái)?shù)程序清單如下：PrivateSubForm_Click()y$="2"Dimn%,j%,k%n=100Forj=3Tonk=Int(Sqr(j))Fori=2TokIfjModi=0ThenExitForNextiIfi>kTheny$=y$&""&jEndIfNextjMsgBoxy,,"顯示素?cái)?shù)"EndSub運(yùn)行效果如下:?357111317IS2329313741434753S36167T173八、(P112-8)編程打印鉆石圖案程序清單如下：PrivateSubForm_Click()Fori=-3To3a=Abs(i)x=9+ay=Abs(i*2)z=7-yPrintTab(x);Forj=1TozPrint"*";NextjPrintNextiEndSub?Foral九、(P147-1)輸出楊輝三角形。程序清單如下：PrivateSubForm_Click()Print1Print1;1Print1;2;1Print1;3;3;1Print1;4;6;4;1Print1;5;10;10;5;1EndSub十、（P147-4）有一個(gè)數(shù)組，包含了10個(gè)不同的隨機(jī)整數(shù)（20~90），要求計(jì)算出它們的平均值，并輸出這個(gè)數(shù)組中最接近于平均值的數(shù)。程序清單如下：PrivateSubForm_Click()RandomizePrint"10個(gè)20~90的隨機(jī)數(shù)如下：”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(1)-p)x=b(1)q=a(1)r=1Form=2To10b(m)=Abs(a(m)-p)Ifb(m)<xThenx=b(m)q=a(m)r=mEndIfNextPrint"10個(gè)隨機(jī)數(shù)中最接近于平均值的數(shù)是第 ”&r&”個(gè)數(shù)：”&qEndSub十^一、（P147-5）在一個(gè)窗體上建有包含三個(gè)命令按鈕的控件數(shù)組和一個(gè)文體框。編程實(shí)現(xiàn)當(dāng)按下標(biāo)題不同的命令按鈕時(shí)，使文體框中文字的字體發(fā)生相應(yīng)的變化。程序清單如下：PrivateSubCommand1_Click(lndexAsInteger)SelectCaseIndexCase0Textl.FontName="黑體"Case1Textl.FontName="隸書”Case2Textl.FontName="楷體_GB2312"EndSelectEndSub十二、（P180-6）編程求1000以內(nèi)的完全數(shù)。所謂完全數(shù)是指這樣的自然數(shù)：它的各個(gè)約數(shù)（不包括該數(shù)本身）。如