For循环.docVIP

For循环 我们已经学习了Do While循环语句，VB的循环语句还有另外一种，叫做For循环，无论哪种循环语句，其作用都一样，就是重复去执行一些代码若干次。 For语句的一般格式如下： Dim i As Integer For i=初值 To 终值 step n 循环体（要重复执行的语句块） Next i For循环语句的作用是重复执行循环体，执行循环体的次数取决于循环变量i的初值和终值还有step n语句。step n语句的作用是循环变量i每次增加多少，假如n是2，也就是step 2，那么i的值每次增加2。step n语句也可以省略，那么i每次增加1，相当于step 1。 我们通过Do While语句和For语句的对比，来学习For语句，例子如下： 例1：在窗体上输出5次hello。 Do While循环语句的写法如下： Private Sub Command1_Click() Dim i As Integer i = 1 Do While i = 5 Print hello i = i + 1 Loop End Sub For循环语句的写法如下： Private Sub Command1_Click() Dim i As Integer For i = 1 To 5 循环变量i的值初始是1，i的值不能大于5 Print hello Next i 语句Next i让变量i的值在原有基础上增加1。 End Sub 以上程序，循环变量i的初始值是1，i的值每一次增加1，当i的值不超过5就会执行语句Print hello ，所以语句Print hello被执行了5次。For循环结束的时候循环变量i的值应为是6。 例2：计算1+2+3+…+100，并输出结果。程序如下： 例3：输出1至10之间的偶数。 方法一： 方法二： 以上两个程序都能达到同样的效果。 练习1：输入s和e，s不一定小于e。输出s和e之间（包括s和e）能被3整除的数字之和。假如s的值是3，e的值是9。那么3和9之间能被3整除的数字是3、6、9，它们的和是18，所以应该输出18。假如输入9和3，输出也是18。要求用For循环解决问题，程序参考界面如下：（程序保存在一个命名为sum3的文件夹） Exit For语句，在循环体里面只要执行了Exit For语句，循环立刻结束。 例4：如下图所示： 以上程序输出结果为1 2 3 4 例4：输入一个自然数，判断其是否为质数（素数）。质数是这样一个数字，它只能被1和自身整除。例如7是质数，因为它只能被1和7（自身）整除。9不是质数，因为9除了能被1和9整除之外，还能被3整除。 要判断一个数字x是否为质数，只要让2至x-1这x-2个数字逐个去除x，这些数字只要有一个能整除x，那么x不是质数，否则x是质数。程序如下： 练习2：因子（不算自身）之和等于它本身的数称为完全数。例如28的因子是1，2，4，7，14，且1+2+4+7+14=28，则28是完全数。输入一个数字x，假如x是完全数，输出“x是一个完全数”，否则输出“x不是一个完全数”。要求用For循环解决问题。（程序保存在一个命名为perfect的文件夹） 循环的嵌套，我们已经学习If语句的嵌套，循环语句（For或者While）也可以嵌套。我们通过例子来学习For循环的嵌套，While循环嵌套是一样的。 以上代码Label1显示1 2 3 4 5 假如我们现想要显示如下结果： 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 怎么办呢？ 我们可以让以下语句块重复执行5遍 For j = 1 To 5 rsl = rsl j rsl Next j 想要让语句块重复执行若干遍，就要把这些语句块放在循环语句里面，写法如下： For i = 1 To 5 ‘让红色的语句重复执行5遍 For j = 1 To 5 rsl = rsl j rsl原有内容连接变量i保存内容再连接一个空格 Next j rsl = rsl Chr(13) chr(13)是换行 Next i 循环嵌套的格式，以For为例子，如下： For i=初值 To 终值 语句块1 For j=初值 To 终值 语句块2 Next j 语句块3 Next i 当然语句块2里面还可以有循环语句，那就组成了循环的多层嵌套。 练习3：输出1至1000内所有的完全数。程序参考界面如下：（程序保存在一个命名为perfect1000的文件