完整word版VB程序设计例题12例.docx
《完整word版VB程序设计例题12例.docx》由会员分享,可在线阅读,更多相关《完整word版VB程序设计例题12例.docx(19页珍藏版)》请在冰点文库上搜索。
![完整word版VB程序设计例题12例.docx](https://file1.bingdoc.com/fileroot1/2023-6/27/d34937b8-a08f-40c3-97dd-086cc23ac4a3/d34937b8-a08f-40c3-97dd-086cc23ac4a31.gif)
完整word版VB程序设计例题12例
索引
一、在窗体上画一个文本框,其名称为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_Change()
IfText1<>""ThenC1.Visible=True
EndSub
运行效果如下:
二、(P78-2)计算圆的周长和面积:
在窗体中添加一个文本框(Text1)和一个对应的标签(Label1),再添加两个命令按钮(Command1和Command2)和一个图片框(Picture1)。
程序运行时,当单击Command1按钮后,计算圆的周长;当单击Command2按钮后,计算圆的面积;计算结果输出在图片框中。
(要求在未输入半径前两个按钮呈灰色不可用。
)
程序清单如下:
PrivateSubCommand1_Click()
x=Val(Text1)*2*3.14159
Picture1.Print"r="&Text1
Picture1.Print"周长="&x
EndSub
PrivateSubCommand2_Click()
y=Val(Text1)^2*3.14159
Picture1.Print"r="&Text1
Picture1.Print"面积="&y
EndSub
PrivateSubText1_Change()
IfText1<>""Then
Command1.Enabled=True
Command2.Enabled=True
EndIf
EndSub
运行效果如下:
三、(P78-3)在窗体上添加三个文本框和对应的三个标签,标签的标题分别是“个位”、“十位”、“百位”。
程序运行时,当单击窗体后,随机产生一个【100,999】区间内的整数,将它的个位、十位、百位数字分别显示在对应的文本框中。
程序清单如下:
PrivateSubForm_Click()
Randomize
x=Int(Rnd*900)+100
Text1.Text=xMod10
Text2.Text=x\10Mod10
Text3.Text=x\100
EndSub
运行效果如下:
四、(P78-4)设计一个计算程序:
在窗体上添加四个文本框和四个对应的标签,标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”,三个命令按钮,标题分别为“清除”、“计算”、“退出”。
程序运行后,用户按“清除”按钮,则清除文本框中显示的内容,按“计算”按钮,则计算三科平均成绩,将计算结果显示在第四个文本框中(计算结果保留小数点后一位)。
单击退出按钮则程序退出。
程序清单如下:
PrivateSubCommand1_Click()
Text1=""
Text2=""
Text3=""
Text4=""
EndSub
PrivateSubCommand2_Click()
Text4=(Val(Text1)+Val(Text2)+Val(Text3))/3
Text4=Format(Text4,"0.0")
EndSub
PrivateSubCommand3_Click()
Form1.Hide
EndSub
运行效果如下:
五、(P112-3)某税务部门征收所得税,规定如下:
(1)收入200元以内,免征。
(2)收入在200~400元,超过200元的部分纳税3%。
(3)收入超过400元的部分,纳税4%。
(4)当收入达5000元或超过时,将4%税金改为5%。
编程序实现上述操作。
程序清单如下:
PrivateSubCommand1_Click()
x=Val(Text1)
SelectCasex
CaseIs<=200
Text2=0
CaseIs<=400
Text2=(Val(Text1)-200)*0.03
CaseIs<5000
Text2=200*0.03+(Val(Text1)-400)*0.04
CaseElse
Text2=200*0.03+(Val(Text1)-400)*0.05
EndSelect
EndSub
运行效果如下:
六、(P112-4)给定三角形的三条边的边长,计算三角形的面积。
编写程序,首选判断给出的三条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入。
当输入-1时结束程序。
程序清单如下:
PrivateSubCommand1_Click()
A=Val(Text1)
B=Val(Text2)
C=Val(Text3)
IfA<=0AndA<>-1OrB<=0AndB<>-1OrC<=0AndC<>-1Then
MsgBox"请重新输入!
",5+16+0,"警告"
Text1=""
Text2=""
Text3=""
ElseIfA=-1OrB=-1OrC=-1Then
UnloadMe
ElseIfA+B<=COrA+C<=BOrB+C<=AThen
MsgBox"请重新输入!
",5+16+0,"警告"
Text1=""
Text2=""
Text3=""
Else
P=(A+B+C)/2
S=(P*(P-A)*(P-B)*(P-C))^(1/2)
Text4=S
EndIf
EndSub
运行效果如下:
七、(P112-6)编程求100以内的全部素数。
程序清单如下:
PrivateSubForm_Click()
y$="2"
Dimn%,j%,k%
n=100
Forj=3Ton
k=Int(Sqr(j))
Fori=2Tok
IfjModi=0ThenExitFor
Nexti
Ifi>kThen
y$=y$&""&j
EndIf
Nextj
MsgBoxy,,"显示素数"
EndSub
运行效果如下:
八、(P112-8)编程打印钻石图案。
程序清单如下:
PrivateSubForm_Click()
Fori=-3To3
a=Abs(i)
x=9+a
y=Abs(i*2)
z=7-y
PrintTab(x);
Forj=1Toz
Print"*";
Nextj
Print
Nexti
EndSub
运行效果如下:
九、(P147-1)输出杨辉三角形。
程序清单如下:
PrivateSubForm_Click()
Print1
Print1;1
Print1;2;1
Print1;3;3;1
Print1;4;6;4;1
Print1;5;10;10;5;1
EndSub
运行效果如下:
十、(P147-4)有一个数组,包含了10个不同的随机整数(20~90),要求计算出它们的平均值,并输出这个数组中最接近于平均值的数。
程序清单如下:
PrivateSubForm_Click()
Randomize
Print"10个20~90的随机数如下:
"
Dima(1To10)AsInteger,nAsInteger
Forn=1To10
a(n)=20+Int(Rnd*71)
s=s+a(n)
Printa(n);
Next
Print
p=s/10
Print"平均值为:
"&p
Dimb(1To10)AsInteger,mAsInteger
b
(1)=Abs(a
(1)-p)
x=b
(1)
q=a
(1)
r=1
Form=2To10
b(m)=Abs(a(m)-p)
Ifb(m)x=b(m)
q=a(m)
r=m
EndIf
Next
Print"10个随机数中最接近于平均值的数是第"&r&"个数:
"&q
EndSub
运行效果如下:
十一、(P147-5)在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。
编程实现当按下标题不同的命令按钮时,使文体框中文字的字体发生相应的变化。
程序清单如下:
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Text1.FontName="黑体"
Case1
Text1.FontName="隶书"
Case2
Text1.FontName="楷体"
EndSelect
EndSub
运行效果如下:
十二、(P180-6)编程求1000以内的完全数。
所谓完全数是指这样的自然数:
它的各个约数(不包括该数本身)。
如28=1+2+4+7+14就是一个完全数。
程序清单如下:
PrivateSubForm_Click()
Print"1000以内的完全数有:
"
Form=2To1000
s=0
Fori=1Tom-1
IfmModi=0Then
s=s+i
EndIf
Next
Ifs=mThen
Printm&"=1+";
Fori=2Tom-1
IfmModi=0Then
Print"+"&i;
EndIf
Next
Print
EndIf
Next
EndSub
运行效果如下: