Preguntas sobre programación de VB, solicite respuestas a expertos

Función?max(ByVal?a?As?Integer, ?ByVal?b?As?Integer, ?ByVal?c?As?Integer)

Dim?m?As? Variante

Si?a?gt;?b?Entonces

m?=?a

Si no

m?=?b

¿Fin?Si

Si?m?gt;?c?Entonces

max?=?m

Si no

max?=?c

Fin?Si

Fin?Función

Función?min(ByVal?a?As?Integer,?ByVal ?b?As?Integer,?ByVal?c?As?Integer)

Dim?m?As?Variant

Si?a?lt;?b?Then

m?=?a

Else

m?=?b

Fin?Si

Si?m? lt;?c?Entonces

min?=?m

Si no

min?=?c

Fin?Si

Fin?Función

Privado?Sub?Command1_Click()

Imprimir?"Valor mínimo de tres números=";?min(1,?2,? 3 ),?"El valor máximo de tres números=";?max(1,?2,?3)

x?=?max(1,?2,?3)

y?=?min(1,?2,?3)

Imprimir?"El valor mínimo de cinco números=";?min(y,?6,?7),?" El valor máximo de los cinco números=";?max(x,?4,?5)

p?=?max(x,?4,?5)

q? =?min(y,?6,?7)

Imprimir?"El valor mínimo de siete números=";?min(q,?6,?7),?"El valor máximo de siete números valor=";?max(p,?6,?7)

Fin?Sub