VB程序设计例题12例

索引一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。二、计算圆的周长和面积：在窗体中添加一个文本框(Text1)和一个对应的标签(Labell),再添加两个命令按钮(Commandfi^Command)2和一个图片框(Picturel)。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command按钮后，计算圆的面积；计算结果输出在图片框中。(要求在未输入半径前两个按钮呈灰色不可用。)三、 在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位” 、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。四、 设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中(计算结果保留小数点后一位)。单击退出按钮则程序退出。五、 某税务部门征收所得税，规定如下：(1)收入200元以内，免征。(2)收入在200~400元，超过200元的部分纳税3%。(3)收入超过400元的部分，纳税4%。(4)当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。六、 给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。七、 编程求100以内的全部素数。八、 编程打印钻石图案。九、 输出杨辉三角形。十、有一个数组，包含了10个不同的随机整数(20~90)，要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数(不包括该数本身)。如28=1+2+4+7+14就是一个完全数。

一、(P50-2)在窗体上画一个文本框，其名称为Textl,Text属性为空白。再画一个命令按钮，其名称为C1,Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。要求：存盘时必须存放在“上机题”文件夹下，工程文件名为 vb2-2.vbp，窗体文件名为vb2-2.frm。程序中不得使用任何变量。程序清单如下：PrivateSubText1_Change()IfText1<>""ThenC1.Visible=TrueEndSub二、(P78-2)计算圆的周长和面积：在窗体中添加一个文本框(Textl)和一个对应的标签(Labell)，再添加两个命令按钮(Command和Command2和一个图片框(Picturel)。程序运行时，当单击Command按钮后，计算圆的周长；当单击Command按钮后，计算圆的面积；计算结果输出在图片框中。(要求在未输入半径前两个按钮呈灰色不可用。)程序清单如下：PrivateSubCommand1_Click()x=Val(Text1)*2*3.14159Picturel.Print"r="&TextlPicturel.Print"周长="&xEndSubPrivateSubCommand2_Click()y=Val(Textl)A2*3.14159Picturel.Print"r="&Text1Picture1.Print"面积="&yEndSubPrivateSubText1_Change()IfText1<>""ThenCommand1.Enabled=TrueCommand2.Enabled=TrueEndIfEndSub运行效果如下:rr工比ri>'呵彌c-whme泅JbjbL"ij""aImiL护IsbiL03ImiL三、(P78-3)在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。程序清单如下：PrivateSubForm_Click()Randomizex=Int(Rnd*900)+100Textl.Text=xMod10Text2.Text=x\10Mod10Text3.Text=x\100EndSub运行效果如下:

四、（P78-4）设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。程序清单如下: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）某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。程序清单如下：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运行效果如下:

六、(P112-4)给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。程序清单如下：PrivateSubCommand1_Click()A=Val(Text1)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"请重新输入！",5+16+0,"警告"Text1=""Text2=""Text3=""ElseP=(A+B+C)/2S=(P*(P-A)*(P-B)*(P-C))A(1/2)Text4=SEndIfEndSub运行效果如下：■汁埠三角形面私 nrnifx兰靖飛边圧 兰箱定边民 三扬眾边上计算七、(P112-6)编程求100以内的全部素数程序清单如下：PrivateSubForm_Click()y$="2"Dimn%,j%,k%n=100Forj=3Tonk=Int(Sqr(j))Fori=2TokIfjModi=0ThenExitForNextiIfi>kTheny$=y$&""&jEndIfNextjMsgBoxy,,"显示素数"EndSub运行效果如下:?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）有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。程序清单如下：PrivateSubForm_Click()RandomizePrint"10个20~90的随机数如下：”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个随机数中最接近于平均值的数是第 ”&r&”个数：”&qEndSub十^一、（P147-5）在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。程序清单如下：PrivateSubCommand1_Click(lndexAsInteger)SelectCaseIndexCase0Textl.FontName="黑体"Case1Textl.FontName="隶书”Case2Textl.FontName="楷体_GB2312"EndSelectEndSub十二、（P180-6）编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如