A-A+

有下列程序段单击命令按钮执行程序后输出结果为()。 Option Base 1 Priv

2022-08-06 02:52:40 问答库阅读 175 次

问题详情

有下列程序段，单击命令按钮执行程序后，输出结果为()。 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函数的作用是返回参数的绝对值，其返回值的类型和参数相同。