Programación VB: ¡Encuentra números isomórficos entre 1 y 100!

Aquí está el código de Visual Basic para encontrar números isomórficos entre 1 y 100:

``vb

Dim i As Integer

Dim j As Integer

p>

Atenuar nSquare como entero

Para i = 1 a 100

nSquare = i * i

j = 1

Hacer mientras j <= i

Si nSquare Mod (10 ^ j) = i Entonces

MsgBox(i & " es un número del mismo dígito")