Question

怎样用vb打印杨辉三角形?

要等腰三角形,不要直角三角行,谢谢
一楼的大哥，你试过了没有啊，简直是漏洞百出啊
我一复制到上面字体全是红色的！

Answer 1

要求在窗体上打印出杨辉三角形，其打印行数由键盘输入。

【设计思路】�1．定义一个整型二维动态数组，其实际元素个数由键盘输入。�

2． 对输入数据进行检查，确保输入数据在1至16之间，以免溢出。�

3． 编写程序代码，当确认输入数据后，在窗体上打印杨辉三角形。

【操作步骤】

�1． 建立新项目，并设计窗体。

文本框用来输入要打印杨辉三角形的行数；“确定”按钮执行具体打印操作；窗体左 侧的数字为打印的杨辉三角形实例。

�2． 为“确定”按钮编写如下代码：

Private Sub Command1Click()

�Dim RowNum() As Integer ′定义整型动态数组

�Dim i As Integer, j As Integer ′定义循环变量

�Dim Num As Integer

�Cls ′清空窗体内容

�Num=Val(Text1.Text) + 1

�If Num >=18 Then ′对输入数据进行检查（小于17）

� Text1.Text= 〃〃

� Exit Sub�

End If

ReDim RowNum(1 To Num, 1 To Num) ′根据输入值重新确定数组

’维数及大小�下面是具体打印杨辉三角形的代码：

For i = 1 To Num-1′将第一列及对角元素置1

� RowNum(i, i)=1

� RowNum(i, 1)=1

�Next

�For i = 3 To Num-1 ′计算其它元素值

� For j = 2 To i-1

� RowNum(i, j)=RowNum(i-1, j-1)+Row Num(i-1,j)

� Next

�Next

�For i = 1 To Num-1 ′打印杨辉三角形

� For j = 1 To i

� Print RowNum(i, j);

� Next

� Print

�Next

�End Sub

�3． 调试并运行程序，观察输出结果。