VB encuentra el número de rayos

Opción explícita

Subcomando privado1_Click()

Atenuar i, j, s, s1, s2, Num

Atenuar resultado

Me.Caption = "El cálculo lleva mucho tiempo, espere..."

Num = 1000000

For i = 1 To Num

s = CStr(i)

j = Len(s)

Si (j Mod 2) = 0 Entonces

s1 = Izquierda( s , j \ 2)

s2 = Medio(s, j \ 2 1)

j = Val(s1) Val(s2)

Si j ^ 2 = i Then Resu = Resu amp; i amp; ","

Fin

DoEvents

MsgBox " 1 El número de rayos entre -1000000 es: "amp; Resu

End Sub