在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码：Option Base 1Private 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 sEnd Sub 运行上面的程序、单击命令按钮，其输出结果是

A．4321

B．1234

C．34

D．12

如图所示，水平固定一根长直不光滑杆，在杆上p点固定一定滑轮，滑轮可绕水平轴无摩擦转动，在p点的右边，杆上套有小球A，用一条不可伸长的柔软轻绳跨过滑轮，把小球A和小球B连接．将小球B拉离竖直位置，由静止上释放，则在两小球运动的过程中（　　）

A．两小球组成的系统机械能守恒

B．两小球组成的系统损失的机械能等于A球克服摩擦力做的功

C．轻绳对A球做的功等A球机械能的增加量

D．重力对B球做的功等于B球动能的增加量