Visual Basic - COMO PROGRAMAR

Life is soft - evento anual de software empresarial
   
Vista:

COMO PROGRAMAR

Publicado por Lisbeth (2 intervenciones) el 14/04/2014 00:31:13
Por favor ayudenme con este programa me urge:

El 1 de enero de cada año un club clasifica a sus socios en: menores (menos de 11 años), cadete (12 a 15 años) juveniles (16 a 20 años), mayores (21 a 40 años) y veteranos (más de 40 años). Diseñar un algoritmo en Visual Basic que permita clasificar a cualquier socio si se conoce su nombre y el año de nacimiento.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder

COMO PROGRAMAR

Publicado por Juan Gilberto (277 intervenciones) el 14/04/2014 16:30:48
No dices que version de Visual Basic... ahi te va en VB6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim AnoTecleado     As String
    Dim AnoNacimiento As Integer
    Dim Clasificacion As String
 
    AnoTecleado = InputBox("Teclea el Año que quieres clasificar", "Clasifica por Años", 0)
    If IsNumeric(AnoTecleado) = True Then
        AnoNacimiento = CInt(AnoTecleado)
    Else
        Exit Sub
    End If
 
    Select Case (Year(Date) - AnoNacimiento)
        Case Is < 11
            Clasificacion = "Menores"
        Case 12 To 15
            Clasificacion = "Cadetes"
        Case 16 To 20
            Clasificacion = "Juveniles"
        Case 21 To 40
            Clasificacion = "Mayores"
        Case Is > 40
            Clasificacion = "Veteranos"
    End Select
 
    MsgBox vbCrLf & vbCrLf & _
           "Año Nacimiento:" & Format(AnoNacimiento) & vbCrLf & _
           "La Clasificación para: " & Format(Year(Date) - AnoNacimiento) & " es: " & Clasificacion & _
           vbCrLf & vbCrLf, vbInformation, "Clasifica segun Años"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

COMO PROGRAMAR

Publicado por LISBETH (2 intervenciones) el 16/04/2014 17:17:31
mil gracias, te lo agradesco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar