vb控制结构-循环结构程序设计PPT课件

语句块 [Exit For]
循环体
T
语句块
语句块 Next [循环变量]
E xit F or
语句块
>=0 循环变量<=终值 步长 <0 循环变量>=终值
=1 可省略
循环变量加步长
图 1-3-13 For 循 环 语 句
6.2 For...Next循环结构
循环次数 In(终 t步 值 初 长值 1)
i=i+1 i2 = i2 + 1 i3 = i3 + 1 Next Print i, i2 (11 6)
(6)
i2 = 0
For i = 1 To 10
i2 = i2 + 1
If i > 6 Then Exit For
Next Print i, i2
(7 7)
(7)
i2 = 0
i = 10
Do
i2 = i2 + 1
例: For I=2 To 13 Step 3 Print I ,
Next I Print “I=“, I
循环执行次数 4 输出I的值分别为:
2 5 8 11 出了循环输出为: I=14
6.2 For...Next循环结构
注意跳出FOR循环时的循环变量的值
For i= 1 to 10 step 1 s=s+i
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
Next i Print i
For i= -1 to -10 step -1 s=s+i
Next i Print i
6.2 For...Next循环结构
注意对于For…Next语句来说，一旦进入循环，其“终止值” 和“增量”便不会再改变了。
Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer j = 10: k = 1 For i = 1 To j Step k
Loop While i = i2
Print i2
(1)
6.2 For...Next循环结构
例6.7 编程计算：S=1+2+3+…+100
Dim S%, I%
S=0
' 累加前变量S为0
For I=1 to 100
S=S+I
Next I
Print " S=",S
S=0,I=1 当I<=100
S=S+I I=I+1 打印S
Loop
Leabharlann BaiduPrint a
' 计算完毕，变量a的值即为所求
End Sub
6.3 Do...Loop循环结构
列 表后1 测型F: Do
T 语句块
块
[Exit Do]
语句块
o Loop While <条件>
块
语句块
Exit D o 语句块
T
条件
F
W hile … Loop
D o … Loop W hile 的 执 行 过 程
第6章 VB控制结构（2）
——循环结构程序设计
本章内容及要求：
（1）掌握For…..Next语句及Exit For语句的使用； （2）掌握Do….Loop循环语句与Exit Do语句的使用； （3）掌握循环结构的嵌套应用； （4）掌握循环结构和选择结构的嵌套应用。
6.1 概述
在Visual Basic程序设计中， 实现循环结构的语句主要有 下列几种：
6.3 Do...Loop循环结构
例:使用Do …Loop While循环语句计算1+2+3+…+n的值,n的 值由文本框输入。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, a As Integer '定义所需变量
n = Text1.Text
(3)
i2=0
For i = 1 To 5 Step 2
i2 = i2+1
Next Print i
（7）
(4) i2 = 1 For i = 1 To 10
i=i+1 i2 = i2 + 1 Next Print i, i2 (11 6)
(5) i2 = 1 i3 = 10 i = 10 For i = 1 To i3
'得到输入的值
Do
i=i+1
' 每次循环，变量i都增加1
a=a+i
' 每次循环，变量a都加变量i的值
例6.7的算法流程图
6.3 Do...Loop循环结构
Do…Loop循环语句使用形式
条件
F
前测型: Do While <条件>
T
语句块
语句块
[Exit Do] 语句块 Loop
Exit D o 语句块
D o W hile … Loop 执 行 过 程
6.2 Do...Loop循环结构
例:使用Do While…Loop循环语句计算1+2+3+…+100的值
Private Sub Form_Click()
Dim i As Integer: Dim a As Integer '定义所需变量
i = 0: a = 0
' 给变量赋初值0,这两条语句可省略
Do While i < 100
i=i+1
' 每次循环，变量i都增加1
a=a+i
' 每次循环，变量a都加变量i的值
Print i j=j-1 k=k+1 Next Print j, k End Sub
练习：分析下面程序段结束时窗体上显示的值是多少？
(1) For i = 1 To 10
i2 = i2+1 Next Print i (11)
(2) i2=0 For i = 1 To -2 Step -1
i2 = i2+1 Next Print i , i2 （-3 4）
Picture1.Print Tab((j - 1) * 9 + 1); Sgs; Next j Picture1.Print Next I
6.2 For...Next循环结构
For循环语句 (一般用于循环次数已知)
循环变量得初值
形式：
F
For 循环变量＝初值 to 终值 [Step 步长]
循环变量在终值内