Red de conocimiento informático - Problemas con los teléfonos móviles - pregunta de corrección de errores de vb

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.