Microsoft Visual Basic
清空后，复制下段语句，粘贴到工程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
在Form1中单击，弹出工程1窗口，在输入栏中输入年份（如：2016），点击确定，在Form1中会显示出（是或不是闰年）。然后在Form1中单击，弹出工程1窗口即可反复。可以用例如“1990、1900年不是闰年，1980、2000年是闰年”检验语句正确性。保存出来即可。
此外还可以复制下段语句，粘贴到工程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 IfEnd Sub
此外还可以复制下段语句，粘贴到工程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 IfEnd Sub
在编辑语句时，必须清空。Private Sub Form_Load() End Sub必须删除。
输入栏输入时，必须输入纯数字，不得为空。