单项选择题
有下列程序段,单击命令按钮执行程序后,输出结果为( )。
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
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上有文本框Text1和命令按钮Command1,并有如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub
A.2
B.3
C.4
D.5
点击查看答案&解析
单项选择题
下列程序的运行结果是( )。 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
点击查看答案&解析
相关试题
窗体上有两个文本框Text1、Text2以及一个...
下列程序的功能是:调用字体对话框来设置文...
在窗体上画4个文本框,并用这4个文本框建...
下列程序执行后,变量x的值为( )。 Dim...
在窗体上有一个文本框Text1,Text属性值为...