VB课件第4章循环结构.ppt

采用循环程序可以解决一些按一定规则重复执行的问 题。例如，统计一个班几十名学生，甚至全校几千名学生 的学期成绩，如求平均分、不及格人数等。 本章主要内容 循环语句 For.Next / Do.Loop / While.Wend 循环出口语句(Exit) 多重循环 程序举例 4.3 循环结构设计 循环是指在指定的条件下多次重复执行一 组语句。被重复执行的一组语句称为循环体。 VB提供的循环语句有: For.Next Do.Loop While/Until Do While/Until . Loop While.Wend 最常用的是For.Next和Do.Loop语句 按指定次数执行循环体 4.3.1 For.Next循环 循环变量超过终值？ F T 循环变量增加步长循环体 循环变量获得初值 格式： For 循环变量初值 To 终值 Step 步长值 循环体 Next 循环变量 功能：当循环变量的值在初值到终值范围内时，执 行一次循环体的语句代码，并使初值增加一个步长 。当循环变量的值不在初值到终值范围内时，就退 出循环，执行Next后面的语句。 说明：循环变量是一个数值变量，初值、终值和步 长值都是数值表达式，步长值可以是正数(称为递增 循环)，也可以是负数(称为递减循环)；若步长值为1 ，则Step 1可以省略。 说明: G循环次数的一般计算公式： Int(终值-初值)/步长)+1 G事先已知循环次数，则可使用For-Next 循环结构语句计数循环 Private Sub Form_Load() Show Dim sum As Integer 计算1至100的和，存放在sum中 显示结果 Print “sum=“; sum End Sub sum = sum + 1 sum = sum + 2 sum = sum + 100 sum = sum + i i = 1 100i = 1 100 采用Print直接在窗体上输出结果 Private Sub Form_Load() Show Dim sum As Integer Dim i As Integer For i = 1 To 100 sum = sum + i Next i Print “sum=“; sum End Sub Yes No sum = sum + i i = 1 i = 30 Print Number ；s End Sub A) 0 1 B) 30 30 C) 4 30 D) 3 182 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click（） b=1 a=2 Do While b 0 Text3.Text = m End Sub 若输入的m和n的值为85和68，则运行结果如上图 用于提前退出循环 格式： Exit For | Do 功能：直接从For循环或Do循环中退出。 当程序运行时遇到Exit语句时，就不再执行循 环体中的任何语句而直接退出，转到循环语句 (Next、Loop)的下面继续执行。 4.3.3 循环出口语句 示例5的循环语句可改为: Do p = m Mod n If p=0 Then Exit Do End If m = n n = p Loop While p 0 Text3.Text =m n 格式: While 条件 循环体 Wend 功能：当条件成立(为真)时，执行循环体；当条 件不成立(为假)时，终止循环。 本语句与上述Do While.Loop循环语句相似 4.3.4 While.Wend循环语句 用下面的公式求的近似值（直到最后一项的绝对值小于10 -6为止）： 分析 先计算等式右边的和 累加求和： pi = pi + t 当| t |= 0.000001 pi = pi + t n = n+2 s = - s 交替改变加、减号 t = s / n Loop Print “=“; pi * 4 End Sub 程序运行结果是： 3.141575 示例7：求的近似值 思考： Private Sub Form_Click() For I=7 to 90 step 5 print I next I End Sub 上述程序共执行执行循环体的次数是（） A) 14 B) 15 C) 16 D) 17 运行下列程序，单击窗体，则执行结果是（ ） Private Sub Form_Click( ) For j = 1 To 15 a = a + j Mod 3 Next j Print a End Sub A) 1 B) 15 C) 90 D) 120 运行下列程序，单击窗体，则执行结果是（ ） Private Sub Form_Click( ) For j = 1 To 3 Print Tab(3 * j);(2 * j - 1) * (2 * j - 1) Next j Print End Sub A) 1 B) 1 6 10 C) 1 9 25 D)1 6 9 10 25 运行下列程序，单击窗体，则执行结果是 Private Sub Form_Click（） s = 0 i = 1 Do While i =3) Private Sub Form_Click() Dim x As Integer, a As Integer, c As Integer Dim count As Integer count = 0 For x = 100 To 999 a = x 100 : b = x 10 Mod 10 : c = x Mod 10 If a c And b = 10 Then Print i; “*“; j; “=“; i *