窗体上有1个名称为Text1的文本框；1个名称为Timer的计时器控件，其Interval属性值为5000，Enabled属性值是True。
Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HPP& ’&HFF&为红色
Else
Text1.ForeColor=&HC000& ’&HC000&为绿色
End If
End Sub
以下叙述中正确的是（）
 

单项选择题设有以下函数过程： Function fun(a As Integer，b As Integer) Dim c As Integer If a＜b Then c=a:a=b:b=c End If c=0 Do Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是（）

A、 a、b的最大公约数
B、 a、b的最小公倍数
C、 a除以b的余数
D、 a除以b的商的整数部分

单项选择题在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dima(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为（）

A.2 0 0   0 4 0   0 0 6
B.2 0 4   0 4 0   4 0 6
C.2 3 0   3 4 0   0 0 6
D.2 0 0   0 4 5   0 5 6