设有如下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，结果是( )。