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 If
End If
End Sub
3、在Form1中单击，弹出工程1窗口，在输入栏中输入年份（如：2016），点击确定，在Form1中会显示出（是或不是闰年）。然后在Form1中单击，弹出工程1窗口即可反复。可以用例如“1990、1900年不是闰年，1980、2000年是闰年”检验语句正确性。保存出来即可。
1、此外还可以复制下段语句，粘贴到工程1-Form1。其他步骤如方法一。
Private Sub Form_Click()
Dim y%
y = InputBox("y=")
If y Mod 4 <> 0 Then
Print "不是闰年"
Else
If y Mod 100 <> 0 Then
Print "是闰年"
Else
If y Mod 400 <> 0 Then
Print "不是闰年"
Else
Print "是闰年"
End If
End If
End If
End Sub
1、此外还可以复制下段语句，粘贴到工程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 If
End If
End Sub
