0
点赞
收藏
分享

微信扫一扫

VB编程:IsNumeric判断闰年-48_彭世瑜_新浪博客


运行效果:

VB编程:IsNumeric判断闰年-48_彭世瑜_新浪博客_编程语言​​


运行代码:

方法一:

Private Sub Command1_Click()

    Dim myYear As Boolean

    If IsNumeric(Text1.Text) Then

        If Text1.Text Mod 400 = 0 Then

            myYear = True

        ElseIf Text1.Text Mod 4 = 0 And Text1.Text Mod 100 <> 0 Then

            myYear = True

        Else

            myYear = False

        End If

        If myYear = True Then

            Picture1.Print Text1.Text & "是闰年!"

        Else

            Picture1.Print Text1.Text & "是平年!"

        End If

    Else

        Picture1.Print Text1.Text & "不是数字"

    End If

End Sub


方法二:

Public Function LeapYear(ByVal yea As Integer) As Boolean     '闰年函数

    If (yea Mod 4) = 0 Then

        LeapYear = (yea Mod 100 > 0) Or (yea Mod 400 = 0)

    End If

End Function

学习总结:

通用的步骤,可以使用函数,方便以后调用。



举报

相关推荐

0 条评论