Determinar si un año es bisiesto Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que permita determinar si un año es bisiesto. Un año es bisiesto si es múltiplo de 4 (por ejemplo 1984). Los años múltiplos de 100 no son bisiestos, salvo si ellos son también múltiplos de 400 (2000 es bisiesto, pero;  1800 no lo es).

Solución

• Entrada: 1988

• Salida: es año bisiesto

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = TextBox1.Text
        If (a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0) Then
            TextBox2.Text = "el año " + Trim(a) + " Si es bisiesto"
        Else
            TextBox2.Text = "el año " + Trim(a) + " No es bisiesto"
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic