Ejercicios de condicionales:

Ejercicio1:

En este primer ejercicio trata de identificar cual es el número mayor de dos números dados.

Para esto se debe hacer la siguiente codificación:

Le damos doble click al botón de comando y tecleamos lo siguiente:

Private Sub Command1_Click()

If Val(Text1.Text) > Val(Text2.Text) Then

txtResultado.Text = "El mayor es: " & Text1.Text

Else

txtResultado.Text = "El mayor es: " & Text2.Text

End If

End Sub

Ejercicio2:

Este ejercicio consiste en que al dar una letra te diga si es consonante o si es vocal.

Para el que pueda salir necesitas colocar la siguiente codificación:

En el comando:

Private Sub Command1_Click()

If txtletra.Text = "a" Or txtletra.Text = "e" Or txtletra.Text = "i" Or txtletra.Text = "o" Or txtletra.Text = "u" Then

txtresultado.Text = "la letra ingresada es una vocal"

Else

txtresultado.Text = "la letra es una consonante"

End If

End Sub

Ejercicio3:

En este ejercicio consiste en que al darle el nombre y la edad de una persona te diga si es mayor o menor de edad.

Para eso la codificación es la siguiente:

En el comando:

Private Sub Command1_Click()

If txtedad.Text >= 18 Then

txtresultado.Text = "es mayor de edad"

Else

txtresultado.Text = "es menor de edad"

End If

End Sub

Ejercicio4:

En este ejercicio consiste en que debes realizar una lista de carreras en el que al escoger una de ellas te salga el costo.

Para lo cual debemos asignarle la siguiente codificación:

En el formulario:

Private Sub Form_Load()

cbocarrera.Clear

cbocarrera.AddItem "Administrador"

cbocarrera.AddItem "Profesor"

cbocarrera.AddItem "Ingeniero"

cbocarrera.AddItem "webmaster"

End Sub

En el combo1:

Private Sub cbocarrera_Click()

If cbocarrera.Text = "Administrador" Then

txtresultado.Text = "El costo de su carrera es $5000(Administración)"

Else

End If

If cbocarrera.Text = "Profesor" Then

txtresultado.Text = "El costo de su carrera es $2000(Profesor)"

Else

End If

If cbocarrera.Text = "Ingeniero" Then

txtresultado.Text = "El costo de su carrera es $8000(Ingeniero)"

Else

End If

If cbocarrera.Text = "Webmaster" then

txtresultado.Text = "El costo de su carrera es $65(Webmaster)"

Else

End If

End Sub