有下列程序段，单击命令按钮执行程序后，输出结果是( )。Option Base 1Private Sub Command1 Click()Dim xx=Array(23,-5,17,38,-31,46,11,8,5,-4)31=0s2=0For k=1 To 10If(x(k)0)ThenS1=S1+x(k)Elses2=s2+x(k)End IfNext kY=s1/Abs(s2)Print YEnd SubA．148B．40C．40D．3.7
有下列程序段，单击命令按钮执行程序后，输出结果是( )。
Option Base 1
Private Sub Command1 Click()
Dim x
x=Array(23,-5,17,38,-31,46,11,8,5,-4)
31=0
s2=0
For k=1 To 10
If(x(k)>0)Then
S1=S1+x(k)
Else
s2=s2+x(k)
End If
Next k
Y=s1/Abs(s2)
Print Y
End Sub
A．148
B．40
C．40
D．3.7
相关考题：
在窗体上画一个命令按钮，然后编写如下程序：Dim x As IntegerSub inc(a As Integer)x=x+aEnd SubPrivate Sub Command1_Click()inc 2inc 3inc 4Msgbox x；End Sub程序执行后，单击Command1命令按钮，消息框显示结果是【 】。
在窗体上画一个命令按钮，然后编写如下程序(假定变量x是—个窗体级变量)Dim x As IntegerSub inc(a AS Integer)X=K+aEnd SubPrivate Sub Command1_Click()inc2inc3inc4Prmt x；Ead Sub程序执行后，单击Command1命令按钮，输出的结果是【 】。
在窗体上画一个命令按钮(名称为Command1)，编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是： ______。A．a=11B．a=b+cC．a=D．假
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程：Private Sub Command1_Click() b=5 c=6 Print a=b+ cEnd Sub 程序运行后，单击命令按钮，输出的结果是______。A．a=11B．a=b+ cC．a=D．False
现有如下一段程序：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
现有如下一段程序： 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
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim j As Integer,s As Integer s=1 Do s=s+j j=j+1 Loop Until j＞=5 Print s End Sub 程序运行后，单击命令按钮，在窗体上输出的结果是( )。A．11B．1C．16D．7
在窗体上画一个名为Command1的 命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是 。A．18B．12C．8D．6