单选题有下列程序段，单击命令按钮执行程序后，输出结果为{{U}} {{/U}}。
Option Base 1
Private Sub Command1_Click()
Dim x
x=Array(23，-5，17，38，-31，46，11，8，5，-4)
s1=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

【正确答案】 D

【答案解析】[解析] For循环中，通过两个条件语句，计算数组中大于零的元素的和s1，小于零的元素的和s2，然后计算s1和s2的绝对值之商，正确结果为3.7。 [知识拓展]Abs函数的作用是返回参数的绝对值，其返回值的类型和参数相同。