急！2道大学VB程序设计题,希望高手帮忙！（截止至今晚7点）

Private Function yh(n As Integer)
Dim a() As Integer
ReDim a(1 To n, 1 To n)
Print
Print
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) + a(i - 1, j - 1)
Next j
Next i
Print
Print
For i = 1 To n
For j = 1 To i
Print Tab(20 - 2 * i + 4 * j); a(i, j);
Next j
Print
Next i

End Function

Private Sub Form_Load()
Dim n As Integer
Me.Show
n = InputBox("输入行数：")
yh n
End Sub