在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Commmad1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是( )。

A．4321

B．12

C．34

D．1234

未取得动物诊疗许可证从事动物诊疗活动的单位或个人，由动物卫生监督机构（），违法所得在三万元以上的，并处违法所得的一倍以上三倍以下罚款，不足三万的，并处三千元以上三万元以下的罚款。

A、停止诊疗活动

B、没收违法所得

C、警告

D、责令改正