vb corrige gran problema

Opción explícita

Subcomando privado1_Click()

Dim i como entero, k como entero, st como cadena

Para i = 10 a 500

Si wanshu( i) Entonces

st = CStr(i)

Texto1.Text = Texto1.Text & st

Llamar a prueba(st)

Texto1.Texto = Texto1.Texto & Chrr(13) & St

Finalizar si

Siguiente i

End Sub

Función privada wanshu(n como entero) como booleano

Dim i como entero, suma como entero

suma = 1

wanshu = False

Para i = 2 To n - 1

Si n Mod i = 0 Entonces

suma = suma + i

Finalizar si

Siguiente i

Si suma = n Entonces wanshu = Verdadero

Finalizar función

Subprueba privada (s como cadena)

Dim i como entero, suma como entero

Hacer mientras Len(s) >

Para i = 1 a Len(s)

suma = suma + Val(Mid(s, i, 1))

Siguiente i

Texto1.Texto = Texto1.Texto & "->" & Str(suma)

s = CStr(suma)

Bucle

End Sub