Determinar los días que tiene cada mes Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que permita ingresar el número del mes y determinar cuántos días tiene el mes, para el caso de Febrero, el algoritmo deberá indicar que no cuenta con la información necesaria para dar la respuesta.

Solución

• Entrada: 12

• Salida: tiene 31 días

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 m As Integer
        m = TextBox1.Text
        If (m >= 3 And m <= 12 Or m = 1) Then
            If (m <= 7) Then
                If (m Mod 2 = 0) Then
                    TextBox2.Text = "el mes " + Trim(m) + " tiene 30 dias"
                Else
                    TextBox2.Text = "el mes " + Trim(m) + " tiene 31 dias"
                End If
            Else
                If (m Mod 2 = 0) Then
                    TextBox2.Text = "el mes " + Trim(m) + " tiene 31 dias"
                Else
                    TextBox2.Text = "el mes " + Trim(m) + " tiene 30 dias"
                End If
            End If
        Else
            TextBox2.Text = "No hay informacion necesaria"
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic