单项选择题

有下列程序段，单击命令按钮执行程序后，输出结果为( )。 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、Text2以及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(p1(x)，y) Text2.Text=p1(x) End Sub Private Function p1(x As Integer)As Integer x=x+y：y=x+y p1=x+y End Function Private Function p2(x As Integer, y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
A．2 4 2 4
B．2 4 4 8
C．4 4 8 8
D．10 10 58 58
单项选择题
某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。 Private Sub Command2_Click() HScroll1.Min=0 HScroll1.Max=List1.ListCount HScroll1.Value=0 Timer1.Interval= Timer1.Enabled=True End Sub Private Sub Timer1_Timern If List1.ListCount＞0 Then List1.RemoveItem 0 HScroll1.Value=HScroll1.Max--Listl.ListCount Else Timer1.Enabled= MsgBox 全部删除! End If End Sub
A．100 False
B．0.1 True
C．100 True
D．0.1 False
相关试题