填空题 执行下面的程序，单击命令按钮Command1后，显示在窗体上的第一行内容是 1，第二行内容是 2，第三行内容是 3。
Option Explicit
Private Sub Command1_Click()
Dim N As Integer, M As Integer
N=2
Do While M＜3
N=N+2
If Fun(N) Then
Print N
M=M+1
End If
Loop
End Sub
Private Function Fun(ByVal N As Integer) As Boolean
If N/2=Int(N/2)Then
Fun=Fun(N/2)
Else
If N=1 Then Fun=True
End If
End Function