VB Triángulo Yang Hui

Dim n como entero, i como entero, j como entero

x = InputBox("Ingrese n")

n = Val(x)

ReDim a(n 1, n 1) como entero

Para i = 1 To n 1

a(i, 1) = 1: a(i , i) = 1: Siguiente i

Para i = 3 Para n 1

Para j = 2 Para i - 1

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

Siguiente j, i

Para i = 1 To n 1

Imprimir Tab(30 - 2 * i);

Para j = 1 A i

Imprimir Espacio(4 - Len(Trim(Str(a(i, j))) )); Trim(Str(a(i, j)));

Siguiente j

Imprimir

Siguiente i