vb期末考試大題答案

1、1給定年份和月份，判斷該年是否是閏年。并根據(jù)給出的月份判斷是什么季節(jié)、該月有多給定年份和月份，判斷該年是否是閏年。并根據(jù)給出的月份判斷是什么季節(jié)、該月有多少天。少天。（閏年的條件是：年份能被（閏年的條件是：年份能被4整除但不能被整除但不能被100整除或能被整除或能被400整除）整除）PrivateSubComm1_Click()DimxAsIntegeryAsIntegerText1.Text=InputBox(“請輸入年份“)x=Va

2、l(Text1.Text)Text3.Text=(xMod4)=0(xMod1000)_(xMod4)=0(xMod400=0)Text2.Text=InputBox(“請輸入月份“)y=Val(Text2.Text)CaseyCase135781011Text5.Text=“31天“Case46912Text5.Text=“30天“Case2IfText1.Text=0ThenText5.Text=“29天“ElseText5.Tex

3、t=“28天“EndIfEnd3編寫一個程序輸入某人的身高（編寫一個程序輸入某人的身高（cm）和體重（）和體重（kg），按下式確定其體重是否為標(biāo)準(zhǔn)、過，按下式確定其體重是否為標(biāo)準(zhǔn)、過胖或過瘦：胖或過瘦：（1）標(biāo)準(zhǔn)體重）標(biāo)準(zhǔn)體重=身高身高110；（；（2）超過標(biāo)準(zhǔn)體重）超過標(biāo)準(zhǔn)體重5kg為過胖；（為過胖；（3）低于標(biāo)準(zhǔn)體重）低于標(biāo)準(zhǔn)體重5kg為過為過瘦。瘦。PrivateSubComm1_Click()Dimm!n%d!m=Val(Tex

4、t1.Text)n=Val(Text2.Text)d=n110Label5.Caption=“按你的身高，標(biāo)準(zhǔn)體重為：“&d&“公斤“Ifmd5ThenLabel6.Caption=“你比較胖，請注意瘦身“ElseIfm=dThenLabel6.Caption=“你是標(biāo)準(zhǔn)體重“ElseLabel6.Caption=“你比較瘦，請注意鍛煉“EndIfEndSubPrivateSubComm2_Click()Text1.Text=““Tex