查人人中国名人网12g901-1 在线阅读:求助,VBScript 写的杨辉三角形代码
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/08 14:52:08
求助,用VBSCRIPT 写的杨辉三角形
要求,输出10行
要求,输出10行
Option Base 1
Dim a() As Integer
Private Sub Form_Click()
n = Val(InputBox("请输入打印行数"))
ReDim a(n, n)
For i = 1 To n
a(i, 1) = 1: a(i, i) = 1
Next i
For i = 3 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
Next i
For i = 1 To n
Print Tab(14 - i);
For j = 1 To i
Print a(i, j);
Next j
Print
Next i
End Sub
这是VB代码，人家要VBS的，不过关键部分代码一样