VB程序设计(第2版)教学课件4-9-循环结构

1、VB程序设计循环结构问题引入 你有过等交通信号灯的经历吗？每隔一定的时间，红、黄、绿就变换一次，这就是？列表框 WhileWend语句1 Do whileLoop语句2 ForNext语句3循环结构循环结构概述0 当重复进行某件事时，就可用循环结构。 在循环结构中将某些语句重复执行若干次，这些语句称为循环体；每重复一次都要判断是继续重复还是停止重复，这个判断所依据的条件称为循环条件；循环体与循环条件一起构成了循环结构。WhileWend语句1【格式】While Wend表达式真？循环体语句真(非0)假(0)WhileWend语句1 当“表达式”成立（为True）时，反复执行循环体语句，当“表达

2、式”不成立（为False），则执行Wend语句后面的语句 。【功能】“表达式”指的是什么？WhileWend语句1可以是： 任何表达式常用的有：关系表达式、逻辑表达式 While x=65 WendWhile x0 And x6 WendWhileWend语句1【应用】利用循环结构：计算1+2+3+.+99+100=?Private Sub Command1_Click() Dim s As Integer, i As Integer s = 0 While i = 100 s = s + i i = i + 1 Wend Print sEnd Sub规划：“i=100”成立时进行循环。i 就

3、是循环控制变量。Do WhileLoop语句2【格式】Do While Loop 当“表达式”成立（为True）时，反复执行循环体语句，当“表达式”不成立（为False），则执行Loop语句后面的语句 。Do WhileLoop语句2【应用】输出1-50之间可以被7整除的数。规划：“i=50”成立时进行循环。被7整除：i mod 7=0Private Sub Command1_Click() Dim i As Integer i = 1 Do While i = 50 If i Mod 7 = 0 Then Print i End If i = i + 1 LoopEnd SubForNext

4、语句3【格式】For = To Step Next Step省略，则表示步长为1。ForNext语句3 循环变量是一个数值型的变量，而初值、终值、步长可是数值型的值或表达式。 在默认省略状态下，step为1。当“步长=0”，“终值=初值”时，递增循环。当“步长0”，“终值=初值”时，递减循环。 【说明】ForNext语句3【应用】利用ForNext语句 计算n!Private Sub Command1_Click() n = Val(Text1.Text) k = 1 For i = 1 To n k = k * i Next i Text2.Text = kEnd SubForNext语句3循环部分也可以写成如下形式： For i = n To 1 step -1 k = k * i Next iForNext语句3【应用】输出9*9表。Private Sub Command1_Click() For num = 1 To 9 For i = 1 To num Print i; *; num; =; num * i; Next i Print Next numEnd Sub循环应用 小明有10本书，你来设计一个小程序，找出书