Question

请问这四个VB实验怎么做啊??





Answer 1

  Public Function IsRunnian(ByVal n As Integer) As Boolean
        Dim res As Boolean
        res = False
        If n Mod 400 = 0 Then
            res = True
        End If
        If (n Mod 100 <> 0) And (n Mod 4 = 0) Then
            res = True
        End If
        Return res
    End Function