填空题 执行下列程序，单击按钮Command1，在窗体上显示的第一行是 1，第二行是 2，最后一行是 3。
Option Base 1
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, st As String, n As Integer, p As String*1
p="A"
For i=3 To 1 Step-1
n=Asc(P)-i
If n＜65 Then n=n+26
st=Chr(n)
st=st&Fun(i)
Print st
Next
End Sub
Private Function Fun(n As Integer) As String
Dim i As Integer, s As Integer
For i=1 To n
s=s+i
Next
s=s+n
Fun=s
End Function