欢迎来到天天文库
浏览记录
ID:12120651
大小:62.00 KB
页数:3页
时间:2018-07-15
《用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程序运行界面
此文档下载收益归作者所有