VB(27)棋盘上的麦粒数资料
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
结束
当步长＞0时
x = x +步长
结束
10／9汝当南步县长职业<0教时育中心
For-Next : 必须成对出现，缺一不可。 (配对原则) 可以嵌套使用，但内、外循环的变量不能同名，不能交叉
第5章目录
'正确的循环嵌套 For I=1 To 9
For J=1 To 9 Print I,J
Next J Next I
2／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
【知识点】 For循环 While循环
第5章目录
3／9
汝南县职业教育中心
第5章目录
用输入框输入10个数字，并用Print方法输出
A = Val(InputBox("输入第1个数"))
B = Val(InputBox("输入第2个数"))
C = Val(InputBox("输入第3个数"))
End Sub
第5章目录
9／9
汝南县职业教育中心
For-Next的流程图—阅读
For X=1 To 10 Step 2 …
Next X
开始
For X=10 To 2 …
Next X
开始
Step -2
x = 初值
x = 初值
x >终值 ?
Y
N 循环体
x <终值 ?
Y
N 循环体
第5章目录
x = x + 步长
Step 2
2: 步长 I >10 ?
循环体
F
I=I+2
T结
第5章目录
循环变量I的取值分别为: 2,4,6,8,10
完成
t=2,6,12,20,30 7／9
的汝计南县算职业教育中心
任务7 棋盘上的麦粒数
循环变量必须为数值型。
循环次数
Int(
终值初值 步长
1)
步长
>0 初值<终值 ( Step 1 可省略) <0 初值>终值 =0 死循环
s=0 For i = 1 To 100 Step 1
s=s+i Next i Text1= s
第5章目录
代码： s=0 i =1 While i < =100
s=s+i i=i+1 Wend
Text1= s
17／9
汝南县职业教育中心
1+2+3+任…务…7 +棋X 盘> 上100的,求麦X粒的数最小值？
第5章目录
For I=1 to 100 S=S+I
Next I
For I=100 to 1 Step -1 S=S+I
Next I
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
For循环语句： 代码：
！！！无法实现功能
循环体
Wend
第5章目录
Text1= s
15／9
不成立
i<=20
成立
s=s+i
i=i+1
汝南县结职束业教育中心
For循环语句： 代码：
While 循环语句： 代码：
第5章目录
16／9
汝南县职业教育中心
求任1务+27+3棋+ 盘……上的+1麦00粒= 数？
For循环语句：
While 循环语句：
代码：
按指定条件重复执行循环体。 语法格式为：
开始
While <条件> 循环体
Wend
条件判断 不成立
成立
循环体
（包含循环变量的变化）
第5章目录
结束
14／9
汝南县职业教育中心
例1：任求务1+72+棋3+盘…上…的+麦20粒= 数？
代码如下：
流程图：
开始
s=0
i=1
While i <= 20 条件
s=s+i i=i+1
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
汝南县职业教育中心
任务7 棋盘上的麦粒数
1、While循环：（循环执行的次数不确定，但循环结束条件知道时使用。）
Visual Basic 6.0程序设计
第2章 Visual Basic编程语言
————任务7 棋盘上的麦粒数
汝南县职业教育中心
任务7 棋盘上的麦粒数
【知识回顾】 例：评定成绩等级 90~100：“优” 80~89：“良” 70~79：“中” 60~69：“及格” 60分以下为“不及格”
第5章目录
For <循环变量>=<初值> To <终值> [Step <步长>] [循环体] [Exit For]
Next [循环变量]
第5章目录
6／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
I: 循环变量
2: 初值
t =0 For I = 2 To 10
t=t + I Print t Next I
10: 终值
'错误的循环嵌套 For I=1 To 9
For J=1 To 9 Print I,J
Next I Next J
循环的嵌套
11／9
汝南县职业教育中心
当的循值环后终，值此是变一量个任中变的务量值时7就，棋不在再盘循影环上响第的循一环麦次。运粒行数时取走变量中
在循环体内,循环变量可多次引用；但建议不要对其赋值，否 则将会导致死循环。
Mcs=5 For I=1 To Mcs
Mcs=Mcs+1 print I，Mcs 第5章目录 Next I
表示: I=1 To 5
若增: I= I-1 ,则出现死循 环
12／9
汝南县职业教育中心
阅读程序，写出运行结果
第5章目录
Private Sub Command1_Click()
s=0
For k = 1 To 3
一般循环结构流程图
(1)进入循环条件是什么？ (2)循环体的算法是什么？ (3)结束循环条件是什么？
第5章目录
本节讨论VB的两种循环语句：
计数循环语句 For-Next
条件循环语句 While-Wend
5／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
1、For循环：(一般用于循环次数已知) 按确定的次数执行循环体。 语法格式为：
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
……
4／9
汝南县职业教育中心
当步长＞0时
x = x +步长
结束
10／9汝当南步县长职业<0教时育中心
For-Next : 必须成对出现，缺一不可。 (配对原则) 可以嵌套使用，但内、外循环的变量不能同名，不能交叉
第5章目录
'正确的循环嵌套 For I=1 To 9
For J=1 To 9 Print I,J
Next J Next I
2／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
【知识点】 For循环 While循环
第5章目录
3／9
汝南县职业教育中心
第5章目录
用输入框输入10个数字，并用Print方法输出
A = Val(InputBox("输入第1个数"))
B = Val(InputBox("输入第2个数"))
C = Val(InputBox("输入第3个数"))
End Sub
第5章目录
9／9
汝南县职业教育中心
For-Next的流程图—阅读
For X=1 To 10 Step 2 …
Next X
开始
For X=10 To 2 …
Next X
开始
Step -2
x = 初值
x = 初值
x >终值 ?
Y
N 循环体
x <终值 ?
Y
N 循环体
第5章目录
x = x + 步长
Step 2
2: 步长 I >10 ?
循环体
F
I=I+2
T结
第5章目录
循环变量I的取值分别为: 2,4,6,8,10
完成
t=2,6,12,20,30 7／9
的汝计南县算职业教育中心
任务7 棋盘上的麦粒数
循环变量必须为数值型。
循环次数
Int(
终值初值 步长
1)
步长
>0 初值<终值 ( Step 1 可省略) <0 初值>终值 =0 死循环
s=0 For i = 1 To 100 Step 1
s=s+i Next i Text1= s
第5章目录
代码： s=0 i =1 While i < =100
s=s+i i=i+1 Wend
Text1= s
17／9
汝南县职业教育中心
1+2+3+任…务…7 +棋X 盘> 上100的,求麦X粒的数最小值？
第5章目录
For I=1 to 100 S=S+I
Next I
For I=100 to 1 Step -1 S=S+I
Next I
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
For循环语句： 代码：
！！！无法实现功能
循环体
Wend
第5章目录
Text1= s
15／9
不成立
i<=20
成立
s=s+i
i=i+1
汝南县结职束业教育中心
For循环语句： 代码：
While 循环语句： 代码：
第5章目录
16／9
汝南县职业教育中心
求任1务+27+3棋+ 盘……上的+1麦00粒= 数？
For循环语句：
While 循环语句：
代码：
按指定条件重复执行循环体。 语法格式为：
开始
While <条件> 循环体
Wend
条件判断 不成立
成立
循环体
（包含循环变量的变化）
第5章目录
结束
14／9
汝南县职业教育中心
例1：任求务1+72+棋3+盘…上…的+麦20粒= 数？
代码如下：
流程图：
开始
s=0
i=1
While i <= 20 条件
s=s+i i=i+1
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
汝南县职业教育中心
任务7 棋盘上的麦粒数
1、While循环：（循环执行的次数不确定，但循环结束条件知道时使用。）
Visual Basic 6.0程序设计
第2章 Visual Basic编程语言
————任务7 棋盘上的麦粒数
汝南县职业教育中心
任务7 棋盘上的麦粒数
【知识回顾】 例：评定成绩等级 90~100：“优” 80~89：“良” 70~79：“中” 60~69：“及格” 60分以下为“不及格”
第5章目录
For <循环变量>=<初值> To <终值> [Step <步长>] [循环体] [Exit For]
Next [循环变量]
第5章目录
6／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
I: 循环变量
2: 初值
t =0 For I = 2 To 10
t=t + I Print t Next I
10: 终值
'错误的循环嵌套 For I=1 To 9
For J=1 To 9 Print I,J
Next I Next J
循环的嵌套
11／9
汝南县职业教育中心
当的循值环后终，值此是变一量个任中变的务量值时7就，棋不在再盘循影环上响第的循一环麦次。运粒行数时取走变量中
在循环体内,循环变量可多次引用；但建议不要对其赋值，否 则将会导致死循环。
Mcs=5 For I=1 To Mcs
Mcs=Mcs+1 print I，Mcs 第5章目录 Next I
表示: I=1 To 5
若增: I= I-1 ,则出现死循 环
12／9
汝南县职业教育中心
阅读程序，写出运行结果
第5章目录
Private Sub Command1_Click()
s=0
For k = 1 To 3
一般循环结构流程图
(1)进入循环条件是什么？ (2)循环体的算法是什么？ (3)结束循环条件是什么？
第5章目录
本节讨论VB的两种循环语句：
计数循环语句 For-Next
条件循环语句 While-Wend
5／9
汝南县职业教育中心
任务7 棋盘上的麦粒数
1、For循环：(一般用于循环次数已知) 按确定的次数执行循环体。 语法格式为：
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
……
4／9
汝南县职业教育中心