Programación VB, consulte a un maestro, ¡urgente! ! !

Subcomando privado1_Click()

Atenuar a(1 a 14, 1 a 14) Mientras, i, j, s Mientras

Para i = 1 a 14 Para j = 1 a 14

a(i, j) = i * i * i + j * j * j

s = s + a(i, j )

Imprimir Tab(j * 6 - 5); a(i, j); Siguiente j Imprimir

Siguiente i

Imprimir "Suma="; s

End Sub

Private Sub Command2_Click() x = 2310 Imprimir: Imprimir y = yinzihe((x)) Imprimir x "La suma de factores=" y

End Sub

Función yinzihe(x) Imprimir x; "="; i = 2 Mientras que x Mod i > 0

i = i + 1 Wend Imprimir i ; s = i x = x \ i Mientras que x > 1

Mientras que x Mod i = 0

? s + i

? x = x \ i

Venda

i = i + 1 Venda Imprimir yinzihe = s

Finalizar función