Red de conocimiento informático - Problemas con los teléfonos móviles - Vb escribe un programa para imprimir el triángulo de Yang Hui.

Vb escribe un programa para imprimir el triángulo de Yang Hui.

Función yf (n es un número entero)

ReDim a(n 1, n 1), b(n 1, n 1)

Cls

k = 8

Para i = 1 a n

Imprimir cadena ((n - i) * k / 2 1, " "); a I

a(i, 1) = 1

a(i, i) = 1

a(i 1, j 1) = a( i, j) a(i, j 1)

b(i, j) = Trim(Str(a(i, j)))

Imprimir b(i, j ); String(k - Len(b(i, j)), " ";

Siguiente j

Imprimir

Siguiente yo

p>

Finalizar función

Llamar a yf(10)

Salida:

1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

1 5 10 10 5 1

1 6 15 20 15 6 1

1 7 21 35 35 21 7 1

1 8 28 56 70 56 28 8 1

1 9 36 84 126 126 84 36 9 1