有下列程序段,单击命令按钮执行程序后,输出结果是( )。 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

admin2010-11-20  23

问题 有下列程序段,单击命令按钮执行程序后,输出结果是(    )。
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

答案D

解析 For循环中,通过两个条件语句,计算数组中大于零的元素的和s1,小于零的元素的和s2,然后计算sL和s2的绝对值之商,正确结果为3.7。
转载请注明原文地址:https://kaotiyun.com/show/zYmp777K
0

最新回复(0)