试题 试卷
题型：综合题 题类：常考题 难易度：困难
浙江省金华市曙光学校2018-2019学年高二上学期信息技术期末考试试卷
Private Sub Cmd1_Click()
Dim n As Integer,i As Integer,s As string
S=“”
For i=1 To n
If i<=n\2+1 Then
Else
S=s+
End if
Next i
Text2.Text=s
End Sub
Dim a(1 To 5) As Integer, i As Integer
a(1)=1: a(2)=1
For i=3 To 5
a(i)=a(i-1)+a(i-2)
Text1.Text=Str(a(i-1))
该程序段运行后，文本框Textl中显示的内容是（ ）
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then m = 1 Else m = 2
a(m) = a(m) + 1
If a(m) = 1 Then n = n + 1
数组a各元素的初始值都为0，文本框Textl的内容为“Luck2018”。执行程序后，变量n的值为{#blank#}1{#/blank#}
a = 3
b = 4
c = 5
If a > b Then a = b Else b = a
则程序运行后的a和b的值分别是：（ ）
a(i)=i+1
程序运行后，变量i的值是：（ ）
m=0:n=0
For i=1 to 100
If i mod 3="0" then
m=m+1
n=n+1
next i
print m,n
试题篮
