Red de conocimiento informático - Problemas con los teléfonos móviles - VB utiliza un formulario impreso para mostrar el triángulo de Yang Hui

VB utiliza un formulario impreso para mostrar el triángulo de Yang Hui

Private Sub Form_Click()

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

Siguiente I

Fin Sub