EL MAYOR DE TRES NUMEROS

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim a, b, c  As Integer
Private Sub cmdConsultar_Click()
a = Val(Me.txtNumero1.Text)
b = Val(Me.txtNumero2.Text)
c = Val(Me.txtNumero3.Text)
If a > b And a > c Then
Me.txtResultado.Text = "a es mayor"
Else
If b > c And b > a Then
Me.txtResultado.Text = "b es mayor"
Else
If c > a And c > b Then
Me.txtResultado.Text = "c es mayor"
If a = 0 And b = 0 And c = 0 Then
Me.txtResultado.Text = "ninguno es mayor"
End If
End If
End If

End If
End Sub