Dim a(l To 5) As Integer, i As Integer, c As Integer
a(l) = 2 : a(2) = 1 : a(3) = 3 : a(4)=4 : a(5) = 5
c=0
For i = 3 To 5
If a(i - 2) + a(i - 1) = a(i) Then c = c + 1
Next i
Textl. Text = Str(c)
该程序段运行后,文本框Textl中显示的内容是
A.1
B.2
C.3
D.4
【答案】:B
【本题解析】
本题考查循环语句和选择语句。循环变量i变化范围是3至5,计数器c执行的前提是IF条件成立,第一次循环i=3时,条件a(2)+a(1)=a(3)成立,计数器加1;第二次循环i=4时,条件a(3)+a(2)=a(4)成立,计数器加1;第三次循环i=5时,条件a(4)+a(3)=a(5)?不成立,计数器未加1;结束循环后,c值为2,故文本框Text1显示的内容是2,选项B正确。