VB程序的循环结构For-Next语句
VB程序循环结构、列表框和组合框-文档资料
循环变量 = 初值
结
循环变量 ≥ 终值 ?
构
流
程
执行循环体
图
N
循环变量 = 循环变量 + 步长
Y Y
循环变量 ≤ 终值 ?
执行循环体
N
循环变量 = 循环变量 + 步长
步长为负
步长为正
4
注意事项：
（1）“循环变量” 必须为数值型；
（2）“初值”、“终值”为数值表达式，若值不是整
数，系统会自动取整；
（3）“步长”为数值表达式，可为正数，也可为负数，
End Sub
33
Private Sub Form_Click() Dim e As Double Dim i As Integer Dim fact As Double 按Di下m列re公su式lt计A算s ：Long e = 0: i = 1: fact = 1: result = 1 eD=o1+1/1！+1/2！+1/3！+…+1/n！+… 使1fea/=cnt！e=小+1于f/a0c.rt0e0s0u0lt01 result = result * i i=i+1 Loop While fact > 0.000001 Label1.Caption = Val(e)
s=s+n
End If
n=n+1
Loop While n <= 100
NumLabel.Caption = t
SumLabel.Caption = s
End Sub
32
Private Sub ComputeCmd _Click()
Dim n As Integer, s As Integer
VB教程---循环结构
学
For i =1 To 10 课 For j=1 To 20 件 … Next i
Next j
6.5 跳转语句
GoTo语句可以改变程序执行的顺序，跳过程序的某一
教 学 课
件
前后两项之差都 Sum=0
为1，是一个等 差数列
Sum=sum+1i=i+1
Sum=sum+3
… Sum=sum+n
i是从1到n递增 1的数列
一、循环程序设计结构
VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结
先执行循环体，后判断条件值，为假继续，直到为真退出
⑴. Do While … Loop语句
语法格式： Do While 〈条件表达式〉
〈循环体〉 [Exit Do] 〈循环体〉 Loop
(2) Do Until …Loop语句
语法格式：
Do Until〈条件表达式〉
〈循环体〉
教
[Exit Do]
学
说明
① 格式中的参数说明：
循环的初值、终值和步长都是数值表达式，其值不一定是
教 学
整数，可以是实数。
课
增量参数可正可负。如果增量为正，则初值必须小于等于
件
终值，否则不能执行循环体内的语句；如果增量为负，则
初值必须大于等于终值。如果没有设置step，则增量默认
为1。
当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。
学
钱一。百钱买百鸡，问鸡翁、母、雏各几
课
何？
件
• 找出1~999之间所有的同构数
– 同构数：该数出现在它的平方数的右边，如： 5—25，25—625
For-next循环
For-next循环For... Next循环语句For…next循环简称为For循环。
它是⼀种指定循环次数（事先知道循环次数）的循环程序结构。
在这种结构中，使⽤了⼀个称为循环变量的特殊变量作为计数器，指定它的初始数值，然后每重复执⾏⼀次循环，循环变量就会⾃动增加或减少⼀个指定的数值(称为步长值)，直到循环变量的改变达到最终的指定值，循环才停⽌执⾏。
1．For …Next语句的语法格式For <循环变量>=<初值> To <终值> [Step步长][语句块][Exit For]Next [循环变量]功能：⽤来控制重复执⾏⼀组语句。
指定循环变量以步长为增量，从初值到终值依次取值，并且对于循环变量的每⼀个值，把语句块执⾏⼀次。
说明：（1）关键字For和Next成对出现，For是循环语句的开始，Next是循环语句的终端，必须出现在For语句的后⾯。
在关键字For 和Next之间的语句块叫循环体，它们将被重复执⾏指定的次数，执⾏的次数由初值、终值、步长值决定。
（2）初值、终值和步长值都是数值表达式，步长值可以是正数，也可以为负数。
如果步长值为1，可以省略不写，即系统默认步长值为1。
（3）<循环变量>为必要参数，是⽤作循环计数器的数值变量，这个变量不能是数组元素。
在循环体内，⼀般不提倡再给循环变量另外赋值。
循环变量从初值开始，逐次按照步长值增加或减少⽽改变，直到超过终值，这时循环停⽌执⾏。
这⾥所说的“超过”有两种含义：即⼤于或者⼩于。
（4）<初值>和<终值>也都是必要参数。
当初值⼩于终值时，<步长值>必须是正数；反过来，如果初值⼤于终值，则步长值必须为负数。
（5）如果循环体中安排了Exit For 语句，当程序执⾏到该语句时直接跳出循环结构，不再执⾏循环体中Exit For的后续语句（如果有），⽽是转到Next后⾯的其他指令继续执⾏。
VB 循环
公共教育学院 计算机教研室
徐州医学院VB教程
【例】编写程序，实现累乘：要求使用For循环求N !（N为 自然数）。
让f = 1、i = 1。使用InputBox函数得到N，重复执行N次
“f = f * i ”，在重复中，让i的值不断加1，即可实现例
公共教育学院 计算机教研室
徐州医学院VB教程
在“累加”问题中，应设置一个用来表示累加和的变
量，变量的初值设为零 。
“累乘求积”的问题，应设置一个表示积的变量，变量 的初始值应设置为1，
公共教育学院 计算机教研室
徐州医学院VB教程
while循环
While循环的格式如下：
While <条件表达式>
[循环体]
公共教育学院 计算机教研室
徐州医学院VB教程
算法说明
[算法分析] 由于输入的数据M和N要求是自然数，所以在
程序中应加入对数据的合法性进行检验的部分；考虑到
程序的应用范围，数据类型可选用长整型。
公共教育学院 计算机教研室
徐州医学院VB教程
[示例] 求两个自然数的最大公约数的算法（欧几里德算 法）
S1.输入两个自然数M、N； S2.求M除以N的余数R； S3.使M=N，即用N代换M； S4.使N=R，即用R代换N； S5.若R≠0,则重复执行S2、S3、S4（循环）,否则转S6； S6.输出M，M即为M和N的最大公约数。
公共教育学院 计算机教研室
徐州医学院VB教程
求二个正整数m和n的最小公倍数
求得最大公约数以后，将原两数相乘并除以最大公约 数，就得到了最小公倍数。
公共教育学院 计算机教研室
清华大学VB经典教案第五节——循环结构程序设计
每循环一次，循环变量的值自动加一个
步长，然后判断循环变量的值是否“超 越”终值，如果“超越”，则结束循环，
否则进行下一次循环，用如图5-1所示
的流程图表示。
说明： （1）循环变量、初值、终值、步长都是数值类型； （2）步长可正可负，但不能为0，否则，循环将变成死循环或 无限循环；步长为1时，[Step <步长>]可以省略； （3）当初值小于终值时，步长为正；当初值大于终值时，步 长为负； 通过初值、终值、步长可以计算循环体的循环次数，计算公 式如下： 循环次数=Int((终值-初值)/步长)+1 注意：如果循环次数≤0，即当初值小于终值时，步长为负 ，或者当初值大于终值时，步长为正，则循环体一次都不执行。 （4）Exit For可以退出其所在层的For…Next循环，这一点在 多重循环中尤为重要。
分析：假设某个三位的正整数为n， 要判断n是否是“水仙花数”，关键是 要求出n的百位数字a、十位数字b和个 位数字c，即 百位数字a = n \ 100 十位数字b = n \ 10 Mod 10 个位数字c = n Mod 10
5.2 While…Wend循环 While…Wend循环用于循环次数未知的循环，其语法格式 如下： While <条件表达式> [<语句组>] Wend 当条件表达式的值为True时执行循环体，为False时结束 循环，用如图5-5所示的流程图表示。
入项；组合框是由文本框和列表框组合而成，因此，组合框 具有文本框和列表框的功能，既可以输入项也可以选择项，
但任意时刻最多只能选择一个项，选中的项将显示在组合框
中。
5.5.1 列表框 1．列表框的常用属性 （1）List属性 存放列表框中的所有项，是一个一维字符串数组，数组 名为List，下标为项的索引值，从上到下，第一个项的索引值 为0，第二个项的索引值为1，以此类推。 （2）ListCount属性 返回列表框中项的个数。 （3）ListIndex属性 返回当前选中项的索引值。若有多个项被选中，则返回 最后一个选中项的索引值；也可以给该属性赋一个整数值来选 中对应索引值的项；如果没有选中任何项，ListIndex属性值 为-1。 （4）Selected属性 判断列表框中的某个项是否被选中，选中为True，否则 为False。该属性是一个一维布尔或逻辑型数组，数组名为 Selected，下标为项的索引值。
教案(VB_FOR)
FOR---NEXT循环语句教案主讲: 常庆红教案【导入新课】编写一个程序：打印5行竖排的“*”。
如果是打印10行，100行甚至更多，那应该怎样实现？在窗体上输出1到10这十个数字。
如果是输出到100甚至更多，那应该怎样实现？在以上两个例子中,可以看到如果完成这个任务,有很多重复的语句,如何来减化这个程序并达到相同的效果呢?这就要用到一个新的知识,循环结构。
今天，这节课上我们讲解循环结构其中的For-Next循环结构语句。
【新课讲解】循环结构与循环结构语句1、For-Next循环结构语句（1）一般形式：For 循环变量=初值to 终值Step 步长值循环语句组Next 循环变量［格式说明］①For与Next必须成对出现，Next必须位于For语句之后。
②循环变量必须是数值型，且最好为整型变量。
③当步长值=1时，［Step 步长值］部分可以省略④Next后面的循环变量可以省略，For、Next后面的循环变量是同一个。
⑤For循环分递增循环和递减循环两种。
递增循环：当初值小于等于终值，步长值>0。
递减循环：当初值大于终值，步长值<0。
［格式举例］ 例For I= 1 To 5Print “*” Next I（2今天先讲For 循环的递增过程，流程图如下：具体执行过程描述如下： ①将初值赋值给循环变量②判断循环变量的值是否小于等于终值若为真（True ），则执行循环语句，而后转到③执行若为假（False ），则转到④执行I 为变量1是初值，5是终值语句组③将变量的值加上步长值，而后返回②执行 ④循环结束，顺序执行Next 后面的语句 ［程序举例］For/next 循环语句1、请同学们阅读下面程序，写出结果并上机验证，画出流程图，说明程序功能。
for i=1 to 3 step 1print i next i end执行执行停止执行<3=3>3234123123执行下一次循环否？i 与终值比较执行NEXT 之后i 的值循环开始时i的值第几次循环I =1Prnit iI=I+1I >= 3N Y[程序执行过程分析]For/next 循环语句1）如果把程序中的step 1改成step -1,应该如何修改程序。
vb控制结构-循环结构程序设计
6.3 Do...Loop循环结构
F
语句块 Exit Do 语句块
: 列表 后测型 1
Do T 语句块 块 [Exit Do] 语句块 Loop Until <条件> Do
块
F
条件
T
Do „ Loop Until 的执行过程
While„Loop
6.3 Do...Loop循环结构
例:使用级数求π的值。 根据下式，计算圆周率π的近似值，当计算到绝对值小于 0.0001的通项时，认为满足精度要求，停止计算。
6.2 For...Next循环结构
For循环语句 (一般用于循环次数已知) 形式： For 循环变量＝初值 to 终值 [Step 步长] 语句块
循环变量在终值内
循环变量得初值
F T
[Exit For]
语句块 Next [循环变量]
循环体
语句块
Exit For
语句块
步长
>=0 循环变量<=终值 <0 循环变量>=终值 =1 可省略
下列几种：
l For…Next语句 l Do…Loop语句 l While…Wend语句 Do While<条件> …Loop形式 Do …Loop While <条件>形式 Do Until <条件> …Loop形式 Do …Loop Until <条件>形式 Do …Loop形式
打印九九乘法表 Dim Sgs As String Dim i, j As Integer For i = 1 To 9 ’被乘数从1变到9 For j = i To 9 ’乘数从1变到9 Sgs = i & "×" & j & "=" & Str(i * j) ’打印公式如1×1=1 Picture1.Print Tab((j - 1) * 9 + 1); Sgs; Next j Picture1.Print Next I
VB for循环
（1）、For 后的"变量"与 Next 后的"变量"为同一个，"变量"应该是数值类型的。
（2）、Start 代表的是循环的初始值，End 代表的是循环的终值。假设从 1 到 100 进行循环，那么，循环初值是 1 ，终值是 100 ；假设从 1 到 50 进行循环，那么初值是 1 ，终值是 50 。
VB for 循环 5
在编制本节程序前，我们有必要对 For ··· Next ···循环结构语句做个了解。
一、For 循环语句：
在实际生活中，我们经常会遇到一些操作并不复杂，但需要重复多次处理的情况，如人口统计、银行利率的计算等，为此，Visual Basic 提供了循环语句来专门解决此类情况。
Private Sub CmdStart_Click()
x = 0
For y = 1 To 100
x = x + y
Next y
LblShow.Caption = "最后的结果是：" & x
End Sub
说明：
（1）、1 到 100 中所有整数的和可以这样来看：1＋2＋3＋······＋100 ，即 100 次相加，那么这重复的 100 次相加可以通过 For 循环来完成。
（4）、经过第一百次循环，程序执行 Next y 后的语句，即将最后结果用标签显示出来。
3、示例二：
计算 1 到 100 间所有奇数的和。
只需将上例中的"开始"按钮的循环程序加上步长值即可。代码如下：
Private Sub CmdStart_Click()
x = 0
For y = 1 To 100 Step 2
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
循环次数=INT（终值-初值）/步长+1
【操作实践】（设计用时：3分钟）
由学生阅读（调试、运行）下列程序，指出循环结束时变量a的值、程序循环的次数、运行的结果。
实践1
For a = 1 To 100
s = s + a
Next a
Print "s="; s
Print "a="; a
Print I
Next j
5) For I=5 To 1
Print I
Next I
【深入理解】（设计用时：4分钟）
1、师生共同分析For循环语句的执行过程；
2、关于FOR循环语句的几点说明：
①对于循环变量的值超过终值的理解：
初值<终值，步长为正，循环变量的值>终值时停止循环
初值>终值，步长为负，循环变量的值<终值时停止循环
【学生练习】（设计用时：20分钟）
题目：设计一程序，计算1*2+2*3+3*4+4*5+……+N*（N+1）的和（N<=60）。程序界面如下：
评讲：（程序代码）
Private Sub Command1_Click（）
Dim N 1.text
S=0
[设计意图：以课后探究的形式将本节所学知识进行应用，抓住要害，人人参与，优化知识结构，培养认知能力。]
[教学反思：]
问题1：如何最快最简洁的在程序里实现偶数的算术平方根？
问题2：For循环中如何控制取数的范围？
教师提示
学生归纳
学生小组讨论
师生共同讨论
学生上机实践，教师巡视
学生上机练习，教师巡视指点
学生课后总结反思
2、分析循环程序时要注意重复处理的操作（循环体）和循环次数（循环结束的条件）。
[设计意图：遗忘的规律是先快后慢，回顾再现是记忆的重要途径，在课堂内及时总结识记主要内容是上策。]
【课后探究】（设计用时：1分钟）
1、相互讨论：数学中哪些问题可以使用循环语句来解决？
2、用循环语句法求两个整数的最大公约数、最小公倍数，并尝试用编程实现。
实践2
For a = 100 To 1 Step－1
s = s + a
Next a
Print "s="; s
Print "a="; a
[设计意图：学生分组讨论教师设计的“陷阱”，然后师生共同分析For循环语句的执行情况,根据执行情况学生随即进行操作实践，通过教师为主导、学生为主体的这一系列操作，帮助学生深入理解知识、完善知识结构，提升认知水平。通过小组讨论，实现生生互动，师生互助，丰富情感体验，活跃课堂气氛。]
【分组讨论】（设计用时：5分钟）
通过“陷阱”，深化理解语句格式：
阅读下列程序，指出错误
打印1~5这5个数
1) For I=1 To 5 Step－1
Print I
Next I
2) For I=1 To 5
Print〝I〞
Next I
3) For I=1 To 5
Print I
4) For I=1 To 5
Print Sqr（6）
……
Print Sqr（100）
End Sub
循环结构编程：
Private Sub Command_Click( )
For I=2 To 100 Step 2
Print Sqr (I)
Next I
End Sub
[设计意图：通过例题讨论引入，既让学生回顾了上节课所学，又为本节课的展开奠定基础。]
2、循环语句的格式及使用
【讨论引入】（设计用时：4分钟）
分组讨论并回答下列问题：
例题：输出100以内的所有偶数的算术平方根。先让学生思考用顺序结构编写程序的可能性，再让学生用FOR循环结构来编写程序。
顺序结构编程：
Private Sub Command_Click( )
Print Sqr（2）
Print Sqr（4）
课题
VB程序的循环结构For-Next语句
课型
课时
第2课时
学习
目标
1.掌握FOR循环语句的格式。
2.理解FOR语句的执行过程。
3.学会使用FOR循环语句来实现循环控制结构，解决实际问题。
4.进一步掌握程序调试运行的方法。
教学过程与内容
师生活动
【知识回顾】（计划用时：2分钟）
分组讨论并回答下列问题：
1、程序中有哪三种基本结构？
For i= 1 to N
S=s+i*（i+1）
Next i
Text2.Text= S
End Sub
[设计意图：学生通过教师设计的练习，巩固和加深了学生对For-Next循环语句的理解，引导学生由浅入深地进行思维，体现了学生是学习主体的理念。]
【本课小结】（设计用时：1分钟）
1、FOR语句的格式包括三个部分：FOR语句、NEXT语句和循环体，注意事项要记清楚；
【学生归纳】（设计用时：5分钟）
FOR循环语句的注意事项：
1、For- Next语句成对出现，循环变量名保持一致；
2、循环变量是数值型变量
3、步长值可正可负，当步长值为1时，Step及步长值可以省略；
4、初值、终值和步长值既可以是常量，也可以是变量和表达式；
[设计意图：通过学生自主归纳及教师的说明，帮助学生深入理解知识、完善知识结构，提升认知水平。]