Determinar el día de la semana Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que  permita decirle al usuario que día de la semana es de
acuerdo al número ingresado por el usuario. Los números permitidos y su equivalencia al
día son los siguientes:
1     Domingo
2     Lunes
3     Martes
4    Miércoles
5     Jueves
6     Viernes
7     Sábado.

Solución

• Entrada: 5

• Salida: Jueves

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 Dia() As String = {"Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado"}
        Dim d As Integer
        d = TextBox1.Text
        If (d >= 1 And d <= 7) Then
            TextBox2.Text = "el dia " + Trim(d) + " es " + Dia(d - 1)
        Else
            TextBox2.Text = "No es un dia de la semana"
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic