在数据管理技术发展的三个阶段中，数据共享最好的是(　　)。

单项选择题设有如下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执行上述事件过程后，窗体上显示的是( )。