【信息技术(选修)】VB循环结构之For...Next语句

By HBYZ.CS
来个简单点的
求出第Ｎ个格子内的 麦子的数量。
（0 < N ≤ 64）
解决方案： 输入N，输出2N-1即
可！
开始 输入N 计算2^(N-1) 输出结果 结束
By HBYZ.CS
动手练一下
求出第Ｎ个格子内的麦子的数量。 （0<N≤64）
解决方案：输入N，输出2N-1即可！
开始 输入N
sum = 0 For n = 2 To 100 Step 2
sum = suHBYZ.CS
动手练一下
求出前Ｎ个格子内的麦子的数量。 （0<N≤64）（使用两种方法） 方法1：使用等比数列前N项之和。 方法2：使用循环累加的方法。
By HBYZ.CS
N≤10
Sum=Sum+2N-1 N=N+1
输出结果 结束
By HBYZ.CS
For循环结构
For … Next循环说明：
For 计数器变量 = 初始值 To 结束值 Step 步长 循环内容
Next 计数器变量
当循环的步长等于1时，Step 1可以省略，其他的情况不能省略。
举例：
求1到100之间 所有偶数的和。
复杂一点点
求出前10个格子内的麦子的 数量。
解决方案1：等比数列前10项之和。
1 1 210
Sn 1 2 210 1
Private Sub Command1_Click() Dim sum As Double sum = 2 ^ 10 - 1 Text2.Text = sum
End Sub
开始 Sum=0 Sum=2^10-1 输出Sum
结束
By HBYZ.CS
复杂一点点·新知识
求出前10个格子内的麦子的 数量。
解决方案2：定义Sum累加变量，用于 存储结果。 N=1时，N≤10条件成立 ：Sum=20； N=2时，N≤10条件成立 ：
Sum=Sum+21，即Sum=20+21； N=3时，N≤10条件成立 ：
Sum=Sum+22，即Sum=3+22； …… N=10时，N≤10条件成立 ：Sum=Sum+210； N=11时，N≤10条件不成立 ，Sum不再累加。
开始 Sum=0
N≤10
Sum=Sum+2N-1 N=N+1
输出结果 结束
By HBYZ.CS
来点新鲜的
求出前10个格子内的麦子的数 量。
开始 Sum=0
Private Sub Command1_Click() Dim n As Integer Dim num As Double n = Val(Text1.Text) num = 2 ^ (n-1) Text2.Text = num
End Sub
计算2^(N-1) 输出结果 结束
By HBYZ.CS
Visual Basic循环结构
For … Next语句
By HBYZ.CS
一个传说
国王要奖赏国际象棋的发 明者，问他有什么要求,发明 者说，请在棋盘的第1个格子 里放上1颗麦粒,在第2个格子 里放上2颗麦粒，在第3个格子 里放上4颗麦粒，在第4个格子 里放上8颗麦粒，依此类推,每 个格子里放的麦粒数都是前一 个格子里放的麦粒的2倍，直 到第64个格子,请给我足够的 粮食来实现上述要求。