单项选择题

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