工商行政管理部门依照有关法律、行政法规的规定，对粮食经营活动中的（）、超范围经营以及粮食销售活动中的（）、（）、（）、（）、（）等扰乱市场秩序和违法违规交易行为进行监督检查。

在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(4, 3, 2, 1)
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．1234

C．34

D．12