现有如下一段程序： Option Base 1 Privalc Sub Command1 Click（ ） Dim a a=Array(3，5，7，9‘) x=1 For i=4，10 j Step-1 s=s+a(i)*X x=x*10 Next i Print s End Sub 执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（ ）。A.9753B.3579C.35D.79
现有如下一段程序： Option Base 1 Privalc Sub Command1 Click（ ） Dim a a=Array(3，5，7，9‘) x=1 For i=4，10 j Step-1 s=s+a(i)*X x=x*10 Next i Print s End Sub 执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（ ）。
A.9753
B.3579
C.35
D.79
相关考题：
有如下程序，单击command1后窗体显示结果是( )OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=LBound( )ToUBound( )a(i)=i*a(i)NextiPrinti;UBound( )EndSubA.65B.625C.不确定D.程序出错
在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl1_Click( ) Dim array1 ( 10, 10) As Integer Dim i,j As Integer For i=1 To 3 For j = 2 To 4 Array1 (i, j) =i +j Next j Next i Text1.Text=array1(2.3) + array1(3.4) End Sub程序运行后，单击命令按钮，在文本框中为示的值是( )。A．12B．13C．14D．15
执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(“a”，“b”，“c”，“d”，“e”，“f”，“g”) Printa(1)；a(3)；a(5) End SubA．abcB．bdfC．aceD．出错
在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i) ＞x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A．1 2B．1 2 3C．3 4 5D．4 5
现有如下一段程序：Option base 1Private Sub Command1_Click()Dim aa=Array(3,5,7,9)X=1For i=4 to 1 step -1s=s+a(i)*xX=x*10NextPrint sEnd Sub执行程序，单击Command1命令按钮，执行上述事件过程中，输出结果是A)9753B)3579C)35D)79
执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click() Dim a a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g") Print a(1)； a(3)； a(5) End SubA．abcB．bdfC．aceD．出错
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a()a＝Array("机床"，"车床"，"钻床"，"轴承")Print a(2)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承
在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End subA．10B．14C．15D．120
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array("机床"，"车床"，"钻床"，"轴承")Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承