pregunta de corrección de errores de vb

Opción explícita

'Público A(9) como entero Reemplazar la siguiente oración

Dim A(9) como entero

Privado Sub Form_Click()

Const S como cadena = "642138579"

Atenuar I como entero, N3 mientras sea largo

Atenuar Idx como entero, N1 como largo, N2 siempre

Para I = 1 a 9

A(I) = Val(Mid(S, I, 1))

Imprimir A(I ) ;

Siguiente I

Para I = 1 a 9

Idx = I

Imprimir I;

Llamar a Mut(Idx, 2, N1)

Llamar a Mut(Idx + 2, 3, N2)

Llamar a Mut(Idx + 5, 4, N3)

Imprimir "n1="; N1, "n2="; N2, "n3="; N3

Si N3 = N1 * N2 Entonces

Imprimir "* " ; N2; "="; N3

Finalizar si

Siguiente I

Fin Sub

Sub Mut privado (ByVal Idx como Entero, N como entero, M como largo)

Atenuar I como entero

M = 0 'Aumentar

Para I = 1 a N

Si Idx > 9 Entonces Idx = Idx Mod 9 'Nuevo

M = M * 10 + A(Idx)

Idx = Idx + 1

'Si Idx > 9 Entonces Idx = 1 Eliminar

'M = 0 Eliminar

Siguiente I

Fin Sub

'Ya Después de ejecutarlo sólo se puede establecer un grupo: 42*138=5796.