VB程序设计基础(循环结构)

第4 章第 四 章 VB 程 序 设 计 基 础

VB程序设计基础4.1 VB的程序语句 4.2 顺序结构 4.3 选择结构

4.4 循环结构4.5 其它控制语句 4.6 综合应用

4.4 循环结构第 四 章 VB 程 序 设 计 基 础 1.计数循环语句----循环次数固定； 2.条件型循环语句----循环次数不固定，由循环条 件决定。 计算机最擅长的功能之一就是按规定的条件， 重复执行某些操作。 VB中提供了两种类型的循环语句：

4.4 循环结构第 四 章 VB 程 序 设 计 基 础

VB中提供的循环语句： 1.循环次数固定：For循环语句 2.循环次数不固定的循环 (1)While循环语句 (2)Do … Loop循环语句：循环次数不固 定

4.4 循环结构第 四 章 VB 程 序 设 计 基 础

4.4.1 For循环语句4.4.2 While循环语句

4.4.3 Do…Loop循环语句4.4.4 循环嵌套

认识循环结构1第 问题：要求在窗体上10个* 四 章 Form1.Print "**********" 更好的写法是： 程 Form1.Print String(10,"*") 序 设 计 基 础 字符串函数 String(N , C)返回有由C中首字符组成的N个相同字符串 String (3 , “ABC”) = “AAA”

VB

认识循环结构1第 问题：在窗体上显示10行*(每行10个*) 四 直接用顺序结构实现： 章 Form1.Print String(10,"*") 程 序 设 计 基 础Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*")

VB

认识循环结构1第 问题：在窗体上显示10行*(每行10个*) 四 直接用顺序结构实现： 章 Form1.Print String(10,"*") 程 序 设 计 基 础Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*") Form1.Print String(10,"*")

VB

用循环结构实现：

Dim n as Integerfor n=1 to 10Form1.Print String(10,"*")

next n

前例循环结构分析：第 四 章 VB 程 序 设 计 基 础 用循环结构实现： Dim n as Integer 'n是循环控制变量for n=1 to 10 n的初值1,终值10,每循环1次增加1

Form1.Print String(10,"*")

'循环体语句

next n

'循环结束

For循环语句 一般格式For 循环变量=初值 To 终值 [Step 步长] 第 循环体语句块 四 Next 循环变量章 VB 程 序 设 计 基 础循环变量≤终值 F 循环变量=初值

例: Dim n as Integer for n=1 to 10 step 1 Print String(10,"*") next n

T 语句块

循环变量=循环变量+步长

Next 的下一语句

For循环语句使用注意事项第 四 章 VB 程 序 设 计 基 础 For 循环变量=初值 To 终值 [Step 步长] 循环体语句块 Next [循环变量] 注意：1. 循环变量必须为数值型。 2. Step 步长缺省为1. 例: Dim n as Integer for n=1 to 10 Print Str

ing(10,"*") next n

For循环语句的理解Dim n as Integer 'n是循环控制变量

第 四 章 VB 程 序 设 计 基 础

for n=1 to 10 step 1 Print String(10,"*") next n

'n的初值1,终值10 '循环体语句 '循环体结束

理解: 对于变量n=1,2,3...到不超过10,分别执行: Print String(10,"*") 循环体结束,产生下一个n( n=n+步长) 注意: (1)循环全部执行完后, 循环变量的值为超过终值的值 (如此处循环结束时n=11) (2) 如果循环变量的初值一开始就超过终值, 则一次也 不执行循环体

说明：循环变量的作用有2个：第 四 章 VB 程 序 设 计 基 础

之一: 控制循环次数，如前例 之二: 不仅用于控制循环次数，而且在循环体 中使用，即参与运算，这种情况更多见。

循环变量的作用之二: 在循环体中使用第 四 章 VB 程 序 设 计 基 础例：如下程序会输出什么？ for n=1 to 10 step 1 Print n; String(10,"*") next n

例： For n = 1 To 10 Step 1 Print n; String(n, "*") Next n不仅用于控制循环次数，还在循环体中使用

For循环举例第 四 章 VB 程 序 设 计 基 础

问题： 求：s=1+2+3+4+5+……+100 分析：用循环实现 1.求和结果存放在变量s中，s的初值应：s=0 2.循环控制变量用i表示，i从1,2,3,……100, 变化到100 3.求和的过程就是让变量i从1开始, 2,3...到100, 要循环(反复)执行: s=s+i

For循环举例第 四 章 VB 程 序 设 计 基 础

问题： 求：s=1+2+3+4+5+……+100Dim i%, s% 'i是循环控制变量，s结果变量 s=0 '初始值0,作为累加器 (清零) for i=1 to 100 step 1 s=s+i next i Form.Print "1到100累加和="; s

101

问题： 循环结束后,i的值是 多少?

For循环举例第 四 章 VB 程 序 设 计 基 础

问题： 求：s=1+2+3+4+5+……+100Dim i%, s% 'i是循环控制变量，s结果变量 s=0 '初始值0,作为累加器 (清零) for i=1 to 100 step 1 改成: s=s+i for i=100 to 1 step -1 next i s=s+i next i Form.Print "1到100累加和="; s