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