单项选择题

有下列程序段，单击命令按钮执行程序后，输出结果为( )。
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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n，str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A．pp
B．pP
C．PP
D．Pp
单项选择题
下列程序的运行结果是( )。 Private Function myfun(m，n) Do While m＞n Do While m＞n:m=m-n:Loop Do While n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9，8) End Sub
A．2
B．1
C．4
D．3
相关试题