急急急急.......一道vb作业，作对给分！！！！

Question

请看看下面的源程序，请问它运行后的结果是什么？？还有就是这个结果是怎样来得？
谢谢！！
Private Sub p(ByVal i As Integer)
Dim j%, k%
For j = 0 To 7 - i
Print ""
Next j
For k = 0 To 2 * i - 1
Print "*"
Next k
Print
End SubPrivate Sub Command1_Click()
Dim i%
For i = 1 To 2
p (i)
Next i
For i = 3 To 1 Step -1
p (i)
Next i
End Sub

Answer 1

Private Sub Command1_Click()
Dim i%
For i = 1 To 2
Print "调用一次1p(i)" & i
p (i)
Next i
For i = 3 To 1 Step -1
Print "调用一次2p(i)" & i
p (i)
Next i
End Sub
运行一下就知道程序的运行过程了,或者用F8

Answer 2

此题关键是要了解 PRINT 语句，当点击COMMAND1时，PRINT语句显示在当前窗口（FORM）上（COMMAND1所在的窗体）！

Answer 3

运行结果：在窗体依次打印7个空白行、2个*号、6个空白行、4个*号、5个空白行、6个*号、6个空白行、4个*号、7个空白行、2个*号、1个空白行。
将代码改如下：可在同目录下的A.txt中看到更为直观的打印结果：
Private Sub p(ByVal i As Integer)
Dim j%, k%
Open App.Path & "\A.txt" For Append As #1
For j = 0 To 7 - i
Print #1, j '"j"
Next j
For k = 0 To 2 * i - 1
Print #1, "*"
Next k
Print #1,
Close #1
End SubPrivate Sub Command1_Click()
Dim i%
For i = 1 To 2
p (i)
Next i
For i = 3 To 1 Step -1
p (i)
Next i
End Sub