资源描述:
《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