输出2000~2100年的所有闰年

[绾篱]

在窗体上输出2000~2100年的所有闰年。要求用Function过程判断判定给定的年份 ？

[亚纹]

要作业了吧

[milaoshu1020]

手写的,没调试,你参考一下吧:

function runnian(byval year as integer) as boolean
    if year mod 400 = 0 then
        runnian = true
    elseif year mod 4 =0 and year mod 100 <> 0 then
        runnian = true
    else
        runnian = false
    end if
end function

private sub form_load()
    dim i as integer
    for i = 2000 to 2100
        if runnian(i) then
            debug.print i
        end if
    next
end sub

[脆皮大雪糕]

挺佩服米老鼠的，全是给代码。 但是个人觉得，明显的作业题、毕业设计题真不能惯着他们，要不出来也是祸害这个行业。

[绾篱]

引用 1 楼 亚纹的回复:

要作业了吧

你真聪明！就是要交实验作业了(๑‾ ꇴ ‾๑)

[绾篱]

引用 2 楼 milaoshu1020的回复:

手写的,没调试,你参考一下吧:

function runnian(byval year as integer) as boolean
    if year mod 400 = 0 then
        runnian = true
    elseif year mod 4 =0 and year mod 100 <> 0 then
        runnian = true
    else
        runnian = false
    end if
end function

private sub form_load()
    dim i as integer
    for i = 2000 to 2100
        if runnian(i) then
            debug.print i
        end if
    next
end sub

谢谢了，不过我已经写出来了(❁´▽`❁)

[绾篱]

引用 3 楼 脆皮大雪糕的回复:

挺佩服米老鼠的，全是给代码。 但是个人觉得，明显的作业题、毕业设计题真不能惯着他们，要不出来也是祸害这个行业。

嗯呢，不会祸害这个行业，我要转行。作为一个大一的女大学生，每天盯着电脑头昏眼花，整个人心力交瘁，都要秃头了，没有对象，不会打王者，好不容易捯饬出来的代码还运行不了，可怜的孩子。