VB期末考试大题答案1

1给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400整除）PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerText1.Text=InputBox(请输入年份)x=Val(Text1.Text)Text3.Text=(xMod4)=0And(xMod1000)_Or(xMod4)=0And(xMod400=0)EndSubPrivateSubCommand2_Click()DimxAsInteger,yAsIntegerText2.Text=InputBox(请输入月份)y=Val(Text2.Text)SelectCaseyCase3To5Text4.Text=春季Case6To8Text4.Text=夏季Case9To11Text4.Text=秋季Case1,2,12Text4.Text=冬季EndSelectEndSubPrivateSubCommand3_Click()DimxAsInteger,yAsIntegerText1.Text=InputBox(请输入年份)x=Val(Text1.Text)Text3.Text=(xMod4)=0And(xMod1000)_Or(xMod4)=0And(xMod400=0)Text2.Text=InputBox(请输入月份)y=Val(Text2.Text)SelectCaseyCase1,3,5,7,8,10,11Text5.Text=31天Case4,6,9,12Text5.Text=30天Case2IfText1.Text=0ThenText5.Text=29天ElseText5.Text=28天EndIfEndSelectEndSub2编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。获奖条件是：一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。PrivateSubCommand1_Click()Dimm%,n%,d%,sun%,no$,name$no=InputBox(输入学号)name=InputBox(输入姓名)m=Val(Text1.Text)n=Val(Text2.Text)d=Val(Text3.Text)sun=m+n+dIfm95Andn95Andd95ThenLabel5.Caption=name&获一等奖学金ElseIfm=90Andn=90Andd=90ThenLabel5.Caption=name&获二等奖学金ElseIfm=88Andn=88Andd=88ThenLabel5.Caption=name&获三等奖学金ElseLabel5.Caption=name&没有奖学金EndIfEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Label5.Caption=EndSub3编写一个程序输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦：（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为过瘦。PrivateSubCommand1_Click()Dimm!,n%,d!m=Val(Text1.Text)n=Val(Text2.Text)d=n-110Label5.Caption=按你的身高，标准体重为：&d&公斤Ifm-d5ThenLabel6.Caption=你比较胖，请注意瘦身ElseIfm=dThenLabel6.Caption=你是标准体重ElseLabel6.Caption=你比较瘦，请注意锻炼EndIfEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Label5.Caption=Label6.Caption=EndSubPrivateSubCommand3_Click()EndEndSub4征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用标签控件输出结果。PrivateSubCommand1_Click()Dimm$,n%,d!m=Text1.Textn=Val(Text2.Text)d=Val(Text3.Text)Ifm=男Andn=18Andn=20Andd1.63ThenLabel5.Caption=符合征兵条件ElseIfm=女Andn=16Andn=18Andd1.6ThenLabel5.Caption=符合征兵条件ElseLabel5.Caption=不符合征兵条件EndIfEndSubPrivateSubCommand2_Click()EndEndSub5为某航空公司设计一售机票程序，能根据月份和订票数决定优惠率，计算票价。假设优惠折扣规定如下：①在旅游的旺季7～9月份，如果订票数超过20张，票价优惠15%；20张以下，票价优惠5%。②在旅游的淡季1～5月份、10月份和11月份，如果订票数超过20张，票价优惠30%，20张以下，票价优惠20%。③其他情况，一律优惠20%。PrivateSubCommand1_Click()Dimm%,n%,r%,dj!m=Val(Text1.Text)n=Val(Text2.Text)dj=Val(Text3.Text)SelectCasemCase1To5Ifn=20Thenr=20Elser=30Case7To9Ifn=20Thenr=5Elser=15CaseElser=20EndSelectLabel4.Caption=所订机票的优惠率为:&Str(r)&%Label6.Caption=单张票价为&(100-r)*dj/100&元&，共收款&(100-r)*dj*n/100&元EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Text1.Text=Month(Date)EndSub6利用if语句求三个数x，y，z中的最大值，并将其放入Max变量中显示输出。PrivateSubCommand1_Click()i=Val(Text1.Text)j=Val(Text2.Text)k=Val(Text3.Text)m=iIf(ij)Thenm=jIf(mk)Thenm=kText4.Text=mEndSubPrivateSubCommand3_Click()EndEndSub7输入一公元年号，判断是否是闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。PrivateSubCommand1_Click()DimyAsLong,_mAsLongDimbAsBooleanMe.Clsb=Falsey=Val(InputBox(年份,请输入))m=Val(InputBox(月份,请输入))IfyMod4=0OryMod400=0ThenPrint年份：;y;是闰年!b=TrueElsePrint年份：;y;不是闰年!b=FalseEnd8北京化工大学北方学院决定组织成绩优秀的学生免费旅游，可以获得旅游的条件如下：（1)所考3门课程即英语、高等数学、VB的总分超过285分，并且每门课程的成绩超过90分，这样的学生可以免费旅游颐和园、故宫和天坛；（2)每门课程的成绩都在88分以上，这样的学生可以免费旅游颐和园、故宫；（3)每门课程的成绩都在80分以上，这样的学生可以免费旅游颐和园；（4）其他条件都没有免费旅游资格。编程输入某学生3门课的成绩，判断此学生可以到何处旅游。PrivateSubCommand1_Click()Dimm%,n%,d%,sun%m=Val(Text1.Text)n=Val(Text2.Text)d=Val(Text3.Text)sun=m+n+dIfsun=285Andm90Andn90Andd90ThenLabel5.Caption=可以免费旅游颐和园?故宫和天坛ElseIfm=88Andn=88Andd=88ThenLabel5.Caption=可以免费旅游颐和园?故宫ElseIfm=80Andn=80Andd=80ThenLabel5.Caption=可以免费旅游颐和园ElseLabel5.Caption=不可以免费旅游EndIfEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Label5.Caption=EndSubPrivateSubCommand3_Click()EndEndSub9在“神州号”程序中，需要判断飞船飞行状况。当飞船速度继续加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试编写程序，输入不同的飞船速度V，判断它的各种飞行状况，显示出来。飞船速度（V）单位（km/s）飞行状况7.91=V11.19飞船绕地球做匀速圆周运动11.19=V16.67飞船离开地球的控制,围绕太阳转V16.67飞船挣脱太阳引力飞出太阳系PrivateSubCommand1_Click()Dimv!v=Val(Text1.Text)If(v7.91Andv11.19)ThenText2.Text=飞船绕地球做匀速圆周运动ElseIf(v=11.19Andv16.67)ThenText2.Text=飞船离开地球的控制,围绕太阳转ElseIf(v=16.67)ThenText2.Text=飞船挣脱太阳引力飞出太阳系EndIfEndSubPrivateSubCommand2_Click()EndEndSub10编一段程序，从键盘输入3个整数，找出其中绝对值最小的数。PrivateSubCommand1_Click()i=Val(Text1.Text)j=Val(Text2.Text)k=Val(Text3.Text)m=Abs(i)If(mAbs(j))Thenm=Abs(j)If(mAbs(k))Thenm=Abs(k)Text4.Text=mEndSubPrivateSubCommand3_Click()EndEndSub