Programación VB: ingrese tres números desde el teclado y encuentre el número más grande y más pequeño entre ellos
'Requiere IF y luego, declaración de cuadro de entrada Esta es una declaración muy restrictiva
Private Sub Command1_Click()
Activado Reanudar error siguiente
Atenuar A como entero, B como entero, C como entero
Atenuar mínimo como entero, máximo como entero
A = Int(InputBox( 1, "Ingrese el primer número"))
B = Int(InputBox(1, "Ingrese el segundo número"))
C = Int(InputBox(1, "Ingrese el tercer número"))
Si A - B >= 0 entonces 'supongamos A>B
Si A - C >= 0 entonces
Máx = A
Si B - C > = 0 entonces
Mín = C
De lo contrario
Mín = B
Fin si
Si no
Máx = C
Si A - B > = 0 entonces
Mín. = B
Else
Min = A
Finalizar si
Finalizar si
Else 'Asume A & lt;B
Si B - C >= 0 entonces
Max = B
Si A - C >= 0 entonces
Min = C
Else
Min = A
Finalizar si
Else
Máx = C
Si A - C > = 0 Entonces
Mín = C
De lo contrario
Mín = A
Finalizar si
Finalizar si
Si A - C >= 0 Entonces
Min = A
Finalizar si
End If
End If
MsgBox "El valor máximo es: " & Max & " El valor mínimo es: " & Min
End Sub