用vba程序设计判断闰年

《用vba程序设计判断闰年》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、给定一个年份和月份,判断它的季节和这个月的天数。其中3-5月为春季，6-8月为夏季，9-11为秋季，12，1，2月为冬季。二月的天数与闰年有关，判断闰年的条件是：能被4整除且不能被100整除，或者能被400整除。解：按程序设计步骤：1.根据题意设计界面，如图8-19所示。在这里主要拖放控件摆放位置和大小。2.修改控件属性，如图8-20所示。3.编写代码。代码如下：PrivateSubCommandButton1_Click()DimflagAsBoolean'判断是否输入月份IfVal(TextBox1.Text)>=100AndVal(T

2、extBox2.Text)>=1AndVal(TextBox2.Text)<=12Then'判断是否闰年IfVal(TextBox1.Text)/4=Int(Val(Val(TextBox1.Text)/4))AndVal(TextBox1.Text)/100<>Int(Val(Val(TextBox1.Text)/100))OrVal(TextBox1.Text)/400=Int(Val(Val(TextBox1.Text)/400))Then'是闰年TextBox3.Text=TextBox1.Text+"年是闰年！"‘设置闰年标志fl

3、ag=TrueElse'不是闰年TextBox3.Text=TextBox1.Text+"年不是闰年！"flag=FalseEndIf'判断每月天数SelectCaseVal(TextBox2.Text)Case1,3,5,7,8,10,12TextBox4.Text=TextBox2.Text+"月是31天！"Case2IfflagThenTextBox4.Text=TextBox2.Text+"月是29天！"ElseTextBox4.Text=TextBox2.Text+"月是28天！"EndIfCase4,6,9,11TextBox4

4、.Text=TextBox2.Text+"月是30天！"EndSelect'判断季节SelectCaseVal(TextBox2.Text)Case3,4,5TextBox5.Text=TextBox1.Text+"年"+TextBox2.Text+"月是春季！"Case6,7,8TextBox5.Text=TextBox1.Text+"年"+TextBox2.Text+"月是夏季！"Case9,10,11TextBox5.Text=TextBox1.Text+"年"+TextBox2.Text+"月是秋季！"Case1,2,12TextB

5、ox5.Text=TextBox1.Text+"年"+TextBox2.Text+"月是冬季！"EndSelectElse'报错MsgBox"数据有错！重新输入"EndIfEndSubPrivateSubCommandButton2_Click()'清除TextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""EndSub4.运行与调试。如图8-21所示。5.保存程序。图8-19设计界面图8-20修改属性图8-21程序运行界面