试题 试卷
题型：单选题 题类：常考题 难易度：容易
内蒙古巴彦淖尔市临河三中计算机班2018-2019学年高二上学期信息技术期中考试试卷VB
Dim a(1 To 10) As Integer
a(1)=2: a(2)=18: a(3)=10: a(4)=34: a(5)=16
a(6)=7: a(7)=37: a(8)=6: a(9)=15: a(10)=15
c=0: x=0: t= 1
For i=1 To 10
a(i)=a(i)*t
c=c+a(i)
If c>0 Then x=x+1
t=-t
Next i
Text1.Text=Str(x)
则程序运行后Text1中显示（ ）
试题篮
