logo - 刷刷题
下载APP
【单选题】

有下列程序段,单击命令按钮执行程序后,输出结果是( )。
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
举报
参考答案:
参考解析:
.
刷刷题刷刷变学霸
举一反三