VB utiliza un formulario impreso para mostrar el triángulo de Yang Hui
Dim A() Mientras, N Mientras, I Mientras, J Mientras, X Mientras
N = Val(InputBox("Por favor, introduzca el número de líneas que se imprimirán lt;= 16", "Ingrese un número entero positivo", 16))
Si N gt; 16 o N lt;= 0 entonces
MsgBox "Valor incorrecto, vuelva a escribir el número de líneas"
N = 0
End If
ReDim A(N, N)
Me.Cls
Para I = 1 a N
Para J = 1 a I
Si J = 1 o I = J Entonces
A(I, J) = 1
Si no
A(I, J) = A(I - 1, J - 1) A(I - 1, J )
Finalizar si
Siguiente J
Siguiente I
Para I = 1 a N
Me. p >Para I = 1 a N
Imprimir Spc(75 - 3 * I);
Para J = 1 a I
Imprimir A(I, J );
X = Len(CStr(A(I, J)))
Si X = 1, entonces imprima Spc(3);
Si X = 2 Luego imprime Spc(3);
Si X = 2, entonces imprime Spc(2
Si X = 3, entonces imprime Spc(1); p>
Siguiente J
Imprimir
Imprimir
Siguiente I
Fin Sub