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.