在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：

Private Sub Command1_Click()

Dim a

a=Array(1，2，3，4)

i=3:j=1

Do While i＞=0

s=s+a(i)*j

i=i-1

j=j*10

Loop

Print s

End Sub

运行上面的程序，单击命令按钮，则输出结果是（）。

A．4321

B．123

C．234

D．1234

保安大队长（中队长）职责是（）。

A、认真执行公司有关规章制度，加强队伍管理

B、检查考核分队（班）人员的执勤情况

C、负责分队（班）的学习和训练

D、负责分队（班）实施各项保安服务任务