【实例说明】
    在实际编程中，有时需要判断哪一年为闰年。本例将讲解如何判断闰年。运行程序，按下“判断”按钮，在弹出的输入框中输入年份，按“确定”按钮，即可得到判断结果。

【编程思路】
    用InputBox函数来显示提示，并等待用户输入正文或按下按钮，并返回含文本框的String。用Mod函数返回的余数来判断是否为闰年。下面是InputBox函数的语法及参数：
    InputBox的语法：InputBox(prompt,[title],[default],[xpos],[ypos],[helpfile],[context])
    Prompt必需的。作为对话框消息出现的字符串表达式。Prompt的最大长度大约是1024个字符，由所用字符的宽度决定。如果prompt包含多个行，刚可在各行之间用回车符（Chr(13)）、换行符（Chr(10)）或回车换行符的组合（Chr(13) & Chr(10)）来分隔。
    Title可选的。显示对话框标题栏中的字符串表达式。如果省略Title，刚把应用程序名放入标题栏中。
    Default可选的。显示文本框中的字符串表达式，在没有其他输入时作为默认值。如果省略，刚文本框为空。
    Xpos可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略xpos，则对话框会在水平方向居中。
    Ypos可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略ypos，则对话框被放置在屏幕垂直方向下边三分之一的位置。
    Helpfile可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供helpfile，则也必须提供context。
    Context可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供context，则也必须提供helpfile。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置两个CommandButton控件。

    3.源程序  [素材源程序下载]


'判断按钮
Private Sub Command1_Click()
        '定义两个变量
        Dim myYear As Long
        Dim myVal As Boolean
        '显示输入框
        myYear = InputBox("请输入年", "闰年判断")

        If (myYear Mod 400) = 0 Or _
        myYear Mod 4 = 0 And myYear Mod 100 <> 0 Then
                myVal = True
                MsgBox "此年为闰年", vbInformation, "闰年判断"
        Else
                myVal = False
                MsgBox "此年不是闰年", vbInformation, "闰年判断"
        End If
End Sub

Private Sub Command2_Click()
        Unload Me
End Sub