试题 试卷
题型：单选题 题类：模拟题 难易度：普通
浙江省普通高校招生信息技术选考模拟卷（三）
Private Sub Command1_Click()
Dim a(0 To 4) As Integer
Dim i As Integer
a(4) = Val(Text1.Text)
For i = 3 To 1 Step -1
a(i) = a(i + 1) / 2
Next i
Text2.Text = Str(a(i+2))
End Sub
Dim year,t as integer
t=0
For year=1896 To 2016
t=t+1
Next year
该程序段结束后，变量year的值是（ ）
Private Sub Command 1_Click()
Dim t As Integer
Dim s As String
i = 1:t = 1:n = Text1.Text
List1.Clear
Do While t< = n
s = s + “*”
If i = t Then
List1.AddItem s
t = t + 1
i=0
End If
i = i + 1
Loop
试题篮
