Ejemplo De Funciones Visual Basic

Funcione s

Public Class Form1
Function mes(ByVal num As Integer)

Select Case num
Case 1
Return "enero"
Case 2
Return"febreo"
Case 3
Return "marzo"
Case 4
Return "abril"
Case 5
Return "mayo"
Case 6Return "junio"
Case 7
Return "julio"
Case 8
Return "agosto"
Case 9
Return "septiembre"
Case 10Return "octubre"
Case 11
Return "nobiembre"
Case 12
Return "diciembre"

Case Else
Return "noexiste ese mes"
End Select

End Function
Function dia(ByVal numero As Integer)

Select Case numero
Case 1
Return "Lunes"

Case 2Return "martes"

Case 3
Return "miercoles"
Case 4
Return "jueves"
Case 5
Return "viernes"Case 6
Return "sabado"
Case 7
Return "domingo"

Case Else
Return "no existe este dia "

End SelectEnd Function

Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChangedLabel1.Text = dia(Microsoft.VisualBasic.Weekday(MonthCalendar1.SelectionEnd))
Label2.Text = mes(Microsoft.VisualBasic.Month(MonthCalendar1.SelectionEnd))

End Sub

Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(" hoy es " & dia(InputBox("ingrese el dia")))

End Sub

Private Sub...