试题 试卷
题型：单选题 题类：模拟题 难易度：普通
浙江省普通高校招生信息技术选考模拟卷（三）
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 x，y As Integer
x=2
y=20
Do While x<y
x =x^2
Loop
Dim s As Double, x As Double, n As Integer, i As Integer
s=0:n=0
For i= 1 to 4
n=n+1
x=(n-1)/(n+1)
s=s+x
该程序段计算的数学表达式是（ ）
x=″abcdcba″:ans=0
For i=1 To Len(x)\2
If Mid(x,i,1)=Mid(x,Len(x)-i+1,1) Then
ans=ans+1
end if
Text1.Text=Str(ans)
Dim A(10)，B(5)
For i = 1 To 10
A(i) = i
For j = 1 To 5
B(j) = j * 20
Next j
A(5) = B(2)
Print "A(5)=";A(5)
试题篮
