Red de conocimiento informático - Problemas con los teléfonos móviles - Modificación del programa de pirámide triangular Yang Hui de salida de VB

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