¿Cuál es el código de la línea 17 del triángulo de Yang Hui que se muestra en VB?
Subcomando privado 1_Click()
Atenuar a(1 a 17, 1 a 17)
Para i = 1 a 17
a(i, i) = 1
a(i, 1) = 1
Siguiente i
Para i = 3 a 17
Para j = 2 a i - 1
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Siguiente j
Siguiente yo
Para j = 1 a 17
Imprimir a(17,j);
Siguiente j
Imprimir
Conector final
Subform_Load privado()
i. AutoRedraw = True
Conector final