有下列程序段,单击命令按钮执行程序后,输出结果为( )。 Option Base
问题:
有下列程序段,单击命令按钮执行程序后,输出结果为( )。
Option Base 1
Private Sub Command1_Cliek()
Dim x
x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4)
s1=0
s2=0
Fork=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