[单项选择题] 设有如下Command1的单击事件过程及fun过程：
Private Sub Command1_Click( )
Dim x As Integer
x = Val( InputBox( "请输入一个整数" ) )
fun(x)
End Sub
Private Sub fun( x As Integer)
If x Nod 2 =0 Then fun(x / 2)
Print x ;
End Sub
执行上述程序，输入6，结果是( )。

A． 3 6
B． 6 3
C． 6
D． 程序死循环