编写一个判断某年是否是闰年的程序

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

X>0 and x=fix(x)
问题2: 如何判断输入的年份是闰年?
判断闰年
输入结果
If x大于0且x是整数 then 进行判断 IF x是闰年 then Msgbox(“闰年” Else 显示”闰年” 重新输入 Else End If 显示”不是闰年”Msgbox(“不是闰年 Text1.text=“” End If Text1.setfocus
(x/4=fix(x/4) and x/100<>fix(x/100)) or (x/400<>fix(x/400))
完整代码:
x = Val(Text1.Text) If x = Fix(x) And x > 0 Then If (x / 4 = Fix(x / 4) And x / 100 <> Fix(x / 100)) Or (x / 400 = Fix(x / 400)) Then MsgBox ("是闰年") Else MsgBox ("不是闰年") End If Else Text1.Text = "" Text1.SetFocus End If
输入一数
问题1: 如何输入数?
X= Val( Text1.text )
问题2: 如何判断输入的年份是闰年?
判Leabharlann Baidu 闰年
If x大于0且x是整数 then 进行判断 IF x是闰年 then Msgbox(“闰年” Else 显示”闰年” 重新输入 Else End If 显示”不是闰年”Msgbox(“不是闰年 End If
输入结果
问题: 如何判断输入的年份是闰年?
方法:能被4整除但不能被100整除或能被400整除的数是闰年 (x/4=fix(x/4) and x/100<>fix(x/100)) or (x/400<>fix(x/400))
算法分析:
输入一数
问题1: 如何输入数?
X= Val( Text1.text )
编写一个判断某年是否是闰年的程序.
–要求:当你输入一个数据后,单击判断命令按
钮,若数据符合年份要求,则程序显示是否是闰年.否则,清空输入的数据,等待用户重新
输入.
算法分析:
输入一数
问题1: 如何输入数?
判断闰年
问题2: 如何判断输入的年份是闰年?
输入结果
问题3: 如何输出结果?
算法分析: