Red de conocimiento informático - Problemas con los teléfonos móviles - Pregunta de programación de VB: Defina y llame a una función para encontrar el valor máximo de tres enteros cualesquiera

Pregunta de programación de VB: Defina y llame a una función para encontrar el valor máximo de tres enteros cualesquiera

Función max(ByVal a como entero, ByVal b como entero) como entero

Si a gt entonces

max = a

<; p>Else

max = b

Finalizar si

Finalizar funciónPrivate Sub Form_Click()

Atenuar a como entero, b como entero , c Como entero

a = InputBox("Ingrese el primer número")

b = InputBox("Ingrese el segundo número")

c = InputBox ("Ingrese el tercer número")

Imprimir "Los tres números son: "; c

m = max(a, b)

m = max(m, c)

Imprimir "El número máximo es:" amp

End Sub