將年份顯示為整數,將y顯示為整數
Year = Val(InputBox("要判斷的年份是:"))
調用runnian(年,y)
如果y = 1,則
打印字符串(年份);SPC(2);“2008年是閏年!”
其他
打印字符串(年份);SPC(2);“年不是閏年!”
如果…就會結束
末端接頭
公共子運行年(n為整數,x為整數)
整數形式的模糊跳躍
如果n模400 = 0,則
leap = 1
ElseIf n Mod 4 = 0且n Mod 100 & lt;& gt那麽0
leap = 1
其他
閏= 0
如果…就會結束
x =閏
末端接頭