VB教程---循环结构

VB基础教程

循环结构在Visual Basic程序的三种结构中,循环结构是 一种重要结构。 循环的本质：不断地重复某种动作。 循环的本质对计算机程序而言，循环必须具备两个重要因素： 对计算机程序而言，循环必须具备两个重要因素：教 学 课 件

1. 在一定的条件下，重复执行一组语句 2. 必然出现不满足条件的情况，使循环终止

VB基础教程

思考题编写程序实现计算：0+1+2+3+4+…+n的值 前后两项之差都 为1,是一个等 差数列 Sum=0 Sum=sum+1 Sum=sum+2 Sum=sum+3 … Sum=sum+n i是从1到n递增 1的数列 重复执 行n次教 学 课 件

Sum=sum+i i=i+1

VB基础教程

一、循环程序设计结构VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结 构有：教 学 课 件

重点掌握： Do…Loop、 For.Next、 While…Wend等前三 种循环

☆ For...Next结构 ☆ Do…Loop 结构 ☆ While…Wend ☆ goto

VB基础教程

1、For…Next循环结构 For…Next循环结构语法格式：For 循环变量 = 初值 To 终值 [Step 步长]循环变量获得初值

<循环体> [ Exit For ] <循环体> Next [循环变量]

循环变量在终值内

F

T循环体

教 学 课 件

Exit For

循环体 循环变量增加步长

记住了

For循环的执行过程

VB基础教程

编程计算：S=1+2+3+…+100 Dim S%, i% S=0 For i=1 to 100 S=S+i Next i Print i,S ,注意执行过程！! 注意执行过程！! 循环结束后循环变量i的值为多少 循环结束后循环变量 的值为多少

教 学 课 件

思考: 思考 求100以内的奇数和、偶数和怎样改程序？ 求10!怎样改程序？

VB基础教程

说明① 格式中的参数说明：循环的初值、终值和步长都是数值表达式， 循环的初值、终值和步长都是数值表达式，其值不一定是 初值 都是数值表达式 整数，可以是实数。 整数，可以是实数。 增量参数可正可负。如果增量为正， 增量参数可正可负。如果增量为正，则初值必须小于等于 终值，否则不能执行循环体内的语句；如果增量为负， 终值，否则不能执行循环体内的语句；如果增量为负，则 初值必须大于等于终值。如果没有设置step step, 初值必须大于等于终值。如果没有设置step,则增量默认 为1。 当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。 当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。

教 学 课 件

②循环次数由初值、终值和步长决定，计算公式为： 循环次数由初值、终值和步长决定，计算公式为： 循环次数=INT((终值 – 初值)/步长 ) ((终值 初值) 步长 步长+1) 循环次数 (( 语句和Next语句必须成对出现，不能单独使用。 语句必须成对出现， ③ For语句和 语句和 语句必须成对出现 不能单独使用。 Next是循

环终端语句，在Next后面的循环变量与 是循环终端语句， 后面的循环变量与For中的循 是循环终端语句 后面的循环变量与 中的循 环变量必须相同。当循环是单层循环时， 环变量必须相同。当循环是单层循环时，Next后面的循环变量 后面的循环变量 可以不写。 可以不写。

VB基础教程

④ 如果要在循环变量到达终值前退出循环，可用Exit For语句来实现。 如果要在循环变量到达终值前退出循环，可用Exit For语句来实现。 语句来实现 该语句可以在For循环中出现多次，且位置不限。 For循环中出现多次 该语句可以在For循环中出现多次，且位置不限。

如：前例中加入条件“当sum超过 前例中加入条件“ 超过400时跳出循环”。 时跳出循环” 超过 时跳出循环 For i=1 to 500 step 100 S=S+I If s>400 then Exit for Next i Print i,S

教 学 课 件

VB基础教程

2、Do…Loop循环结构 Do…Loop循环结构Do…Loop循环用于事先不知道循环次数的循环结 构。此种语句四种语法格式： ⑴ . Do While … Loop 语句 ⑵ . Do Until …Loop 语句先判断条件值，如果为真，执行循环体， 先判断条件值，如果为真，执行循环体，否则退出 先判断条件值，如果为假，执行循环体， 先判断条件值，如果为假，执行循环体，直到为真时退出 先执行循环体，后判断条件值，为真继续循环， 先执行循环体，后判断条件值，为真继续循环，否则退出 先执行循环体，后判断条件值，为假继续， 先执行循环体，后判断条件值，为假继续，直到为真退出

教 学 课 件

⑶ . Do … Loop While 语句 ⑷ . Do … Loop Until 语句

VB基础教程

⑴. Do While … Loop语句语法格式： Do While 〈条件表达式〉 〈循环体〉 [Exit Do] 〈循环体〉 Loop Dim S%, i% S=0 i=1 Do while s<=400 S=S+i i=i+1 Loop Print " S=",S

(2) Do Until …Loop语句 语句 语法格式： Do Until〈条件表达式〉 〈循环体〉 [Exit Do] 〈循环体〉 Loop Dim S%, i% S=0 i=1 Do until s>400 S=S+i i=i+1 Loop Print " S=",S

教 学 课 件

Dim S%, i% S=0 For i=1 to 100 S=S+I If s>400 then Exit for Next i Print " S=",S

VB基础教程

说明： ① 条件表达式可以是一个逻辑表达式，也可 以是一个关系表达式，其值应是逻辑型。 ② Do While/Until和Loop应成对出现。 ③ 循环体中要有控制循环的语句，以避免出 现死循环。 ④ 由于该循环的特点是先判断条件，然后再 决定是否要执行循环体里的语句。所以，这 种循环可以一次也不执行循环体。 ⑤ Exit Do 表示当遇到该语句时，强制退出循 环，执行Loop后的下一条语句

教 学 课 件

VB基础教程

(3)Do … Loop While语句 ) 语句 语法格式： 语法格式： Do 循环体〉 〈循环体〉 [Exit Do] 循环体〉 〈循环体〉 Loop While〈条件表达式〉 〈条件表达式〉

⑷ . Do …Loop Until语句 语句 语法

格式： 语法格式： Do 〈循环体〉 [Exit Do] 〈循环体〉 Loop Until〈条件表达式〉

教 学 课 件

注意： 注意： ① 至少要执行循环体一次。② 与Do While循环的区别： Do While循环先测试条件是否成立， 只有 循环先测试条件是否成立， 循环先测试条件是否成立 成立才执行循环； 而该循环先执行循环体， 成立才执行循环 ； 而该循环先执行循环体 ， 后测试条件是否成立。 后测试条件是否成立。

VB基础教程

的有效值。 例：输入有效位数，按下述公式计算圆周率∏的有效值。 输入有效位数，按下述公式计算圆周率 的有效值

m=val(text1.text) pai=2:p=0 Do t=s:p=spr(2+p):pai=t*2/p Loop Until abs(t-s)<0.1^m

教 学 课 件

VB基础教程

3、While…Wend循环结构 、 循环结构 语法格式： 语法格式：While 〈条件表达式 ) 等价于 循环体 Wend教 do While(条件表达式) 学 ) 课 循环体 件

LOOP

功能： 功能：当While的条件表达式的值是True时执行循环体内的 代码，直到While后的条件表达式的值为False。 说明： 说明：它与Do …Loop语句的差别是： While …Wend语句中不能使用Exit语句跳出循环。

VB基础教程

几种循环语句比较For....to Next 循环类型 循环控制条 件 循环变量初 值 使循环结束 使用场合 当型循环 循环变量大于 /小于 终值 在 FOR 语句中 For 语句中无 需专门语句 循环次数容易 确定 Do while/ until .... Loop 当型循环 条件成立 /不成立 do .... Loop While /until ... 直到循环 条件成立 /不成立

教 学 课 件

在 DO 之前 必须用专门语句 条件件易给出

在 DO 之前 必须使用专门语句 条件件易给出

VB基础教程

练习： 练习： 1、求100~200之间不能被 整除的数。 、 之间不能被3整除的数 之间不能被 整除的数。 2、判断一个数是否为质数。 、判断一个数是否为质数。 解1: value=val(Text1.text) For counter = 2 To value - 1 If value Mod counter = 0 Then Exit For Next If counter = value Then Print "质数"

教 学 课 件

解2: Value = Val(Text1.Text) Counter = 2 Do Until Value Mod Counter = 0 Or Counter = Value Counter = Counter + 1 Loop If Counter = Value Then Print "质数

VB基础教程

3、输入两个正整数，求它们的最大公约数。 、输入两个正整数，求它们的最大公约数。 输入两个自然数m, 输入两个自然数 n r=m mod n 若r=0,则n为m的最大公约数 ， 为 的最大公约数 若r<>0,则m=n,n=r , , 重复执行第二步 m m = Text1.Text n = Text2.Text Do t = m Mod n m = n: n = t Loop Until n = 0 Print m n

教 学 课 件

4、验证哥德巴赫猜想:任意一个大于等于6的偶数都可以分解为两个质数之和。 基本思想：n为大于等于6的任一偶数，可分解为n1和n2两个数， 分别检查n1和n2是否为素数，如都是，则为一组解。 如n1不是素数，就不必再检查n2是否素数。先从n1=3开始，

检验n1和n2(n2=N-n1)是否素数。然后使n1+2 再检验n1、n2是否素数，… 直到n1=n/2为止。

VB基础教程

循环的嵌套——多重循环结构 二、循环的嵌套 多重循环结构1、如果在一个循环内完整地包含另一个循环 结构，则称为多重循环，或循环嵌套， 2、嵌套的层数可以根据需要而定，嵌套一层 称为二重循环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套， 下面是几种常见的二重嵌套形式：教 学 课 件

VB基础教程

(1)For I=…. ….. For J=…. …. Next J ….. Next I (3)Do While…. ….. For J=…. …. Next J ….. Loop

(2)For I=…. ….. Do While/Until …. Loop ….. Next I (4)Do While/Until…. ….. Do While/Until …. Loop ….. Loop

教 学 课 件

VB基础教程

例题：在窗体上输出 以内质数。 例题：在窗体上输出100以内质数。 以内质数Private Sub Command1_Click() Dim value As Integer Dim counter As Integer Dim num As Integer Me.Cls For value = 2 To 100 For counter = 2 To value - 1 If value Mod counter = 0 Then Exit For End If Next If counter = value Then Print value; Tab; num = num + 1 If num Mod 3 = 0 Then Print End If Next Print Print "100以内的质数有" & num & "个" End Sub

教 学 课 件

本文来源：https://www.bwwdw.com/article/d4gi.html