资源描述:
《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()Di
2、mxAsInteger,yAsIntegerText2.Text=InputBox("请输入月份")y=Val(Text2.Text)SelectCaseyCase3To5Text4.Text="春季"Case6To8Text4.Text="夏季"Case9To11Text4.Text="秋季"Case1,2,12Text4.Text="冬季"EndSelectEndSubPrivateSubCommand3_Click()DimxAsInteger,yAsIntegerText1.Text=InputBox("请输入年份"
3、)x=Val(Text1.Text)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天"EndIfEnd
4、Select20currencydeposit,weprescribeapassonaregularbasis,qilucardaccountonaregularbasis),certificatebondsandsavingsbonds(electronic);3.notdrawnonabanksavingscertificate,certificatebondsapplyformortgageloans,acceptingonlythelenderEndSub2编写程序,输入学生的姓名、学号和成绩(高数、英语和专业课),
5、判断该学生能获得几等奖学金,并输出结果。获奖条件是:一等奖学金要求所有成绩在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>95ThenLabel5.Ca
6、ption=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=""EndS
7、ub20currencydeposit,weprescribeapassonaregularbasis,qilucardaccountonaregularbasis),certificatebondsandsavingsbonds(electronic);3.notdrawnonabanksavingscertificate,certificatebondsapplyformortgageloans,acceptingonlythelender3编写一个程序输入某人的身高(cm)和体重(kg),按下式确定其体重是否为标准、过
8、胖或过瘦:(1)标准体重=身高-110;(2)超过标准体重5kg为过胖;(3)低于标准体重5kg为过瘦。PrivateSubCommand1_Click()Dimm!,n%,d!m=Val(Text1.Text)n=Val(Text2.Text)d=n-110Label5.Caption=