Visual Basic程序设计VBch5_55.5.2 电子教案
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
4.5 其他辅助控制语句
1. GoTo 语句 形式: GoTo {标号|行号} 作用: 无条件地转移到标号或行号指定
的那行语句.
标号是一个字符序列, 行号是一个数字序列.
1
4.5 其他辅助控制语句
2. End语句 形式： End 作用结束一个程序(块)的运行.
终止过程或程序块
End If
End Select
10
猴子吃桃问题
Private Sub Picture1_Click() Dim x As Integer, n As Integer x=1 Picture1.Print "第7天的桃子数为：" & x For n = 6 To 1 Step -1 x=2*x-1 Picture1.Print "第" & n & "天的桃子数为： "&x Next n End Sub
t=1
'给存放累乘积的变量赋初值，必
须有
For i = 1 To 10
t=t*i
'累乘语句
Next i
Print "t="; t
End Sub
输出结果：t=3628800
8
二、递推法
1、找出当前项与前一项的关系 2、确定循环终止条件
9
举例：猴子吃桃问题
猴子摘了若干个桃子，当即吃掉一半， 还觉得不过瘾，又多吃了一个。 第二天 接着吃掉剩下桃子的一半，仍不过瘾， 又多吃了一个。以后每天都是吃掉尚存 桃子的一半零一个。到第10天早上猴子 再去吃桃子时，还剩下一个。问猴子当 初共摘下多少个桃子?
13
本章总结
1、 VB实现结构化程序设计的三种基本结构基 本结构所提供的基本语句
2、 掌握数组的概念及其基本操作
3、 掌握过程的概念及使用
4、掌握程序设计中的基本技巧（交换、累加、 累乘等）和常用算法（穷举、迭代、递推、递 归、排序（选择法、冒泡法、合并法）、查找 （顺序、二分法）等）。
14
11
三、判断素数
输出2~100之间的素数 算法思想：对2~100之间任意一个数
m， 若除以2,3,…,sqr(m)都除不尽，则m为素 数。
例4-19
12
四、穷举法
穷举法的特点： 1、可以列方程组解决 2、解不唯一
例4-20：百钱百鸡
中国古代数学家张丘建在他的《算经》中提 出了著名的“百钱买百鸡问题”：鸡翁一， 值钱五，鸡母一，值钱三，鸡雏三，值钱一， 百钱买百鸡，问翁、母、雏各几何？
累加累乘 递推 求素数 穷举
6
一、累加、累乘
累加 sum= sum + I 累乘 t=t*I t=1 注意：
Sum=0
累加与累乘的变量设置初值的语句应放到
循环体之前，累加和变量置初值为0，累乘积
变量置初值为1。
7
举例
Private Sub Form_Click()
Dim i As Integer, t As Long
作用：若对某个对象执行一系列语句时，对象名只要
在With后面指定，而语句块中不用重复指出该对象名。
例：
With Text1
.text=“欢迎学习VB”
.FonSize=20
End With
注：4 语句块中的”.”不能省略
小结
多重循环（循环嵌套） 几种循环语句比较 其他辅助控制语句
5
4.6 常见算法举例
End Sub
End Function
2
……
4.5 其他辅助控制语句
3. Exit语句 形式： Exit 作用:退出某种控制结构的执行.
Exit For Exit Do Exit Sub Exit Function ……
3
4.5 其他辅助控制语句
4. With语句
格式：
With 对象名 语句块
End With
1. GoTo 语句 形式: GoTo {标号|行号} 作用: 无条件地转移到标号或行号指定
的那行语句.
标号是一个字符序列, 行号是一个数字序列.
1
4.5 其他辅助控制语句
2. End语句 形式： End 作用结束一个程序(块)的运行.
终止过程或程序块
End If
End Select
10
猴子吃桃问题
Private Sub Picture1_Click() Dim x As Integer, n As Integer x=1 Picture1.Print "第7天的桃子数为：" & x For n = 6 To 1 Step -1 x=2*x-1 Picture1.Print "第" & n & "天的桃子数为： "&x Next n End Sub
t=1
'给存放累乘积的变量赋初值，必
须有
For i = 1 To 10
t=t*i
'累乘语句
Next i
Print "t="; t
End Sub
输出结果：t=3628800
8
二、递推法
1、找出当前项与前一项的关系 2、确定循环终止条件
9
举例：猴子吃桃问题
猴子摘了若干个桃子，当即吃掉一半， 还觉得不过瘾，又多吃了一个。 第二天 接着吃掉剩下桃子的一半，仍不过瘾， 又多吃了一个。以后每天都是吃掉尚存 桃子的一半零一个。到第10天早上猴子 再去吃桃子时，还剩下一个。问猴子当 初共摘下多少个桃子?
13
本章总结
1、 VB实现结构化程序设计的三种基本结构基 本结构所提供的基本语句
2、 掌握数组的概念及其基本操作
3、 掌握过程的概念及使用
4、掌握程序设计中的基本技巧（交换、累加、 累乘等）和常用算法（穷举、迭代、递推、递 归、排序（选择法、冒泡法、合并法）、查找 （顺序、二分法）等）。
14
11
三、判断素数
输出2~100之间的素数 算法思想：对2~100之间任意一个数
m， 若除以2,3,…,sqr(m)都除不尽，则m为素 数。
例4-19
12
四、穷举法
穷举法的特点： 1、可以列方程组解决 2、解不唯一
例4-20：百钱百鸡
中国古代数学家张丘建在他的《算经》中提 出了著名的“百钱买百鸡问题”：鸡翁一， 值钱五，鸡母一，值钱三，鸡雏三，值钱一， 百钱买百鸡，问翁、母、雏各几何？
累加累乘 递推 求素数 穷举
6
一、累加、累乘
累加 sum= sum + I 累乘 t=t*I t=1 注意：
Sum=0
累加与累乘的变量设置初值的语句应放到
循环体之前，累加和变量置初值为0，累乘积
变量置初值为1。
7
举例
Private Sub Form_Click()
Dim i As Integer, t As Long
作用：若对某个对象执行一系列语句时，对象名只要
在With后面指定，而语句块中不用重复指出该对象名。
例：
With Text1
.text=“欢迎学习VB”
.FonSize=20
End With
注：4 语句块中的”.”不能省略
小结
多重循环（循环嵌套） 几种循环语句比较 其他辅助控制语句
5
4.6 常见算法举例
End Sub
End Function
2
……
4.5 其他辅助控制语句
3. Exit语句 形式： Exit 作用:退出某种控制结构的执行.
Exit For Exit Do Exit Sub Exit Function ……
3
4.5 其他辅助控制语句
4. With语句
格式：
With 对象名 语句块
End With