窗体上有一个名称为HSemlll的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。

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

单项选择题设有如下Commandl的单击事件过程及fun过程： Private Sub Commandl一Click() Dim x As Integer x=Val(InputBox(“请输入一个整数”)) fun(x) End Sub Private Sub fun(x As Integer) If x Mod 2=0 Then fun(x／2) Print x； End Sub执行上述程序，输入6，结果是( )。