18for循环语句18fo循环语句r循环语句.ppt

* 第五讲 程序控制结构 教学目标： 　 掌握选择控制结构（If语句），循环控件语句（For语句，do while…Loop语句。 1、格式 For 循环变量=初值 To 终值 [Step 步长] [循环体] [Exit for] Next [循环变量][，[循环变量]…… 5.2 For循环控制结构 For x=1 to 100 step 1 sum=sum+x Next x 2、参量说明 （1）循环变量：又叫“循环控制变量”、“控制变量”或“循环计数器”；它是一个数值变量 （2）初、终值：都是一个数值表达式 （3）步长：数值表达式，可以为正也可为负，但不能为0；若步长为1则可略去不写 5.2 For循环控制结构 For x=1 to 100 step 1 sum=sum+x Next x 2、参量说明 （4）循环体：可以是一个或多个语句 （5）Exit for：退出循环 （6）Next：循环终端语句，其后的“变量”与For中“循变环量”必须相同。 （7）初值、终值、步长：不一定是整数，可以是实数，VB自动取整 5.2 For循环控制结构 For x=1 to 100 step 1 sum=sum+x Next x 开始 循环变量=初值 循环变量=终值? 执行循环体 循环变量=循环变量+步长 结束 YES NO For x=1 to 100 sum=sum+x Next x 5.2 For循环控件结构 3、执行过程 结束 开始 循环变量=初值 循环变量=终值 执行循环体 循环变量=循环变量+步长 NO YES For x=100 to 1 step -1 sum=sum+x Next x 5.2 For循环控制结构 3、执行过程 例5.2.1 在文件夹（例5.2.1）下有一个工程文件sjt3.vbp，其窗体上有一个标题为“得分”的框架，在框架中有一个名称为Text1的文本框数组，含六个元素；文本框Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并在文本框Text3中显示。 计算方法： 去掉1个最高得分和1个最底得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留第2位小数，不四舍五入。 * 例5.2.1- Command_Click事件 Private Sub Command1_Click() Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0).Text) s = a b = a For k = 1 To 5 s = s + Val(Text1(k).Text) If a Val(Text1(k).Text) Then a = Val(Text1(k).Text) End If If b Val(Text1(k).Text) Then b = Val(Text1(k).Text) End If Next k s = (s - a - b) / 4 s = s * 3 * Val(Text2.Text) Text3.Text = Int(s * 100) / 100 End Sub