- 1、本文档共17页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PAGE
PAGE 1
教 案
授课时间
3月 17 日 至 3 月 28 日
课时数
4+4
授课方式
理论课? 讨论课□ 习题课□ 实验课□ 上机课? 技能课□ 其他□
授课单元
第四章 选择结构程序设计
目的
与
要求
1)了解算法的概念和算法的描述
2)掌握选择结构的格式及执行过程
3)正确理解选择结构的嵌套
重点
与
难点
1)各种分支结构语句
2)选择结构的嵌套
主
要
内
容
4.1算法的介绍
*4.2条件语句
*4.3 选择结构的嵌套
教学方法手段(教具)
理论课采用板书与多媒体相结合
实践课采用上机实践操作
参考资料
《Visual Basic程序设计教程》 人民邮电出版社
《 Visual Basic程序设计实验教程》 人民邮电出版社
思考题、
作业
习题一 1 -4
习题一 5 -10
1-实验2
讲 稿
第四章 选择结构程序设计
[旧课复习]:
复习内容:
1.已学过的几个常用的控件
2.控件中输入输出语句的使用
复习目的:让学生掌握基本控件的使用
复习时长:大约10分钟
[新课导入]:
导入方式:以日常生活中的实例让学生理解什么是选择结构
导入目的:增强学生的理解能力
导入时长:大约5分钟
[新课讲授]:
重点:各种分支结构语句的使用
难点:选择结构的嵌套
方法:运用多媒体辅助教学,采用讲授法和案例教学法
4.1算法介绍
4.1.1算法介绍
一、算法概述
所谓算法,是对特定问题求解步骤的一种描述,它是指令的有限序列,其中每个指令表示一个或多个操作。
算法有以下特征:
有穷性
确定性
可行性
输入
输出
4.1.2算法的表示
常用的表示算法的方法有:自然语言、伪代码、流程图,本章重点介绍用流程图表示算法。
流程图用一些图框、流程线以及文字说明来表示算法。用图来表示算法,直观、形象、容易理解。
包括:传统流程图、结构化流程图。
因传统流程图中流程线的使用无限制可能导致流程图毫无规律。结构化流程图使用3中基本结构,即:顺序结构、选择结构和循环结构(如图4-1所示),从而大大提高流程图的规律性。
图4-1(a) 顺序结构流程图 图4-1(b) 选择结构流程图
图4-1(c) 循环结构流程图
4.2条件语句
VB中选择结构通过条件语句来完成,包括:单分支、双分支和多分支等。
4.2.1单分支结构语句
单分支结构语句包括单行结构和块结构。
1.“单行结构”格式为:
If 条件表达式 Then 语句序列
2. “块结构”格式为:
If 条件表达式 Then
语句序列
说明:
(1)“条件表达式”可以是关系表达式、布尔表达式或者数值表达式。如果是数值表达式,则非0值为真,0为假。
(2)当条件表达式的值为真时执行语句序列。
【例4-1】已知两个数x和y,比较它们的大小,使得xy。
分析:对任意的两个数x、y,其中x若为大的数,直接输出即可,若 y为大的数,则交换两数即可。
其语句描述如下:
用单行语句实现:
If xy then t=x:x=y:y=t
用块语句实现:
If xy then
t=x
x=y
y=t
4.2.2双分支结构语句
双分支结构语句也包括单行结构和块结构。
1.“单行结构”格式为:
If 条件表达式 Then语句序列1[ Else语句序列2]
2. “块结构”格式为:
If 条件表达式 Then
语句序列1
[Else
语句序列2]
End If
说明:
(1)“条件表达式”可以是关系表达式、布尔表达式或者数值表达式。如果是数值表达式,则非0值为真,0为假。
(2)当条件表达式的值为真时执行语句列1, 否则执行语句列2。
【例4-2】输入一个整数x,判断该数的奇偶性。
分析:该数能被2整除时是偶数,否则是奇数。能被2整除要作为判断的条件,当能被2整除时输出偶数,否则输出奇数。
图4-2 判断数据奇偶性设计步骤如下。
图4-2 判断数据奇偶性
(1)建立应用程序用户界面,如图4-2所示。
(2)编写代码。
编写命令按钮Command1的Click事件代码:
Private Sub Command1_Click()
Dim x As Integer, y As String
x = Val(Text1.Text)
If x Mod 2 = 0 Then y = x 是偶数 Else
文档评论(0)