在表單上輸出2000~2100年的所有閏年。要求用Function程序判斷判定給定的年份 ？
uj5u.com熱心網友回復：
要作業了吧
uj5u.com熱心網友回復：
手寫的,沒除錯,你參考一下吧:
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
uj5u.com熱心網友回復：
挺佩服米老鼠的，全是給代碼。但是個人覺得，明顯的作業題、畢業設計題真不能慣著他們，要不出來也是禍害這個行業。
uj5u.com熱心網友回復：
你真聰明！就是要交實驗作業了(?￣ ? ￣?)
uj5u.com熱心網友回復：
謝謝了，不過我已經寫出來了(?′▽`?)
uj5u.com熱心網友回復：
嗯呢，不會禍害這個行業，我要轉行。作為一個大一的女大學生，每天盯著電腦頭昏眼花，整個人心力交瘁，都要禿頭了，沒有物件，不會打王者，好不容易捯飭出來的代碼還運行不了，可憐的孩子。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33341.html
標籤：VB基礎類
上一篇：急急