VB 第十一讲.pptVIP

Visual Basic 程序设计教程 第十一讲 循环结构 *工程训练中心 内蒙古科技大学工程训练中心 韩 艳 主要内容 ● For… next 循环语句的使用 ● while… wend 循环语句的使用 ● do …Loop 循环语句的使用 一、 循环结构 1、For－Next循环 For循环也称For－Next循环或计数循环，常用于循环次数已知的程序中。 格式： For 循环变量=初值 To 终值 [Step 步长] [循环体] [Exit For] Next [循环变量] 例：For i＝1 To 10 Step 2 Print i Next i 结果：依次输出1、3、5、7、9。 共执行5次 Print i 语句； 说明：⑴循环变量：为一数值变量(或为简单变量)； ⑵初值、终值、步长值：均为数值型，若为实数，则自动取整； ⑶Exit For：用于退出循环。 ⑷循环次数：循环次数＝Int((终值－初值)/步长值＋1) 一、循环结构 开始 循环变量＝初值 循环变量终值 执行循环体 循环变量＝循环变量＋步长 结束 (a)步长为正数 Y N 开始 循环变量＝初值 循环变量终值 执行循环体 循环变量＝循环变量＋步长 结束 (b)步长为负数 Y N 一、循环结构 例：求自然数n的阶乘。 Dim n As Integer, k As Long, i As Integer n = Val(InputBox(“请输入一个整数：)) k = 1 For i = 1 To n k = k * i Next Print n; !=; k 解题思路：首先利用inputbox输入n的值，利用For－Next循环，以及连乘方法，即可求出n！ 思考：如果求 一、循环结构 例： 求1＋1/2+1/3+1/4+…+1/n。 该题通项为ai=1/i ，求 。 sum = 0 n = Val(Text1.Text) For i = 1 To n sum = sum + 1/i Next Print n; 项的和为：; sum 解题思路：首先利用textbox或inputbox输入n的值，在For－Next循环内利用累加，求出每个单项的值，以及总和。 一、循环结构 For循环可以嵌套，但内外循环之间不得交叉： ⑴一般形式： For I1=… For I2=… For I3=… … Next I3 Next I2 Next I1 ⑵省略Next后面的循环变量： For I1=… For I2=… For I3=… … Next Next Next ⑶当内外循环有相同的终点时，可共用一个Next语句，此时Next后面的循环变量名不能省。 For I1=… For I2=… For I3=… … Next I3,I2,I1 一、循环结构 并列的循环可以共用一个变量名作循环变量名，而嵌套的循环不能用同一个变量名作循环变量名。如： For i=1 To 5 For i=1 To 10 … Next Next 错误 For i=1 To 5 … Next For i=1 To 10 … Next 正确 一、循环结构 2、While－Wend循环 While又称当循环，根据某一条件进行判断，决定是否执行循环。 格式： While 条件 [循环体] Wend 开始 计算“条件”值 条件为“真”？ 循环体 结