Ejercicio de SELECT CASE

Transformar en código de Visual Basic el siguiente enunciado: crear un programa que pida al usuario un número de día y un número de mes, evalúe si la entrada es correcta y en caso de que así sea calcule el día del año que es, considerando un año no bisiesto.

SOLUCIÓN

Rem [Cálculo del día del año] Option Explicit Dim Ndía%, Nmes%, DDA As Integer Private Sub Form_Load() Show Form1.Caption = "Cálculo día del año" Label1(0).Caption = "Introduzca aquí el número del día" Label1(1).Caption = "Introduzca aquí el número del mes" Command1.Caption = "Determinar día del año" End Sub Private Sub Command1_Click() Ndía = Val(Text1(0)) Nmes = Val(Text1(1)) LabelResultado.FontSize = 10 LabelResultado.FontBold = True If Ndía >= 1 And Ndía <= 31 And Nmes >= 1 And Nmes <= 12 Then     Select Case Nmes         Case 1             DDA = Ndía '[DDA es día del año]         Case 2             DDA = Ndía + 31         Case 3             DDA = Ndía + 59         Case 4             DDA = Ndía + 90         Case 5             DDA = Ndía + 120         Case 6             DDA = Ndía + 151         Case 7             DDA = Ndía + 181         Case 8             DDA = Ndía + 212         Case 9             DDA = Ndía + 243         Case 10             DDA = Ndía + 273         Case 11             DDA = Ndía + 304         Case 12             DDA = Ndía + 334     End Select     LabelResultado = "El " & Ndía & " del "& Nmes & " es el día" & DDA & " del año" Else     LabelResultado = "Datos proporcionados no válidos" End If End Sub

Aspecto gráfico: