visual basic (vb)第5章_2(循环语句)解析
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Rnd), Int(256 * Rnd))
Int(256 *
Print "Hello" Next i End Sub
Visual Basic 程序设计
3 While循环语句
While循环又称“当” 型循环，它是通过“循环 条件”控制重复执行一组 语句。 While <循环条件> <循环体> Wend
2 For…Next 循环语句
Visual Basic 程序设计
For…Next 循环语句的执行过程 循环变量赋初值
循环变量未超过终值?
True False
循环体
循环变量加上一个步长
Visual Basic 程序设计
2 For…Next 循环语句 功能：
当循环变量的值在初值到终值范围内时,执行一次循环 体中的语句块,并使初值增加一个步长。 当循环变量的值不在初值到终值范围内时,就退出循环, 执行Next后面的语句。
Visual Basic 程序设计
4 Do…Loop 循环语句
四种形式的Do…Loop 语句的比较：
■ 四种循环结构都是以Do语句开始，而以Loop语句结束。
■ 若循环控制条件跟在Do语句后，则要先判断条件，再执 行循环体，因此是一种当型循环；若循环控制条件跟在Loop语 句后，则是先执行循环体，再判断条件 ■ 若条件语句使用While，则当条件为真时，执行循环体， 条件为假时，退出循环；若条件语句使用Until，则当条件为 假时，执行循环体，条件为真时，则退出循环。 例题2：分别使用四种形式的Do…Loop语句，计算： S=1+2+3+……100 的值。
如果要编写一个程序，在窗体上输出6行 “ ********** ”，如下图所示：
Visual Basic 程序设计
1 为什么要使用循环结构？
该程序最直觉的编写方法如下：
Private Sub Form_Click() Print "**********" Print "**********" Print "**********" Print "**********" Print "**********" Print "**********" End Sub
Visual Basic 程序设计
第5章 程序控制结构二
循环结构
Visual Basic 程序设计
主要内容
1. 为什么要使用循环结构？
2. For…Next 循环语句
3. While循环
4. Do…Loop 循环
5. 循环嵌套 6. 循环语句使用举例
Visual Basic 程序设计
1.为什么要使用循环结构？
④注意：
（1）For循环语句是先判断后执行。 （2）当退出循环后，循环变量的值保持退出时的值。 （3）在循环体内可多次引用循环控制变量，但最好不要给 它赋值，否则会影响原来的循环控制规律。
Visual Basic 程序设计
例题1 计算S=1+2+3+……+100 Private Dim S = For Sub Form_Click() S As Integer, I As Integer 0 I = 1 To 100 S = S + I Next I Print "1+2+3+……+100=", S End Sub
Visual Basic 程序设计
1 为什么要使用循环结构？ 使用循环结构，上述程序可以修改为： Private Sub Form_Click() For I = 1 To 6 Print "**********" Next I End Sub 与前面的程序相比，循环结构使得程序更加 清晰，功能更加强大，修改也更加方便。
Visual Basic 程序设计
1 为什么要使用循环结构？ 但上述程序结构让人觉得烦琐，尤其是当 需要100行或1000 行 “ ********** ”的话，源 程序将变得很长。所以，在程序设计中，我们 需要使用循环结构，来进行一系列重复的动作。
在VB中，当需要对某一段程序反复执行多 次，且反复执行的次数是可以预知的或可以用 某种条件控制的，就可以使用循环结构。
Visual Basic 程序设计
1 为什么要使用循环结构？
在VB中，通常可以使用如下循环语句：
■ For…Next 语句：适合处理循环次数预知 的循环问题。 ■ While...Wend语句 、Do…Loop 语句： 适合处理用循环条件控制的循环问题。
Visual Basic 程序设计
2 For…Next 循环语句
For…Next 循环语句适合处理循环次数已知的循环结构。
For…Next循环语句的格式：
For <循环控制变量>=<初值> TO <终值> [Step <步长>] <循环体> [Exit For] Next <循环控制变量>
For I = 1 To 6 Print "**********" Next I
Visual Basic 程序设计
例题2-1 用Do语句计算1+…+100
Private Sub Form_Click() Dim S As IntΒιβλιοθήκη Baiduger, I As Integer S = 0 I = 0 Do While I <= 100 S = S + I I = I + 1 Loop Print "1+2+3+……+100=", S End Sub
例题2：使用while语句，计算：S=1+2+3+……100 的值。
Visual Basic 程序设计
4 Do…Loop 循环语句
Do…Loop 循环语句的四种形式 Do While <条件> <循环体> [Exit Do] Loop Do Until <条件> <循环体> [Exit Do] Loop Do <循环体> [Exit Do] Loop While <条件> Do <循环体> [Exit Do] Loop Until <条件>
■问题3：根据例题1，自己编写程序计算20！，与 计算累加和相比，计算阶乘时应注意什么问题？
Visual Basic 程序设计
例题2：七彩字 Private Sub Form_click() Dim i% Randomize For i = 1 To 1000 Form1.CurrentX = 500 + i Form1.CurrentY = 500 + i ForeColor = RGB(Int(256 * Rnd),
Int(256 *
Print "Hello" Next i End Sub
Visual Basic 程序设计
3 While循环语句
While循环又称“当” 型循环，它是通过“循环 条件”控制重复执行一组 语句。 While <循环条件> <循环体> Wend
2 For…Next 循环语句
Visual Basic 程序设计
For…Next 循环语句的执行过程 循环变量赋初值
循环变量未超过终值?
True False
循环体
循环变量加上一个步长
Visual Basic 程序设计
2 For…Next 循环语句 功能：
当循环变量的值在初值到终值范围内时,执行一次循环 体中的语句块,并使初值增加一个步长。 当循环变量的值不在初值到终值范围内时,就退出循环, 执行Next后面的语句。
Visual Basic 程序设计
4 Do…Loop 循环语句
四种形式的Do…Loop 语句的比较：
■ 四种循环结构都是以Do语句开始，而以Loop语句结束。
■ 若循环控制条件跟在Do语句后，则要先判断条件，再执 行循环体，因此是一种当型循环；若循环控制条件跟在Loop语 句后，则是先执行循环体，再判断条件 ■ 若条件语句使用While，则当条件为真时，执行循环体， 条件为假时，退出循环；若条件语句使用Until，则当条件为 假时，执行循环体，条件为真时，则退出循环。 例题2：分别使用四种形式的Do…Loop语句，计算： S=1+2+3+……100 的值。
如果要编写一个程序，在窗体上输出6行 “ ********** ”，如下图所示：
Visual Basic 程序设计
1 为什么要使用循环结构？
该程序最直觉的编写方法如下：
Private Sub Form_Click() Print "**********" Print "**********" Print "**********" Print "**********" Print "**********" Print "**********" End Sub
Visual Basic 程序设计
第5章 程序控制结构二
循环结构
Visual Basic 程序设计
主要内容
1. 为什么要使用循环结构？
2. For…Next 循环语句
3. While循环
4. Do…Loop 循环
5. 循环嵌套 6. 循环语句使用举例
Visual Basic 程序设计
1.为什么要使用循环结构？
④注意：
（1）For循环语句是先判断后执行。 （2）当退出循环后，循环变量的值保持退出时的值。 （3）在循环体内可多次引用循环控制变量，但最好不要给 它赋值，否则会影响原来的循环控制规律。
Visual Basic 程序设计
例题1 计算S=1+2+3+……+100 Private Dim S = For Sub Form_Click() S As Integer, I As Integer 0 I = 1 To 100 S = S + I Next I Print "1+2+3+……+100=", S End Sub
Visual Basic 程序设计
1 为什么要使用循环结构？ 使用循环结构，上述程序可以修改为： Private Sub Form_Click() For I = 1 To 6 Print "**********" Next I End Sub 与前面的程序相比，循环结构使得程序更加 清晰，功能更加强大，修改也更加方便。
Visual Basic 程序设计
1 为什么要使用循环结构？ 但上述程序结构让人觉得烦琐，尤其是当 需要100行或1000 行 “ ********** ”的话，源 程序将变得很长。所以，在程序设计中，我们 需要使用循环结构，来进行一系列重复的动作。
在VB中，当需要对某一段程序反复执行多 次，且反复执行的次数是可以预知的或可以用 某种条件控制的，就可以使用循环结构。
Visual Basic 程序设计
1 为什么要使用循环结构？
在VB中，通常可以使用如下循环语句：
■ For…Next 语句：适合处理循环次数预知 的循环问题。 ■ While...Wend语句 、Do…Loop 语句： 适合处理用循环条件控制的循环问题。
Visual Basic 程序设计
2 For…Next 循环语句
For…Next 循环语句适合处理循环次数已知的循环结构。
For…Next循环语句的格式：
For <循环控制变量>=<初值> TO <终值> [Step <步长>] <循环体> [Exit For] Next <循环控制变量>
For I = 1 To 6 Print "**********" Next I
Visual Basic 程序设计
例题2-1 用Do语句计算1+…+100
Private Sub Form_Click() Dim S As IntΒιβλιοθήκη Baiduger, I As Integer S = 0 I = 0 Do While I <= 100 S = S + I I = I + 1 Loop Print "1+2+3+……+100=", S End Sub
例题2：使用while语句，计算：S=1+2+3+……100 的值。
Visual Basic 程序设计
4 Do…Loop 循环语句
Do…Loop 循环语句的四种形式 Do While <条件> <循环体> [Exit Do] Loop Do Until <条件> <循环体> [Exit Do] Loop Do <循环体> [Exit Do] Loop While <条件> Do <循环体> [Exit Do] Loop Until <条件>
■问题3：根据例题1，自己编写程序计算20！，与 计算累加和相比，计算阶乘时应注意什么问题？
Visual Basic 程序设计
例题2：七彩字 Private Sub Form_click() Dim i% Randomize For i = 1 To 1000 Form1.CurrentX = 500 + i Form1.CurrentY = 500 + i ForeColor = RGB(Int(256 * Rnd),