有如下的程序：
Private Sub Command1_Click()
Dim k As Integer,m As Integer
Dim P As Integer
k=4:m=1
P=Fun(k，m)：Print P：
P=Fun(k，m)：Print P
End Sub
Private Function Fun(a As Integer,b As Integer)
Static m As Integer,i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m\2
End Function
单击命令按钮后，输出结果为( )。

A) 2 2
B) 4 4
C) 5 5
D) 6 6

穹窿的长短轴之比（）。