资源描述：
《vb期末考试大题答案1》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400整除）PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerText1.Text=InputBox("请输入年份")x=Val(Text1.Text)Text3.Text=(xMod4)=0And(xMod100<>0)_Or(xMod4)=0And(xMod400=0)EndSubPrivateSubCommand2_Click()DimxAsInt
2、eger,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.T
3、ext)Text3.Text=(xMod4)=0And(xMod100<>0)_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编写程序，输入学
4、生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。获奖条件是：一等奖学金要求所有成绩在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+dIfm>95Andn>95Andd>
5、95ThenLabel5.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.Captio
6、n=""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-d>5ThenLabel6.Caption="你比较胖，请注意瘦身"ElseIfm=dThenLabe
7、l6.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.
8、60米以上。用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用标签控件输出结果。PrivateSubCommand1_Click()Dimm$,n%,d!m=T
