单选题 有下列程序段，单击命令按钮执行程序后，输出结果是( )。

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