何盛明的父母:vb的一个问题

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

VBScript代码:

test.html

<SCRIPT LANGUAGE="VBScript">
<!--
Dim a()
document.write("<xmp>")
kClick

Sub kClick()
n =8 '"请输入打印行数"
ReDim a(n, n)
For i = 1 To n
a(i, 1) = 1: a(i, i) = 1
Next

For i = 3 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next
Next

For i = 1 To n
document.write(Tab(8 - i))
For j = 1 To i
document.write(" "& a(i, j) & " ")
Next
document.write(vbCrlf)
Next
End Sub

Function Tab(n)
for i=0 to n
Tab=Tab & " "
next
End Function

//-->
</SCRIPT>