在窗体上添加一个R命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为 OptionBase 1 PrivateSubCommand1_Click() Dim aAs Variant a=Array(1，2，3，4)j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next Print sEnd SubA、4321 B、1234 C、34 D、12