Programación VB: genera aleatoriamente un número entero positivo de tres dígitos y luego genera el número en orden inverso. El número generado y el número inverso se muestran al mismo tiempo. Hay dos métodos a utilizar.

Método de orden inverso de números: Private?Sub?Form_Click()

Dim?x?As?Integer

Dim?n1?As?Integer,?n2 ? Como?Entero,?n3?Como?Entero

Aleatorio

x?=?Int(Rnd?*?900)?+?100

n1 ? =?x?\?100

n2?=?(x?Mod?100)?\?10

n3?=?x?Mod?10

Imprimir?x,?n3?*?100?+?n2?*?10?+?n1

End?Sub

Método de orden inverso de cadena: Private?Sub ? Form_Click()

Dim?x?As?Integer

Dim?n1?As?String,?n2?As?String,?n3?As?String

Aleatorizar

x?=?Int(Rnd?*?900)?+?100

n1?=?Left(x,?1)

n2?=?Mid(x,?2,?1)

n3?=?Derecha(x,?1)

Imprimir?x,?Val(n3? & ?n2?&?n1)

End?Sub

Agregue el método de inversión de función directa más simple: Private?Sub?Form_Click()

Dim ?x ?As?Integer

Aleatorizar

x?=?Int(Rnd?*?900)?+?100

Imprimir?x,?Val (StrReverse (x))

¿Fin?Sub