发布时间 : 星期一 文章for循环练习更新完毕开始阅读
For循环语句练习
班级：___________ 姓名： ___________
1．以下VB程序段执行后，语句T = T + K的执行次数是（ ） For K= -3 To 3 Step 3 T = T + K Next K
A．0 B．1 C．2 D．3 2. 有如下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
3．第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：
输入n j←0,s←1 j←j+1 j< n？ N Y 输出s
空白矩形框中应该填入的是
（A）s←s+2 （B）s←s+3 （C）s←s+j （D）s←s*3
4、下面是一个计算变量S值的一个算法： ①变量s的初值是0
②变量i依自然数规律从1起变化到n，i每取一个值，都按s=s+2^i计算一个s的值 ③输出变量s的值
在这个计算s值的算法中，S的代数式表示是 （ ）
n
A. 1+2+4+8+??+2
n
B. 2+4+8+??+2 C. 2+4+6+??+2n
D.1+2+4+6+??+2（n-1） 5．实现计算器上
x运算处理的算法部分流程图如下图所示：
y
输入y,x j←1,f←1 j←j+1 j<= y？ N Y 输出f 空白矩形框中应该填入的是
（A）f←f*x （B）f←x*j （C）f←f+x （D）f←f*j 6、一个酵母细胞每10分钟分裂为2个，在下一个10分钟，就有4个细胞，然后，8个、16个、??。一个酵母细胞，经过多少分钟后数目超过100个。解决此问题的部分算法流程图如图所示：
n←10,x←2 n←n+10 x<=100？ Y N 输出n 空白矩形框中应该填入的是
（A）x←x^2 （B）x←x*x （C）x←x/2 （D）x←x*2
7、有如下程序段，功能是统计自然数1—100之间能被4整除的数的个数，并显示在标签1上： n=0
For i=1 to 100
If ___________=0 then n=_____________ Next i
Label1.caption=str(n) 5、有如下Visual Basic程序： Private Sub Command1_Click()
Dim i As Integer, s As Integer, x As Integer s = 0
For i = 1 To 12
If i Mod 3 = 0 Then s = s + i Next i
Text1.Text = Str(s) End Sub 问：
（1）程序运行后，变量s的值为____________。
（2）程序运行后，刚退出循环时变量i的值为____________。
8、以下Visual Basic程序的功能是： 计算表达式1+2+2+2+2+2+2+2+2+2+2的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_____________。
Private Sub Command1_Click() Dim i As Integer,s As Long s = 0 k = 2
For i= 1 To 10 s = s + k k = k * 2 Next i
Text1.Text=Str(s) End Sub
9、以下Visual Basic程序的功能是：找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。为了实现这一功能，程序中划线处的语句应更正为____ _________。 Private Sub Command1_Click()
Dim i As Integer, sum As Integer sum = 0
For i = 1 to 100
If i Mod 3=0 Then sum = sum + 3 Next i
Text1.Text=Str(sum) End Sub
10、有如下Visual Basic程序段： Dim a(1 To 20) As Integer a(1) = 1: a(2) = 2
For i = 3 To a(i) = a(i - 2) + a(i - 1) Next i 问：
①数组a存储该数列的前20项，上面程序段划线处应填入_________。 ②该程序段运行后，a(6)的值为____________。
11、有如下Visual Basic程序： Private Sub Command1_Click()
Dim a(1 To 100) As Integer, i As Integer, s As Integer s = 0
For i = 2 To 100 Step 2 a(i) = i * 2 s = s + a(i)
2
3
4
5
6
7
8
9
10
Next i
Text1.Text = Str(s) End Sub 问：
（1）程序运行后，下标变量a(4)的值为_________。 （2）循环刚退出时，变量i的值为_________。
12. 有如下Visual Basic程序段： s = 0
For i = To 2 s = s + i Next i
若要使语句s = s + i执行3次，则循环变量i初值为 （A） 0 （B） 1 （C） 2
（D） 3
13. VB中的“&”连接运算符运算规则示例如下：”AB” & ”CD”的运算结果为”ABCD”；”AB” & 1的运算结果为”AB1”；2 & ”AB”的运算结果为”2AB”。有如下程序段： Dim s As String s ＝ ” ”
For i ＝ 1 To 9 Step 2 s ＝ i & s Next i
Textl.Text ＝ s
运行后，文本框Text1中显示的内容是
A．123456789 B．13579 C．97531 D．987654321 14. 有如下Visual Basic程序：
s = 0
For i = 1 To 12
If i Mod 3 = 0 Then s = s + i
Next i
Text1.Text = Str(s) 问：
（1）程序运行后，变量s 的值为____________。
（2）程序运行后，语句\被执行的次数为____________。
15. 以下Visual Basic程序的功能是：计算表达式1×3＋2×3＋3×3＋?100×3的值，并在文本框Text1中输出计算结果。 Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1
Do While i <= 100 s = i * 3
i = i + 1 Loop
Text1.Text = Str(s) End Sub
（1）刚退出循环时，变量i的值是___________。
（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为___________。 16. 有如下Visual Basic程序： Private Sub Command1_Click() Dim s As Integer, t As Integer t = 1: s = 0
For i = 1 To 10 Step 2 t = t * 2 s = t + 1 Next i
Text1.Text = Str(s) End Sub 问：
（1）程序运行后，变量s 的值为____________。
（2）程序运行后，语句\被执行的次数为____________。
17. 有如下Visual Basic程序段： 18. 有如下Visual Basic程序段： s = 0 s=0 a = 5 a=1 For i = 1 To 10 Step 2 for i=5 to 1 step -1 a = a + i a=a*i s = a * i s=s+a Next i next i 问：该程序段运行后， 问：该程序段运行后， （1）循环结束时，变量i的值是（1）共循环___________次。 ___________。 （2）变量s的值是___________。
（2）循环结束时，变量s的值是 ___________。