单项选择题

有下面程序代码：
Private Sub Command1_Click( )
Dim k As Integer
For k = 1 To 3
Call fun(k)
Next k
For k = 1 To 3
Call proc(k)
Next k
End Sub
Private Sub fun(x As Integer)
Static a As Integer
a = a + 1
Print a * x;
End Sub
Private Sub proc(x As Integer)
Dim a As Integer
a = a + 1
Print a * x;
End Sub
运行Command1_Click过程产生的输出是______。