VB总习题复习.docx
- 文档编号:4901454
- 上传时间:2022-12-11
- 格式:DOCX
- 页数:35
- 大小:388.07KB
VB总习题复习.docx
《VB总习题复习.docx》由会员分享,可在线阅读,更多相关《VB总习题复习.docx(35页珍藏版)》请在冰豆网上搜索。
VB总习题复习
1.PrivateSubCommand1_Click()
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
EndSub
PrivateSubCommand3_Click()
Text3.Text=Val(Text1.Text)-Val(Text2.Text)
EndSub
PrivateSubCommand4_Click()
Text3.Text=Val(Text1.Text)*Val(Text2.Text)
EndSub
PrivateSubCommand5_Click()
Text3.Text=Val(Text1.Text)/Val(Text2.Text)
EndSub
注:
若加法运算没有val,则5+3=53,其他运算可以没有val
2.PrivateConstPIAsSingle=3.1415926
PrivateSubCommand1_Click()
Text2.Text=Val(Text1.Text)*PI*2
Text3.Text=Val(Text1.Text)*Val(Text1.Text)*PI
EndSub
PrivateSubCommand3_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand4_Click()
End
EndSub
3.PrivateConstPIAsSingle=3.1415926
PrivateSubCommand1_Click()
Text2.Text=Sin(Val(Text1.Text)/180*PI)
Text3.Text=Cos(Val(Text1.Text)/180*PI)
Text4.Text=Tan(Val(Text1.Text)/180*PI)
Text5.Text=1/Tan(Val(Text1.Text)/180*PI)
EndSub
注:
不存在cot()函数,用1/tan()代替
4.计算分段函数,在窗体上添加两个标签、两个文本框和一个命令按钮,在Text1中输入x的值,单击命令按钮,将计算结果填写在Text2中。
PrivateSubCommand1_Click()
DimxAsInteger:
x=Text1.Text
Ifx<>0Then
Text2.Text=Val(Sin(x)+(x^2+1)^(1/2))
ElseIfx=0Then
Text2.Text=Val(Cos(x)-x^3+3*x)
EndIf
EndSub
5.象限的判断,在Text1和Text2中输入横纵坐标,点击命令按钮,判断点在哪个象限内,并在Text3中给出结果。
PrivateSubCommand1_Click()
DimxAsInteger:
x=Text1.Text
DimyAsInteger:
y=Text2.Text
Ifx>0Andy>0Then
Text3.Text="第一象限"
ElseIfx<0Andy>0Then
Text3.Text="第二象限"
ElseIfx<0Andy<0Then
Text3.Text="第三象限"
ElseIfx>0Andy<0Then
Text3.Text="第四象限"
ElseIfx=0Then
Text3.Text="x轴上"
ElseIfy=0Then
Text3.Text="y轴上"
EndIf
EndSub
6.程序运行后,用户在Text1输入存款数,根据存款钱数选择礼物送给用户,并在Text2中输成礼物:
5000元以下,送水杯,否则低于一万元,送优盘,否则低于5万元,送无线鼠标,否则送移动硬盘。
PrivateSubCommand1_Click()
DimxAsLong:
x=Text1.Text
Ifx<5000Then
Text2.Text="水杯"
ElseIfx>=5000Andx<10000Then
Text2.Text="优盘"
ElseIfx>=10000Andx<50000Then
Text2.Text="无线鼠标"
ElseIfx>=50000Then
Text2.Text="移动硬盘"
EndIf
EndSub
7.活动中心举行活动,若身体健康状况不好,则让其参加“扑克牌”,否则对于年龄小于45岁的男性,让其参加篮球比赛,大于等于45岁的男性,参加竞走比赛;年龄小于45岁的女性,让其参加排球比赛,大于等于45岁的女性,参加投球比赛。
程序运行后,单击确定按钮,在Text4中输成项目。
(健康状况:
好或者不好)
PrivateSubCommand1_Click()
DimsexAsString:
sex=Text1.Text
DimyearAsInteger:
year=Text2.Text
DimhealAsString:
heal=Text3.Text
Ifheal="不好"Then
Text4.Text="扑克牌"
ElseIfheal="好"Then
Ifsex="男"Then
Ifyear<45Then
Text4.Text="篮球"
ElseIfyear>=45Then
Text4.Text="竞走"
EndIf
ElseIfsex="女"Then
Ifyear<45Then
Text4.Text="排球"
ElseIfyear>=45Then
Text4.Text="投球"
EndIf
EndIf
EndIf
EndSub
8.三数排序,请输入三个任意数,按从大到小顺序输出。
要求:
设计程序界面,编制程序上机调试,验证程序的正确性。
PrivateSubCommand1_Click()
Dimnum1AsInteger:
num1=Text1.Text
Dimnum2AsInteger:
num2=Text2.Text
Dimnum3AsInteger:
num3=Text3.Text
Ifnum1>=num2Andnum2>=num3Then
Text4.Text=Text1.Text+">"+Text2.Text+">"+Text3.Text
ElseIfnum1>=num2Andnum1>=num3Andnum2<=num3Then
Text4.Text=Text1.Text+">"+Text3.Text+">"+Text2.Text
ElseIfnum2>=num1Andnum1>=num3Then
Text4.Text=Text2.Text+">"+Text1.Text+">"+Text3.Text
ElseIfnum2>=num1Andnum2>=num3Andnum1<=num3Then
Text4.Text=Text2.Text+">"+Text3.Text+">"+Text1.Text
ElseIfnum3>=num1Andnum1>=num2Then
Text4.Text=Text3.Text+">"+Text1.Text+">"+Text2.Text
ElseIfnum3>=num1Andnum3>=num2Andnum1<=num2Then
Text4.Text=Text3.Text+">"+Text2.Text+">"+Text1.Text
EndIf
EndSub
9.
计算税款。
国家规定,收税标准如下:
PrivateSubCommand1_Click()
DimmonAsCurrency:
mon=Text1.Text
Ifmon<1000Then
Text2.Text=0
ElseIfmon>=1000Andmon<1500Then
Text2.Text=(mon-1000)*0.05
ElseIfmon>=1500Andmon<2000Then
Text2.Text=500*0.05+(mon-1500)*0.1
ElseIfmon>=2000Andmon<2500Then
Text2.Text=500*0.05+500*0.1+(mon-2000)*0.15
ElseIfmon>=2500Andmon<5000Then
Text2.Text=500*0.05+500*0.1+500*0.15+(mon-2500)*0.2
ElseIfmon>=5000Then
Text2.Text=500*0.05+500*0.1+500*0.15+2500*0.2+(mon-5000)*0.25
EndIf
EndSub
10.在窗体上添加两个文本框以及一个命令按钮,程序运行后,在Text1中输入一个字符,单击命令按钮,则:
若Text1中输入的是数字,则在Text2中显示“您输入的是数字”,若是大写字母,则在Text2中显示“你输入的大写字母”,若是小写字母,则在Text2中显示“你输入的是小写字母”,否则,在Text2中显示“你输入的是其它字符”。
PrivateSubCommand1_Click()
DimiAsInteger
Fori=1ToLen(Text1.Text)
If(Mid(Text1.Text,i,1)>="0"AndMid(Text1.Text,i,1)<="9")Then
Text2.Text="数字"
ElseIf(Mid(Text1.Text,i,1)>="A"AndMid(Text1.Text,i,1)<="Z")Then
Text2.Text="大写字母"
ElseIf(Mid(Text1.Text,i,1)>="a"AndMid(Text1.Text,i,1)<="z")Then
Text2.Text="小写字母"
Else
Text2.Text="其他字符"
EndIf
EndSub
注:
利用ASCǁ码
11.输入三条边长,判断以它们作为三角形的三边长,是否能构成一个三角形,并给出结论。
若能够成三角形,则求其面积与周长,若不能构成三角形,给用户提示。
程序界面自行设计,美观清楚,最后验证程序正确。
PrivateSubCommand1_Click()
DimaAsInteger:
a=Text1.Text
DimbAsInteger:
b=Text2.Text
DimcAsInteger:
c=Text3.Text
DimpAsInteger:
p=(a+b+c)/2
IfaAbs(b-c)AndbAbs(a-c)
AndcAbs(a-b)Then
Text4.Text=a+b+c
Text5.Text=Sqr(p*(p-a)*(p-b)*(p-c))
Else
Text6.Text="不能构成三角形"
EndIf
EndSub
注:
海伦公式:
p=(a+b+c)/2,s=
12.输入年份与月份,求其多少天。
程序界面自行设计,美观清楚,最后验证程序的正确性,尤其对于闰年的2月份能够给出正确的天数。
PrivateSubCommand1_Click()
DimyearAsInteger:
year=Text1.Text
DimmonthAsInteger:
month=Text2.Text
IfyearMod4=0AndyearMod100<>0Then
Ifmonth=1Then
Text3.Text=31
EndIf
Ifmonth=2Then
Text3.Text=29
EndIf
Ifmonth=3Then
Text3.Text=31
EndIf
Ifmonth=4Then
Text3.Text=30
EndIf
Ifmonth=5Then
Text3.Text=31
EndIf
Ifmonth=6Then
Text3.Text=30
EndIf
Ifmonth=7Then
Text3.Text=31
EndIf
Ifmonth=8Then
Text3.Text=31
EndIf
Ifmonth=9Then
Text3.Text=30
EndIf
Ifmonth=10Then
Text3.Text=31
EndIf
Ifmonth=11Then
Text3.Text=30
EndIf
Ifmonth=12Then
Text3.Text=31
EndIf
ElseIfyearMod400=0AndyearMod100=0Then
Ifmonth=1Then
Text3.Text=31
EndIf
Ifmonth=2Then
Text3.Text=29
EndIf
Ifmonth=3Then
Text3.Text=31
EndIf
Ifmonth=4Then
Text3.Text=30
EndIf
Ifmonth=5Then
Text3.Text=31
EndIf
Ifmonth=6Then
Text3.Text=30
EndIf
Ifmonth=7Then
Text3.Text=31
EndIf
Ifmonth=8Then
Text3.Text=31
EndIf
Ifmonth=9Then
Text3.Text=30
EndIf
Ifmonth=10Then
Text3.Text=31
EndIf
Ifmonth=11Then
Text3.Text=30
EndIf
Ifmonth=12Then
Text3.Text=31
EndIf
Else
Ifmonth=1Then
Text3.Text=31
EndIf
Ifmonth=2Then
Text3.Text=28
EndIf
Ifmonth=3Then
Text3.Text=31
EndIf
Ifmonth=4Then
Text3.Text=30
EndIf
Ifmonth=5Then
Text3.Text=31
EndIf
Ifmonth=6Then
Text3.Text=30
EndIf
Ifmonth=7Then
Text3.Text=31
EndIf
Ifmonth=8Then
Text3.Text=31
EndIf
Ifmonth=9Then
Text3.Text=30
EndIf
Ifmonth=10Then
Text3.Text=31
EndIf
Ifmonth=11Then
Text3.Text=30
EndIf
Ifmonth=12Then
Text3.Text=31
EndIf
EndIf
EndSub
注:
①、普通年能被4整除且不能被100整除的为闰年.
②、世纪年能被400整除的是闰年
13.猜数游戏:
由计算机自动产生一个[1,100]的随机整数,用户在Text1中输入猜数后由计算机进行比较,并通过Text2提示太大了或者太小了等信息。
共有5次猜数机会,如果在规定的次数内猜中,则在Text2显示猜中了等信息,如果5次都猜不中,则显示猜数失败的信息。
PrivateSubCommand1_Click()
Randomize
i=Int(Rnd*100)
Printi
Forj=1To5
a=Val(InputBox("请输入一个小于100的整数","输入数据"))
Ifa=iThen
Text2.Text="right"
ExitFor
ElseIfa Text2.Text="small" Else Text2.Text="big" EndIf Nextj Ifj>5Then Text2.Text="wrong" EndIf EndSub 14.编程计算1+2+3+4+5+…+n的值,n值用户通过Text1输入,计算结果输出在Text2中。 PrivateSubCommand1_Click() DimiAsInteger: i=Text1.Text DimnAsInteger DimmAsInteger n=0 m=0 DoWhilen<=i m=m+n n=n+1 Loop Text2.Text=m EndSub 15.编程计算1-2+3-4+5-6+…+n的值,n值用户通过Text1输入,计算结果输出在Text2中。 PrivateSubCommand1_Click() DimnAsLong: n=Text1.Text DimsAsLong Fori=1Ton s=s+i*(-1)^(i-1) Next Text2.Text=s EndSub 16. 编程计算的值。 PrivateSubCommand1_Click() DimnAsInteger: n=Text1.Text DimiAsInteger DimmAsSingle DimkAsSingle i=0 m=0 k=0 DoWhilei<=n m=m+k i=i+1 k=1/i Loop Text2.Text=m EndSub 17.编程计算的值,n由用户在Text1中输入。 PrivateSubCommand1_Click() DimsumAsLong: n=Text1.Text DimiAsInteger Fori=1Ton m=m+s(i) Next Text2.Text=m EndSub PrivateFunctions(iAsInteger)AsInteger h=1 Forj=1Toi h=h*j Next s=s+h EndFunction 18.计算 PrivateSubCommand1_Click() DimaAsInteger DimbAsInteger DimcAsInteger DimsAsSingle a=1 s=0 DoWhilea<=10 b=a+1 c=b+1 i=1/(a*b*c) a=a+1 s=s+i Loop Text1.Text=s EndSub 19.公元5世纪,我国数学家张丘建在《算经》中提出“百鸡问题”: 鸡翁一值钱5,鸡母一值钱3,鸡雏一值钱1。 百钱买百鸡,问: 鸡翁、鸡母、鸡雏各几只? 界面自行设计。 PrivateSubForm_Click() DimdblOutputAsDouble Print"公鸡","母鸡","鸡雏" DimxAsInteger,yAsInteger,zAsInteger Forx=0To20 Fory=0To34 Forz=0To100Step3 If5*x+3*y+z/3=100Andx+y+z=100Then Printx,y,z EndIf Next Next Next EndSub 20.、已知x、y、z分别是0~9中的一个数,求x、y、z的值,使得下式成立: xxz+yzz=532 PrivateSubForm_Click() DimdblOutputAsDouble Print"x","y","z" DimxAsInteger,yAsInteger,zAsInteger Forx=0To9 Fory=0To9 Forz=0To9 Ifx*100+x*10+z+y*100+z*10+z=532Then Printx,y,z EndIf Next Next Next EndSub 21.已知方程2x3-4x2+3x-6=0,使用二分迭代法求方程在(-10,10)之间的根。 (根为2) PrivateSubCommand1_Click() Dimx1AsDouble,x2AsDouble,x3AsDouble x1=-10 x2=10 Do x3=(x1+x2)/2 If(2*x1*x1*x1-4*x1*x1+3*x1-6)*(2*x3*x3* x3-4*x3*x3+3*x3-6)>0Then x1=x3 Else x2=x3 EndIf LoopUntilx2-x1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 习题 复习