¿Cómo imprimir el triángulo de Yang Hui usando vb?

Es necesario imprimir el triángulo Yang Hui en el formulario y el número de líneas impresas se ingresa desde el teclado.

¿Ideas de diseño 1. Defina una matriz dinámica bidimensional de números enteros, el número real de elementos se ingresa desde el teclado. ?

2. Verifique los datos de entrada para asegurarse de que estén entre 1 y 16 para evitar desbordamientos. ?

3. Escriba el código del programa para imprimir el triángulo Yang Hui en el formulario después de confirmar los datos ingresados.

Pasos de operación 1. Crea un nuevo proyecto y diseña el formulario.

El cuadro de texto se utiliza para ingresar el número de filas para imprimir el triángulo Yang Hui; el botón "Aceptar" realiza la operación de impresión específica; los números en el lado izquierdo del formulario son el Yang Hui impreso; instancias de triángulos. 2. Escriba el siguiente código para el botón "Aceptar":

Private Sub Command1Click() Dim RowNum() As Integer ′Defina la matriz dinámica de enteros Dim i As Integer, j As Integer ′Defina la variable de bucle Dim Num Como Integer Cls ′Borrar el contenido del formulario Num=Val(Text1.Text) + 1 Si Num >=18 Entonces ′Verificar los datos de entrada (menos de 17) Text1.Text= 〃〃 ¿Salir de Sub?

End If

ReDim RowNum(1 To Num, 1 To Num) 'Redeterminar la matriz según el valor de entrada

'¿Dimensión y tamaño? El siguiente es el código específico para imprimir Yang. Triángulo de Hui:

For i = 1 To Num-1′ Establece la primera columna y los elementos diagonales en 1 RowNum(i, i)=1 RowNum(i, 1)=1 Next For i = 3 To Num-1 ′Calcular otros Valor del elemento For j = 2 To i-1 RowNum(i, j)=RowNum(i-1, j-1)+Fila Num(i-1,j) Next Next For i = 1 To Num-1 ′Imprimir Triángulo Yang Hui Para j = 1 Para i Imprimir RowNum(i, j Siguiente Imprimir Siguiente Fin Sub 3). Depure y ejecute el programa y observe el resultado.