有下列程序段,单击命令按钮执行程序后,输出结果为( )。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46,

admin2010-09-11  27

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

答案D

解析 For循环中,通过两个条件语句,计算数组中大于零的元素的和s1,小于零的元素的和s2,然后计算s1和s2的绝对值之商,正确结果为3.7。Abs函数的作用是返回参数的绝对值,其返回值的类型和参数相同。
转载请注明原文地址:https://jikaoti.com/ti/sWg0FFFM
0

最新回复(0)