杭州交通信息网steam漫威游戏:vb高手请进
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 17:52:45
7、 打印如图所示的杨辉三角形。（杨辉三角形为一个下三角矩阵，每一行第一个和主对角线上元素都为1，其余每一个数正好等于它上面一行的同一列与前一列数之和。）代码怎么写啊,谢谢
Option Explicit
Private Sub Command1_Click()
Dim a(100, 100) As Integer
Dim i As Integer
Dim j As Integer
If IsNumeric(Text1.Text) = False Then
MsgBox "请在文本框输入要显示的行数（1-99）", vbInformation, "提示"
Text1.SetFocus
Else
For i = 1 To Text1.Text
For j = 1 To i
a(i, j) = 1
Next
Next
For i = 2 To Text1.Text
For j = 1 To i
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next
Next
For i = 1 To Text1.Text
For j = 1 To i
Print a(i, j);
Next
Print
Next
End If
End Sub
'请注意，要一个commandbutton和一个Text控件
'在窗体上显示
'VB6。0上已调试通过