展开全部
这个是我的算法 你自己看看 附件没办法上传 转文本吧
.版本 2
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 temp, 文本型, , "0"
a = 到文本 (到数值 (编辑框1.内容) ÷ 到数值 (400))
temp = 分割文本 (a, “.”, )
.如果 (取数组成员数 (temp) ≤ 1)
信息框 (“闰年”, 0, )
.否则
' 如果大于1重新开始换算
a = 到文本 (到数值 (编辑框1.内容) ÷ 到数值 (4) ÷ 到数值 (100))
temp = 分割文本 (a, “.”, )
.如果 (取文本长度 (temp [2]) = 2)
信息框 (“闰年”, 0, )
.否则
信息框 (“平年”, 0, )
.如果结束
.如果结束
追问
好复杂,我只是个萌新QAQ
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询