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

单项选择题命令按钮Command1的单击事件过程如下：Private Sub Command1_Click() Dim a(10， 10)As Integer x＝0 For i＝1 To 3 For j＝1 To 3 a(i， j)＝i * 2 Mod j If x<a(i， j)Then x＝a(i， j) Next Next Print xEnd Sub执行上述事件过程后，窗体上显示的是( )。

单项选择题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c＝1234c1＝Trim(Str(c))For i＝1 To 4 Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为( )。