单击命令按钮后，下列程序代码的执行结果是______ 。
Public Sub fun (Byval a () As Integer)
Static n As Integer
Do
a(n) = a (n) + a(n + 1)
n = n + 1
Loop While n ＜ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, a(10) As Integer
For n = 0 To 2: a(n) = n + 1: Next n
For n = 1 To 2: Call fun(a): Next n
For n = 0 To 3: Print a(n): Next n
End Sub