单项选择题

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

单项选择题
下列程序的运行结果是( )。Private Function myfun(m,n)Do While m>nDo While m>n:m=m-n:LoopDo While n>m:n=n-m:LoopLoopmy fun=mEnd FunctionPrivate Sub Command1_Click()Print myfun(9,8)End Sub
A．2
B．1
C．4
D．3
单项选择题
在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub单击命令按钮，程序运行后，在文本框中显示的值是( )。
A．2
B．3
C．4
D．5
相关试题