VB(2.7)棋盘上的麦粒数描述.pptVIP

汝南县职业教育中心 汝南县职业教育中心 汝南县职业教育中心 Visual Basic 6.0程序设计 第2章 Visual Basic编程语言 ————任务7 棋盘上的麦粒数 *／9 第5章目录 任务7 棋盘上的麦粒数 【知识回顾】 例：评定成绩等级 90~100：“优” 80~89：“良” 70~79：“中” 60~69：“及格” 60分以下为“不及格” *／9 第5章目录 任务7 棋盘上的麦粒数 【知识点】 For循环 While循环 *／9 第5章目录 用输入框输入10个数字，并用Print方法输出 A = Val(InputBox(输入第1个数)) B = Val(InputBox(输入第2个数)) C = Val(InputBox(输入第3个数)) D = Val(InputBox(输入第4个数)) E = Val(InputBox(输入第5个数)) …… Print A Print B Print C Print D Print E …… For I=1 To 5 A = Val(InputBox(输入10个数)) Print A Next I *／9 第5章目录 一般循环结构流程图 (1)进入循环条件是什么？ (2)循环体的算法是什么？ (3)结束循环条件是什么？ 本节讨论VB的两种循环语句： 计数循环语句 For-Next 条件循环语句 While-Wend *／9 任务7 棋盘上的麦粒数 1、For循环：(一般用于循环次数已知) 按确定的次数执行循环体。 语法格式为： 第5章目录 For 循环变量=初值 To 终值 [Step 步长] [循环体] [Exit For] Next [循环变量] *／9 任务7 棋盘上的麦粒数 第5章目录 t =0 For I = 2 To 10 Step 2 t=t + I Print t Next I I: 循环变量 2: 初值 10: 终值 2: 步长 循环体 I=I+2 T F I 10 ? 结束 循环变量I的取值分别为: 2,4,6,8,10 完成 t=2,6,12,20,30 的计算 *／9 任务7 棋盘上的麦粒数 第5章目录 循环变量必须为数值型。 循环次数 步长 Exit For: 强制退出循环 0 初值终值 ( Step 1 可省略) 0 初值终值 =0 死循环 For I=1 to 100 S=S+I Next I For I=100 to 1 Step -1 S=S+I Next I *／9 任务7 棋盘上的麦粒数 第5章目录 Private Sub Form_click() Dim s As Single, i As Integer n = Val(InputBox(请输入n, 提示)) s = 0 For i = 1 To n Step 1 s = s + I Next i Print 1到; n; 之和为：; s End Sub *／9 第5章目录 For-Next的流程图—阅读 N x = 初值 x 终值 ? 循环体 x = x + 步长 Y 开始 结束 N x = 初值 x 终值 ? 循环体 x = x +步长 Y 开始 结束 当步长＞0时 当步长0时 For X=1 To 10 Step 2 … Next X For X=10 To 2 Step -2 … Next X *／9 第5章目录 For-Next : 必须成对出现，缺一不可。 (配对原则) 可以嵌套使用，但内、外循环的变量不能同名，不能交叉 正确的循环嵌套 For I=1 To 9 ????? For J=1 To 9 ??????????? Print I,J? ????? Next J? Next I 错误的循环嵌套 For I=1 To 9 ??????? For J=1 To 9 ??????????????? Print I,J??? Next I ?????? Next J 循环的嵌套 *／9 任务7 棋盘上的麦粒数 第5章目录 Mcs=5 For I=1 To Mcs Mcs=Mcs+1 print I，Mcs Next I 当循环终值是一个变量时，在循环第一次运行时取走变量中的值后，此变量中的值就不再影响循环。 在循环体内,循环变量可多次引用；但建议不要对其赋值，否则将会导致死循环。 表示: I=1 To 5 若增: I= I-