VB第三章第三节3循环结构.ppt

第3章 VB.NET面向对象程序设计——第3节3 循环结构语句 例：求1～100的和。 根据已有的知识，可以用“1+2+……+100”来求解，但显然很繁琐。现在换个思路来考虑： 1、首先设置一个累加器sum，其初值为0； 2、利用 sum = sum+n 来计算（n依次取1、2、…、100），只要解决以下3个问题即可： （1）将n的初值置为1； （2）每执行1次 sum = sum+n 后，n 增加1 n=n+1 ； （3）当n增到101时，停止计算。此时，sum的值就是1～100的累计和。 根据已有的知识，单独实现每一步都不难。由于需要经常使用这种重复计算结构（循环结构），VB语言提供了2类循环语句来实现，以简化、并规范循环结构程序设计。 3.3.3 循环结构语句 一、计数循环控制语句（For Next语句） 语句功能：按指定的次数重复执行某组语句。 语句格式： For 循环变量 = 初值 To 终值 [Step 步长值] 语句块 [Exit For] 语句块 Next [循环变量] 流程图： 说明： （1）循环变量必须是数值型变量。 （2）初值、终值、步长值可以是表达式。它们的类型必须与循环变量的类型相同。 （3）步长值可以是正数（初值应当小于终值）或负数（初值应当大于终值）。缺省值为1。 （4）Exit For：退出循环，执行Next语句的后继语句。 （5）For与Next中间的语句块称为循环体，可以是多个语句。 例如： For I=1 To 10 Step 1 TextBox1.Text = TextBox1.Text I Next I 该程序段执行10次循环，在文本框内输出结果为： 1 2 3 4 5 6 7 8 9 10 例：求1～100的累计和 For i=1 To 100 sum=sum+i Next i 计算机执行For语句的过程： 1)将初值赋予循环变量。 2)判断循环变量的值是否小于等于循环终值（步长值为正），如果条件满足，则执行循环体内的语句，循环变量增加步长值；否则循环结束，执行Next语句的后继语句。 【例3—17】计算并输出下列调和级数前10项之和： Dim I As Integer, S As Single S = 0 For I = 1 To 10 S = S + 1 / I Next I MessageBox.Show(S= S) 【例3—18】学生成绩统计。用For-Next语句实现例3—16要求的功能。 smax = -1: smin = 101 For num = 1 To 30 ch = 请输入第 num 个学生的成绩 s = InputBox(ch) 输入学生成绩 sum = sum + s 学生成绩累加 保留最高分及对应学号 If s smax Then smax = s: nummax = num 保留最低分及对应学号 If s smin Then smin = s: nummin = num Next num 【例3—19】 输入一个正整数n，判断其是否为素数，若是素数，输出“是素数”；否则输出“不是素数”。 Dim N As Integer, I As Integer N = InputBox(请输入一个整数：, 例题) For I = 2 To N - 1 If N Mod I = 0 Then MessageBox.Show(N 不是素数”) GoTo 10 End If Next I MessageBox.Show(N 是素数”) 10: 错误使用Goto语句的例子： For i = 1 To 10 10: MessageBox.Show(循环体) Next i GoTo 10 错误：从循环外转到循环内 在使用循环语句时，还应注意：在循环体内不能改变循环变量的初值、终值、步长值。例如： a = 2: b = 6: c = 2 For i = a To b Step c a = 3: b = 10: c = 1 TextBox1.Text = TextBox1.Text i Next i 程序执行结