当前位置：文档之家 › vb循环结构-do语句

vb循环结构-do语句

  • 格式：doc
  • 大小：189.00 KB
  • 文档页数：3

信息技术第二十课
教学内容：vb 第六课
教学目标：知识与技能：1、设计程序流程图并学会用vb 语言表达
2、学生掌握循环结构Do 语句的使用
3、掌握程序设计的步骤，具备程序设计思想
过程与方法：从折纸实验出发，学生在共同探究中逐步掌握程序设计
步骤，从肢解代码到分析代码最后设计代码，由浅及深，
最后一个动手实践，让学生在教师的引导下完整的实现
程序设计。

情感态度与价值观：本节课多次对学生情感进行教育，在课前导入后鼓励大
家每天提高一点点，慢慢的量变就会形成质变，探究循环结构多次师生合作，创建和谐的教学氛围，最后的学生动手实践，完整的进行程序设计，收获新知，培养学生的自我效能感。

教学方法：讲授法、任务驱动法 一、课前导入
1、教师展示ppt 中一张白纸，同学们猜猜一张白纸的厚度。

2、一张普通的办公用纸，它的厚度大约有0.05毫米，现在要讲此纸对折5折，纸张的厚度是多少？
3、 （利用课前准备的白纸逐步引导，学生推导vb 语句）
赋值语句s=s*2
4、假如一位女同学的身高为1.6米，那么折叠多少层可以达到她的高度？ 学生竞猜，教师打开做好的vb 折纸器按照学生猜测的次数进行逐个尝试。

5、达到我国珠穆朗玛峰的高度至少要折叠多少次？
学生竞猜，教师打开做好的vb 折纸器按照学生猜测的次数进行逐个尝试。

通过为数不多的折纸就可以达到很高，预期会大大出乎学生的意外，此刻介绍吉尼斯世界纪录上所达到的最多次数为13次，鼓励学生课下尝试。

6、展示
鼓励大家每天进步一点点。

二、庖丁解牛
1、古代高斯解决当时一道十分困难的数学题1+2+3+…+100=？
2、提问：大家知道他是怎么解决这道问题的吗？
3、今天我们通过vb 程序也可以很快的解决。

展示vb 程序窗体和相应的代码
Private Sub Command1_Click() Dim i As Integer, n As Integer i = 1 n = 0
Do While i <= 100 n = n + i i = i + 1 Loop
毫米6.12*05.05≈03.099.08
.3701.1365365=
=
Label2.Caption = Str(n)
End Sub
4、提问：大家看到程序代码有什么感觉？
5、肢解代码，分成事件定义、赋初值、循环体、结果输出多个部分理解
三、步入正题
1、利用前面学习的程序流程图描述该过程，并提出Do语句的标准格式，以及
使用说明。

Do While 条件表达式
语句块
Loop
使用说明：
（1）先计算条件表达式的值，如果为真，执行语句块，否则中止执行循环（2）遇到Loop时，再计算条件表达式，重复第 步操作
（3）直到条件表达式的值为False，循环结束
2、例：模拟1+2+3+4+5求和计算
（1）模拟代码：
n = 0 ‘1、n=0，i=1→n=1，i=2
i = 1 2、n=1，i=2→n=3，i=3
Do While i <= 5 ‘3、n=3，i=3→n=6，i=4
n = n + I 4、n=6，i=4→n=10，i=5
i = i + 1 ‘5、n=10，i=5→n=15，i=6
Loop
（2）开火车的形式展开，模拟每一次结果并推倒n，i所代表的意思
（3）n求和结果，i循环变量
3、求N阶乘（N！=1x2x3x...xN）（重点讲解）
根据程序设计的步骤
①分析问题②流程图设计③代码实现
（1
f=1 f=f * I i<=n
i=1 i=i+1
（2）同学们根据提供拼图题.doc三分钟时间完成流程图拼接，教师展示结果，进行比较评价。

（3）代码实现：学生根据流程图的理解，把代码中？信息填写完整。

private sub command1_click（）
dim i as integer,n as integer
dim f as long
n=val（text1.text）
f=1
i=1
do while i<=n
?
loop
text2.text=str（f）
end sub
学生结合ppt比较思考常用的数据类型，完成程序代码填写后，设计界面，填充代码调试后，进行数据测试。

学有余力者思考，如何修改代码可以输出n>12以上的n！
4、强化练习
小明今年17岁，为了支持环保，她在今年生日的这一天种了一棵树，她有一个美好的愿望，那就是从每年比前一年多种一棵树。

这样下去，到到少岁时才能超过100颗。

Private Sub Form_click()
Dim tree As Integer
Dim n As Integer
？
Print "到"; n + 17; "岁时累计种到"; tree; "棵"
End Sub
学生根据种大树.doc帮助，按照程序设计三步完成vb程序设计。

5、上交作业
6、课后小结
本节课学习的内容？
循环do语句
Do While 条件表达式
语句块
Loop
程序语言设计的流程：
1、分析问题
2、流程图设计
3、代码实现。

合集下载

VB教程---循环结构

VB教程---循环结构

Next i
学
For i =1 To 10 课 For j=1 To 20 件 … Next i
Next j
6.5 跳转语句
GoTo语句可以改变程序执行的顺序，跳过程序的某一
教 学 课
件
前后两项之差都 Sum=0
为1，是一个等 差数列
Sum=sum+1i=i+1
Sum=sum+3
… Sum=sum+n
i是从1到n递增 1的数列
一、循环程序设计结构
VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结
先执行循环体，后判断条件值，为假继续，直到为真退出
⑴. Do While … Loop语句
语法格式： Do While 〈条件表达式〉
〈循环体〉 [Exit Do] 〈循环体〉 Loop
(2) Do Until …Loop语句
语法格式：
Do Until〈条件表达式〉
〈循环体〉
教
[Exit Do]
学
说明
① 格式中的参数说明：
循环的初值、终值和步长都是数值表达式，其值不一定是
教 学
整数，可以是实数。
课
增量参数可正可负。如果增量为正，则初值必须小于等于
件
终值，否则不能执行循环体内的语句；如果增量为负，则
初值必须大于等于终值。如果没有设置step，则增量默认
为1。
当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。
学
钱一。百钱买百鸡，问鸡翁、母、雏各几
课
何？
件
• 找出1~999之间所有的同构数
– 同构数：该数出现在它的平方数的右边，如： 5—25，25—625
VB 循环

VB 循环

循环变量I不仅用来控制循环过程，而且被引用参与运算 （操作变量）
公共教育学院 计算机教研室
徐州医学院VB教程
【例】编写程序，实现累乘：要求使用For循环求N !（N为 自然数）。
让f = 1、i = 1。使用InputBox函数得到N，重复执行N次
“f = f * i ”，在重复中，让i的值不断加1，即可实现例
公共教育学院 计算机教研室
徐州医学院VB教程
在“累加”问题中，应设置一个用来表示累加和的变
量，变量的初值设为零 。
“累乘求积”的问题，应设置一个表示积的变量，变量 的初始值应设置为1，
公共教育学院 计算机教研室
徐州医学院VB教程
while循环
While循环的格式如下：
While <条件表达式>
[循环体]
公共教育学院 计算机教研室
徐州医学院VB教程
算法说明
[算法分析] 由于输入的数据M和N要求是自然数，所以在
程序中应加入对数据的合法性进行检验的部分；考虑到
程序的应用范围，数据类型可选用长整型。
公共教育学院 计算机教研室
徐州医学院VB教程
[示例] 求两个自然数的最大公约数的算法（欧几里德算 法）
S1.输入两个自然数M、N； S2.求M除以N的余数R； S3.使M=N，即用N代换M； S4.使N=R，即用R代换N； S5.若R≠0,则重复执行S2、S3、S4（循环）,否则转S6； S6.输出M，M即为M和N的最大公约数。
公共教育学院 计算机教研室
徐州医学院VB教程
求二个正整数m和n的最小公倍数
求得最大公约数以后，将原两数相乘并除以最大公约 数，就得到了最小公倍数。
公共教育学院 计算机教研室
清华大学VB经典教案第五节——循环结构程序设计

清华大学VB经典教案第五节——循环结构程序设计


每循环一次，循环变量的值自动加一个
步长，然后判断循环变量的值是否“超 越”终值，如果“超越”，则结束循环，
否则进行下一次循环，用如图5-1所示
的流程图表示。
说明： （1）循环变量、初值、终值、步长都是数值类型； （2）步长可正可负，但不能为0，否则，循环将变成死循环或 无限循环；步长为1时，[Step <步长>]可以省略； （3）当初值小于终值时，步长为正；当初值大于终值时，步 长为负； 通过初值、终值、步长可以计算循环体的循环次数，计算公 式如下： 循环次数=Int((终值-初值)/步长)+1 注意：如果循环次数≤0，即当初值小于终值时，步长为负 ，或者当初值大于终值时，步长为正，则循环体一次都不执行。 （4）Exit For可以退出其所在层的For…Next循环，这一点在 多重循环中尤为重要。
分析：假设某个三位的正整数为n， 要判断n是否是“水仙花数”，关键是 要求出n的百位数字a、十位数字b和个 位数字c，即 百位数字a = n \ 100 十位数字b = n \ 10 Mod 10 个位数字c = n Mod 10
5.2 While…Wend循环 While…Wend循环用于循环次数未知的循环，其语法格式 如下： While <条件表达式> [<语句组>] Wend 当条件表达式的值为True时执行循环体，为False时结束 循环，用如图5-5所示的流程图表示。
入项；组合框是由文本框和列表框组合而成，因此，组合框 具有文本框和列表框的功能，既可以输入项也可以选择项，
但任意时刻最多只能选择一个项，选中的项将显示在组合框
中。
5.5.1 列表框 1．列表框的常用属性 （1）List属性 存放列表框中的所有项，是一个一维字符串数组，数组 名为List，下标为项的索引值，从上到下，第一个项的索引值 为0，第二个项的索引值为1，以此类推。 （2）ListCount属性 返回列表框中项的个数。 （3）ListIndex属性 返回当前选中项的索引值。若有多个项被选中，则返回 最后一个选中项的索引值；也可以给该属性赋一个整数值来选 中对应索引值的项；如果没有选中任何项，ListIndex属性值 为-1。 （4）Selected属性 判断列表框中的某个项是否被选中，选中为True，否则 为False。该属性是一个一维布尔或逻辑型数组，数组名为 Selected，下标为项的索引值。
vb中do while循环语句

vb中do while循环语句

vb中do while循环语句（原创实用版）目录1.Do While 循环语句的定义和用途2.Do While 循环语句的基本语法结构3.Do While 循环语句的执行过程4.Do While 循环语句与 While 循环的区别5.Do While 循环语句的实际应用示例正文一、Do While 循环语句的定义和用途在 Visual Basic（VB）编程语言中，Do While 循环语句是一种控制流程的循环结构，它允许程序在满足特定条件时重复执行一段代码。

Do While 循环语句的用途主要是在给定条件下，对程序中的某一操作进行多次执行，直到条件不满足时才退出循环。

二、Do While 循环语句的基本语法结构Do While 循环语句的基本语法结构如下：```Do While 条件循环体Loop```其中，“条件”是用来判断循环是否应该继续执行的表达式，“循环体”是要重复执行的代码块。

三、Do While 循环语句的执行过程Do While 循环语句的执行过程如下：1.首先，计算“条件”表达式的值。

2.如果表达式的值为 True，则执行循环体中的代码。

3.执行完循环体后，再次计算“条件”表达式的值。

4.重复步骤 2 和 3，直到“条件”表达式的值为 False。

5.当循环结束时，执行 Loop 后面的代码。

四、Do While 循环语句与 While 循环的区别Do While 循环语句与 While 循环语句的主要区别在于执行顺序不同。

While 循环在给定条件为 True 时执行循环体，而 Do While 循环则是在给定条件为 False 时执行循环体。

换句话说，Do While 循环会先执行一次循环体，然后再判断条件是否满足，决定是否继续执行循环体。

五、Do While 循环语句的实际应用示例假设我们想要计算 1 到 100 之间所有偶数的和，可以使用 Do While 循环语句编写如下程序：```Dim Sum As IntegerDim I As IntegerSum = 0I = 2Do While I <= 100Sum = Sum + II = I + 2LoopPrint "1 到 100 之间所有偶数的和为：" & Sum```在这个示例中，我们使用 Do While 循环从 2 开始遍历到 100 之间的所有偶数，并将它们累加到变量 Sum 中。