内容正文:
第四节 程序设计的循环结构
一、For-Next循环(已知循环次数)
格式:
For循环变量= 初值 To 终值 Step循环变量增量
循环体
Next循环变量
例1:求s=1+2+3+4.....+100
Private Sub Form_Click()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i ' 循环体
Next i
Print "sum="; sum
End Sub
循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体,增量可正可负,如果没有设置Step,则增量的缺省值为1
执行过程:
1、 循环变量取初值;
2、 循环变量与终值比较,没有超过终值转3,否则循结束,接着执行循环语句的后继语句;
3、 执行一次循环体
4、 循环变量增加一个增量
5、 重复步骤2~4。
以上可以看出,For-Next循环变量是一种计数循环。说明
(1)For语句与Next语句必须成对出现,而且它们当中的“循环变量”必须是同一个变量,如上例中均为i。
(2)当循环变量为正时,循环变量超过终值,是指循环变量的值大于终值时;若为负,则是指循环变量的值小于终值。
练习:《算法与程序设计选修模块题库(共19页)》P16 22题
一个FOR循环里包含了另一个FOR,我们称它为嵌套循环。
格式:For i= 1 to 2
外循环变量
内循环变量
循环次数
i=1
j=1 执行循环体
第1次
j=2 执行循环体
第2次
j=3 执行循环体
第3次
i=2
j=1 执行循环体
第4次
j=2 执行循环体
第5次
j=3 执行循环体
第6次
For j=1 to 3
……
Next j
Next i
例2:编写程序,使能打印下面所示的图案。
@
@@
@@@
@@@@
@@@@@
@@@@@@
A
A程序:
Dim i As Integer
Dim j As Integer
For i = 1 To 6
For j