寿昌中学·2011年信息技术学科会考理论复习资料
循环语句（For语句、Do语句格式） 2007年真题：
1. 如果以下是一个完整的Visual Basic For语句，则划线处的语句应该是
For i=1 To 10 a=a+i
________
（A）End i （B）Next i （C）End For （D）End 2. 如果以下是一个完整的Visual Basic For语句，则划线处的语句应该是
For i=1 To 10 a=a+i ________
（A）Loop （B） End For （C） Next i （D）End 3. 有如下 Visual Basic程序段：
For k=______ To 5
t=t*k Next k
要使循环体 t=t*k执行10次，循环变量的初值是
（A）-6 （B）1 （C）-4 （D）15
4. 如果以下是一个完整的Visual Basic Do语句，则划线处的语句应该是
Do While i<10 sum=sum+i
________
（A）Next （B）End Do （C）Loop （D）End While
2008年真题：
1.有如下Visual Basic程序段： For j=1 To ______ Step 2 t=t*j Next j
要使循环体t=t*j执行5次，循环变量的终值可以是 （A）-5 （B）0 （C）5 （D）10
2.下面程序段是利用For语句给数组a赋值： For i= 1 To 6 a(i)=i+1 Next i
该程序段运行后数组元素a(3)的值为
（A）2 （B）3 （C）4 （D）5
第 31 页
寿昌中学·2011年信息技术学科会考理论复习资料
3.下面程序段是利用For语句给数组a赋值， For i= 10 To 1 Step -1 a(i)=i-1 Next i
该程序段运行后数组元素a(3)的值为
（A）7 （B）6 （C）3 （D）2 4.有如下Visual Basic程序段： For m= ________ To 4 k=k+m Next m
要使循环体k=k+m执行5次，循环变量的初值是 （A）-2 （B）-1 （C）0 （D）1
5.下面程序段是利用For语句给数组a赋值，使a(1)=2，a(2)=4，a(3)=6，?，a(100)=200，则划线处的语句应该是 For i= 1 To 100 _____________ Next i
（A）a(i)=i+2 （B）a(i)=i*i （C）a(i)=i （D）a(i)=2*i
6.下列语句用于计算s=1+5+9+13+?+37：
①For m=1 To 10 ②Next m ③s=0 ④s=s+4*m-3 正确的顺序是
（A）①②③④ （B）①③④② （C）③①④② （D）④③①② 7.在下面Visual Basic程序段中，有语法错误的语句行是 #01 s=0
#02 For m=1 To 5 #03 s+m=s #04 Next m
（A） 第#01行 （B） 第#02行 （C） 第#03行 （D） 第#04行
2009年真题：
1．某数列前三项分别为：a1 = 2、a2 = 3、a3 = 4，以后每项都满足:
ai = ai-3 + ai-1 （i>3）
如果用数组a存储该数列的前20项，下面程序段划线处应填入 a(1)=2 : a(2)=3 : a(3)=4 For i=______ To 20
a(i) = a(i - 3) + a(i - 1) Next i （A）6 （B）9 （C）13
第 32 页
（D）4
寿昌中学·2011年信息技术学科会考理论复习资料
2. 有如下Visual Basic程序段： s=0
For x=1 To ______ Step 2 s=s+x
Next x
要使循环体s=s+x执行5次，循环变量的终值可以是 （A）5 （B）7 （C）9 （D）-9 3．以下程序段是一个完整的Visual Basic的For语句，则划线处的语句应该是 For k=1 To 3 s=s+k
（A）Loop （B）End If （C）Next k （D）Step k 4．下面程序段是利用For语句给数组a赋值 For i= 1 To 5 a(i)=2*i-1 Next i
该程序段运行后数组元素a(4)的值为 （A）4 （B）5 （C）7 （D）9 5．下面程序段是利用For语句给数组a赋值，使a(1)=1，a(2)=3，a(3)=5，?，a(50)=99，则划线处的语句应该是
Dim a(1 to 50) As Integer For i= 1 To 50 _____________ Next i
（A）a(i)=2*i+1 （B）a(i)=2*(i+1) （C）a(i)=i+2 （D）a(i)=2*i-1 6．下列语句用于计算s=1+4+7+10+?+25：
①For i=1 To 25 Step 3 ②Next i ③s=0 ④s=s+i 正确的语句顺序是 （A）①②③④ （B）①③④② （C）③①④② （D）④③①② 7．以下程序段是一个完整的Visual Basic的Do语句，则划线处的语句应该是 Do While a<=5 s=s+a : a=a+1
（A）End If （B）End Sub （C）Next a 8．在下面完整的Visual Basic的Do语句中，有错误的语句行是 #01 t=0
#02 Do While t<10
第 33 页
（D）Loop
寿昌中学·2011年信息技术学科会考理论复习资料
#03 t=t+2 #04 End Do （A） 第#01行
（B） 第#02行
（C） 第#03行
（D） 第#04行
2010年真题：
1. 有如下Visual Basic程序段： For x = 10 To 1 Step -1 a(x) = x + 1 Next x
该程序段运行后数组元素a(3)的值为
（A）9 （B）8 （C）4 （D）3
2. 有如下Visual Basic程序段： Dim a(1 To 4) As Integer a(1) = 1
For i = 2 To 3
a(i) = 2 * a(i - 1) + 1 Next i
该程序段运行后，数组元素a(4)的值为
（A）15 （B）7 （C）3 （D）0
3. 有如下Visual Basic程序段： s = 0
For k = To 5 s = s + k Next k
该程序段运行后，循环体s = s + k被执行10次，则循环变量k的初值是 （A）14 （B）-5 （C）1 （D）-4
4. 以下Visual Basic程序段是一个完整的Do语句，则划线处的语句应该是 Do While n < 10 n = n + 3 s = s * n _______
（A）Loop （B）End Do （C）End Sub （D）Next n
第 34 页
寿昌中学·2011年信息技术学科会考理论复习资料
程序执行错误分析 2010年真题：
1. 运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生\下标越界\错误时所执行的语句是 Private Sub Command1_Click() Dim a(0 To 5) As Integer
Dim i As Integer '① a(0) = 1 '② For i = 1 To 5
a(i) = 2 * a(i - 1) + 1 '③ Next i
Text1.Text = Str(a(6)) '④ End Sub
（A）① （B）② （C）③ （D）④
2. 运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生\下标越界\错误时所执行的语句是 Private Sub Command1_Click() Dim a(0 To 5) As Integer
Dim i As Integer '① a(0) = 1 '② For i = 1 To 6
a(i) = 2 * a(i - 1) + 1 '③ Next i
Text1.Text = Str(a(5)) '④ End Sub
（A）①
（B）②
（C）③
（D）④
第 35 页