还剩15页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
索引
一、在窗体上画一个文本框,其名称为Text1,Text属性为空白再画一个命令按钮,其名称为C1,Visible属性为False编写适当的事件过程程序运行后,如果在文本框中输入字符,则命令按钮出现
二、计算圆的周长和面积在窗体中添加一个文本框(Text1)和一个对应的标签(Label1),再添加两个命令按钮(Command1和Command2)和一个图片框(Picture1)程序运行时,当单击Command1按钮后,计算圆的周长;当单击Command2按钮后,计算圆的面积;计算结果输出在图片框中(要求在未输入半径前两个按钮呈灰色不可用)
三、在窗体上添加三个文本框和对应的三个标签,标签的标题分别是“个位”、“十位”、“百位”程序运行时,当单击窗体后,随机产生一个【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)在窗体上画一个文本框,其名称为Text1,Text属性为空白再画一个命令按钮,其名称为C1,Visible属性为False编写适当的事件过程程序运行后,如果在文本框中输入字符,则命令按钮出现要求存盘时必须存放在“上机题”文件夹下,工程文件名为vb2-
2.vbp,窗体文件名为vb2-
2.frm程序中不得使用任何变量程序清单如下PrivateSubText1_ChangeIfText1ThenC
1.Visible=TrueEndSub运行效果如下
二、(P78-2)计算圆的周长和面积在窗体中添加一个文本框(Text1)和一个对应的标签(Label1),再添加两个命令按钮(Command1和Command2)和一个图片框(Picture1)程序运行时,当单击Command1按钮后,计算圆的周长;当单击Command2按钮后,计算圆的面积;计算结果输出在图片框中(要求在未输入半径前两个按钮呈灰色不可用)程序清单如下PrivateSubCommand1_Clickx=ValText1*2*
3.14159Picture
1.Printr=Text1Picture
1.Print周长=xEndSubPrivateSubCommand2_Clicky=ValText1^2*
3.14159Picture
1.Printr=Text1Picture
1.Print面积=yEndSubPrivateSubText1_ChangeIfText1ThenCommand
1.Enabled=TrueCommand
2.Enabled=TrueEndIfEndSub运行效果如下
三、(P78-3)在窗体上添加三个文本框和对应的三个标签,标签的标题分别是“个位”、“十位”、“百位”程序运行时,当单击窗体后,随机产生一个【100,999】区间内的整数,将它的个位、十位、百位数字分别显示在对应的文本框中程序清单如下PrivateSubForm_ClickRandomizex=IntRnd*900+100Text
1.Text=xMod10Text
2.Text=x\10Mod10Text
3.Text=x\100EndSub运行效果如下
四、(P78-4)设计一个计算程序在窗体上添加四个文本框和四个对应的标签,标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”,三个命令按钮,标题分别为“清除”、“计算”、“退出”程序运行后,用户按“清除”按钮,则清除文本框中显示的内容,按“计算”按钮,则计算三科平均成绩,将计算结果显示在第四个文本框中(计算结果保留小数点后一位)单击退出按钮则程序退出程序清单如下PrivateSubCommand1_ClickText1=Text2=Text3=Text4=EndSubPrivateSubCommand2_ClickText4=ValText1+ValText2+ValText3/3Text4=FormatText
40.0EndSubPrivateSubCommand3_ClickForm
1.HideEndSub运行效果如下
五、(P112-3)某税务部门征收所得税,规定如下
(1)收入200元以内,免征
(2)收入在200~400元,超过200元的部分纳税3%
(3)收入超过400元的部分,纳税4%
(4)当收入达5000元或超过时,将4%税金改为5%编程序实现上述操作程序清单如下PrivateSubCommand1_Clickx=ValText1SelectCasexCaseIs=200Text2=0CaseIs=400Text2=ValText1-200*
0.03CaseIs5000Text2=200*
0.03+ValText1-400*
0.04CaseElseText2=200*
0.03+ValText1-400*
0.05EndSelectEndSub运行效果如下
六、(P112-4)给定三角形的三条边的边长,计算三角形的面积编写程序,首选判断给出的三条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入当输入-1时结束程序程序清单如下PrivateSubCommand1_ClickA=ValText1B=ValText2C=ValText3IfA=0AndA-1OrB=0AndB-1OrC=0AndC-1ThenMsgBox请重新输入!5+16+0警告Text1=Text2=Text3=ElseIfA=-1OrB=-1OrC=-1ThenUnloadMeElseIfA+B=COrA+C=BOrB+C=AThenMsgBox请重新输入!5+16+0警告Text1=Text2=Text3=ElseP=A+B+C/2S=P*P-A*P-B*P-C^1/2Text4=SEndIfEndSub运行效果如下
七、(P112-6)编程求100以内的全部素数程序清单如下PrivateSubForm_Clicky$=2Dimn%j%k%n=100Forj=3Tonk=IntSqrjFori=2TokIfjModi=0ThenExitForNextiIfikTheny$=y$jEndIfNextjMsgBoxy显示素数EndSub运行效果如下
八、(P112-8)编程打印钻石图案程序清单如下PrivateSubForm_ClickFori=-3To3a=Absix=9+ay=Absi*2z=7-yPrintTabx;Forj=1TozPrint*;NextjPrintNextiEndSub运行效果如下
九、(P147-1)输出杨辉三角形程序清单如下PrivateSubForm_ClickPrint1Print1;1Print1;2;1Print1;3;3;1Print1;4;6;4;1Print1;5;10;10;5;1EndSub运行效果如下
十、(P147-4)有一个数组,包含了10个不同的随机整数(20~90),要求计算出它们的平均值,并输出这个数组中最接近于平均值的数程序清单如下PrivateSubForm_ClickRandomizePrint10个20~90的随机数如下Dima1To10AsIntegernAsIntegerForn=1To10an=20+IntRnd*71s=s+anPrintan;NextPrintp=s/10Print平均值为pDimb1To10AsIntegermAsIntegerb1=Absa1-px=b1q=a1r=1Form=2To10bm=Absam-pIfbmxThenx=bmq=amr=mEndIfNextPrint10个随机数中最接近于平均值的数是第r个数qEndSub运行效果如下
十一、(P147-5)在一个窗体上建有包含三个命令按钮的控件数组和一个文体框编程实现当按下标题不同的命令按钮时,使文体框中文字的字体发生相应的变化程序清单如下PrivateSubCommand1_ClickIndexAsIntegerSelectCaseIndexCase0Text
1.FontName=黑体Case1Text
1.FontName=隶书Case2Text
1.FontName=楷体_GB2312EndSelectEndSub运行效果如下
十二、(P180-6)编程求1000以内的完全数所谓完全数是指这样的自然数它的各个约数(不包括该数本身)如28=1+2+4+7+14就是一个完全数程序清单如下PrivateSubForm_ClickPrint1000以内的完全数有Form=2To1000s=0Fori=1Tom-1IfmModi=0Thens=s+iEndIfNextIfs=mThenPrintm=1+;Fori=2Tom-1IfmModi=0ThenPrint+i;EndIfNextPrintEndIfNextEndSub运行效果如下。