VB(2.7)棋盘上的麦粒数

第5章目录
Exit For: 强制退出循环
8／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
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
开始 代码如下： s=0 i=1 流程图： i<=20
成立
不成立
While i <= 20 条件
s=s+i i=i+1
第5章目录
s=s+i
i=i+1
循环体
Wend Text1= s
15／9
汝南县职业教育中心 结束
For循环语句：
代码：
While 循环语句： 代码：
第5章目录
16／9
汝南县职业教育中心
21／126
汝南县职业教育中心
Select Case mark Case 90 To 100 Label1.Text="优秀" Case 80 To 89 Label1.Text="良好" Case 70 To 79 Label1.Text="中等" Case 60 To 69 Label1.Text="及格" Case Else Label1.Text="不及格" End Select
2: 步长 I >10 ? 循环体 I=I+2
F
T
结
第5章目录
循环变量I的取值分别为: 2,4,6,8,10 完成 t=2,6,12,20,30 的计算 汝南县职业教育中心 7／9
任务7 棋盘上的麦粒数 循环变量必须为数值型。 循环次数 步长
Int(
终值初值 步长
1)
>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
Visual Basic 6.0程序设计本节内容结束
谢谢
汝南县职业教育中心
If mark >=90 then Label1.Text = "优" ElseIf mark >=80 Then Label1.Text = "良" ElseIf mark >=70 Then Label1.Text = "中" ElseIf mark >=60 Then Label1.Text = "及格" Else Label1.Text="不及格" End If
Visual Basic 6.0程序设计
第2章 Visual Basic编程语言
————任务7 棋盘上的麦粒数
汝南县职业教育中心
任务7 棋盘上的麦粒数
【知识回顾】 例：评定成绩等级 90~100：“优” 80~89：“良” 70~79：“中” 60~69：“及格” 60分以下为“不及格”
第5章目录
Biblioteka Baidu
第5章目录
任务7 棋盘上的麦粒数
1、While循环：（循环执行的次数不确定，但循环结束条件知道时使用。） 按指定条件重复执行循环体。 开始 语法格式为：
While Wend
<条件>
循环体
条件判断
成立
不成立
循环体
（包含循环变量的变化）
结束
第5章目录
14／9
汝南县职业教育中心
例1：求 1+2+3+ …… +20 = ？ 任务 7 棋盘上的麦粒数
2／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
【知识点】 For循环 While循环
第5章目录
3／9
汝南县职业教育中心
用输入框输入10个数字，并用Print方法输出
第5章目录
A = Val(InputBox("输入第1个数")) B = Val(InputBox("输入第2个数")) C = Val(InputBox("输入第3个数")) D = Val(InputBox("输入第4个数")) E = Val(InputBox("输入第5个数")) …… Print A Print B For I=1 To 5 Print C A = Val(InputBox("输入10个数")) Print D Print A Print E Next I ……
Y
结束
当步长＞0时
当步长<0时 汝南县职业教育中心 10／9
For-Next : 必须成对出现，缺一不可。 (配对原则)
可以嵌套使用，但内、外循环的变量不能同名，不能交叉 '正确的循环嵌套 '错误的循环嵌套
For I=1 To 9
For J=1 To 9 Print I,J Next J Next I
第5章目录
9／9
汝南县职业教育中心
For-Next的流程图—阅读
For X=1 To 10 Step 2 … Next X
开始
For X=10 To 2 Step -2 … Next X
开始
x = 初值
x >终值 ? N 循环体 x = x + 步长
第5章目录
x = 初值 Y
x <终值 ? N 循环体 x = x +步长 结束
For <循环变量>=<初值> To <终值> [Step <步长>] [循环体] [Exit For] Next [循环变量]
第5章目录
6／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
I: 循环变量 2: 初值
10: 终值
t =0 For I = 2 To 10 Step 2 t=t + I Print t Next I
任务 7 棋盘上的麦粒数 求 1+2+3+ …… +100 = ？
For循环语句：
代码： s=0 For i = 1 To 100 Step 1 s=s+i Next i
第5章目录
While 循环语句： 代码： s=0 i =1 While i < =100 s=s+i i=i+1
Text1= s
Mcs=5
For I=1 To Mcs
Mcs=Mcs+1
表示: 若增: 环
I=1 To 5 I= I-1 ,则出现死循
print I，Mcs
第5章目录
Next I
12／9
汝南县职业教育中心
阅读程序，写出运行结果
Private Sub Command1_Click() s=0 For k = 1 To 3 If k <= 1 Then x=1 ElseIf k <= 2 Then x=2 ElseIf k <= 3 Then x=3 Else x=4 End If Print x s=s+x Next k Print s 汝南县职业教育中心 End Sub 13／9
Wend
Text1= s 汝南县职业教育中心
17／9
1+2+3+ …… > 100,求X的最小值？ 任务 7 +X 棋盘上的麦粒数
For循环语句：
代码： ！！！无法实现功能 While 循环语句： 代码： While s <= 100 x=x+1 s=s+x
Wend
Text1= x
第5章目录
18／9
第5章目录
For I=1 To 9
For J=1 To 9 Print I,J Next I Next J
循环的嵌套 汝南县职业教育中心
11／9
当循环终值是一个变量时，在循环第一次运行时取走变量中 任务7 棋盘上的麦粒数 的值后，此变量中的值就不再影响循环。 在循环体内,循环变量可多次引用；但建议不要对其赋值，否 则将会导致死循环。
4／9
汝南县职业教育中心
一般循环结构流程图
(1)进入循环条件是什么？ (2)循环体的算法是什么？
(3)结束循环条件是什么？
本节讨论VB的两种循环语句： 计数循环语句 For-Next 条件循环语句 While-Wend
5／9
第5章目录
汝南县职业教育中心
任务7 棋盘上的麦粒数
1、For循环：(一般用于循环次数已知) 按确定的次数执行循环体。 语法格式为：
汝南县职业教育中心
归纳区别如下：
“当型循环”
For循环语句：
1、循环次数已知 的情况 2、step （步长）来 实现对循环变量的 控制和变化
第5章目录
While循环语句：
p k
1、循环次数未知的情 况 2、单独列出一个语 句来表示循环变量的 变化，从而实现对循 环变量的控制
19／9
汝南县职业教育中心
汝南县职业教育中心
22／126