programación vb llamada urgente pidiendo ayuda a dios ¡ah!

①: x > Máx

②: x < Min

③：Suma / 10Privado?Sub?Comando1_Click() Dim?x?As?Entero x ?=?InputBox("Ingrese el número que tiene:") Imprimir?"El número que ingresó es:"? &?x; p>

x =?InputBox("Ingrese su número:"):?Print?x;

Sum=?Sum?+?x

Si?x? &? gt;?Max?Entonces?Max?=?x

Si?x?

Fin?SubPrivate?Sub?Command1_Click() ¿Aleatorizar?(Temporizador) Dim?x?As?Integer x?=?Int(Rnd?*?100 ?+?1) Máx?=?x:?Min?=?x For?i?=?2?A?10

x?=?Int(Rnd(i)?*?100? +?1):?Imprimir?x;

Suma?=?Suma?+?x

Si?x?>?Max?Entonces?Max?=?x

Si?x?

¿Fin?