电气工具和用具使用时，应按有关规定接入漏电保护装置、接地线。

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

A．4221

B．1234

C．34

D．12