试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省金华市江南中学2020届高三信息技术网课2月22日第二周测试卷
For i= 1 To 8
a(i) =Int(Rnd*2)
Next i
sum= 0
For i=1 To 8 Step 3
For j=i To 8
a(j)=1-a(j)
Next j
sum=sum+a(i)
Text 1.Text=Str(sum)
执行该程序段后，文本框Text 1中显示的内容不可能是（ ）
s = 0: i = 1
n = Val(Text1.Text)
Do While i < n
s = s + i
i = i + 1
Label1.Caption = Str(s)
Private Sub Cnd1_Click( )
Dim W As Integer，T As String
W = Val（Txt1.Text）
T = ”Y”
If W < > 100 and W > 80 Then T = ”N”
Txt2.Text = T
End Sub
Dim a(1 To 5)As Integer
a(1)=1 : a(2)=2
For i=3 To 5
a(i)=a(1)
For j=i-1 To 2 Step -1
a(j)=a(j)＋a(j－1)
Text1.Text=Str(a(3))
试题篮
