编写如下程序：Option Base 1Private Sub Command1_Click() Dim a a＝Array(1， 2， 3， 4) s＝0： j＝1 For i＝4 To 1 Step－1 s＝s＋a(i)* j j＝j * 10 Next i Print sEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。