Modificación del programa de pirámide triangular Yang Hui de salida de VB
Private Sub Form_Click()
Dim N%, I%, J%
N = Val(InputBox("Ingrese el número de filas N" , " Triángulo de Yang Hui"))
ReDim a(N, N)
For I = 1 To N
a(I, 1) = 1
Siguiente
Para I = 2 A N
Para J = 2 A I
a(I, J) = a( I - 1 , J - 1) + a(I - 1, J)
Siguiente
Siguiente
Para I = 1 a N
Print Tab(3 * (N - I)); //Ajusta la sangría según el número de líneas, igual a la mitad del número de @ a continuación
Para J = 1 To I
Print Format(a(I, J), "@@@@@@"); // Eso es todo, cada número se genera con un ancho de 6 dígitos y no hay suficiente espacio para completar. los espacios en blanco
Siguiente
Imprimir
Siguiente
Fin Sub