將年份顯示為整數，將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 =閏
末端接頭