利用VB，判断某一年是否为闰年

1、打开Visual Basic软件（VB软件），新建工程，在Form1窗体黑点区域双击。

2、清空后，复制下段语句，粘贴到工程1-Form1。Private Sub Form_Click() Dim y% y = InputBox("y=")If y Mod 400 = 0 Then Print "是闰年" Else If y Mod 100 = 0 Then Print "不是闰年" Else If y Mod 4 <> 0 Then Print "不是闰年" Else Print "是闰年" End If End IfEnd IfEnd Sub