6. PROGRAMA DE PRACTICA

• programa que permita capturar un numero de 1 a 7 y dependiendo del numero nos diga que día de la semana es

1.planeacion
*numero de 1 a 7
*dias de la semana
1.1 lista de chequeo
*declarar variables
*asignar valor
*operar
*resultado caja de texto
*fin de la aplicación

2.Interfaz grafica

Programacion de eventos:

dim a as long

a=text1.text

Select Case a

Case 1
Text2.Text = "lunes"
Case 2
Text2.Text = "martes"
Case 3
Text2.Text = "miercoles"
Case 4
Text2.Text = "jueves"
Case 5
text3.Text = "viernes"
Case 6
Text2.Text = "sabado"
Case 7
Text2.Text = "domingo"
Case Else
Text2.Text = "numero no valido "
End Select
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub