- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
主讲:冯 元 Email: feng.yyy@163.com 第五章 控制结构 5.1 If语句 5.2 Select Case语句 5.3 Do Loop语句 5.4 For…Next语句 5.5 循环的嵌套 5.6 控制结构的应用 5.1 If语句 本节知识点: 单行形式的If…Then…语句 块形式的If…Then…Endif语句 单行形式的If…Then…Else…语句 块形式的If…Then…Else…Endif语句 If语句的嵌套 If…Then…ElseIf…Endif语句 5.1 If语句 程序运行的基本流程: 事件过程:地位平等,那个事件先发生就先执行那个事件对应的过程。 事件过程内部:由左而右,由上而下依次执行各个语句,直到整个程序结束,称为顺序结构。 问题:如何根据条件决定程序的执行顺序? 显然,只有顺序结构还不行,还需要条件判断或选择等其他的控制结构。 5.1 If语句 VB提供了四种控制结构: 顺序结构: 分支结构: If语句、Select Case语句; 循结结构: Do…Loop语句、For…Next语句、 While…Wend语句; 跳转结构: GoTo语句、GoSub语句。 5.1 If语句 If语句用来实现分支结构,也称为条件语句: 单行形式的If…Then…语句 块形式的If…Then…Endif语句 单行形式的If…Then…Else…语句 块形式的If…Then…Else…Endif语句 If…Then…ElseIf…Endif语句 5.1 If语句 1、单行形式的If…Then…语句 单行If…Then…语句只能写在一个语句行上。格式: if 条件 then 语句块 说明: 条件:应该是一个关系或逻辑表达式,或结果可以转换为逻辑值的表达式。 语句块:是一条或多条语句(允许无语句)。语句间用“:”分隔,如需换行要使用续行符“ _”。 5.1 If语句 语句执行过程:当程序执行到该语句时,先检查“条件”表达式的值是否为“true”;如为“true”,则执行then后的语句块,并接着执行下面的语句;否则直接执行下一条语句。 例子:求y = ?|x| 方法一:y = sqr(abs(x)) 方法二:if x0 then x=-x y = sqr(x) 5.1 If语句 2、块形式的If…Then…EndIf语句 语法格式:if 条件 then 语句块 endif 说明:块形式的if…then语句功能与单行的相同。只是不要求语句块中的语句一定要写在一行上。 注意:在块形式中,then关键字后的同一行上不能有任何语句。 5.1 If语句 例子:求y = ?|x| if x0 then x = -x endif y = sqr(x) 5.1 If语句 3、单行形式的If…Then …Else…语句 语法格式: if 条件 then 语句块1 else 语句块2 说明:当“条件”满足时,执行“语句块1”,执行完毕后继续执行if语句下面的语句;当“条件”不满足时,执行“语句块2”,执行完毕后继续执行if语句下面的语句。两个语句块必有一个被执行。 5.1 If语句 语句的流程图: 5.1 If语句 例子: if x0 then y=x-1 else y=x+1 5.1 If语句 4、块形式的If…Then …Else…EndIf语句 语法格式:if 条件 then 语句块1 else 语句块2 endif 说明:块形式语句功能与单行相同。Else关键词后同一行上可以接语句块2中的语句,这时,要在else后面加“:”分隔。 5.1 If语句 例子:火车站行李费的收费标准是50kg以内(包括50kg)0.20/kg,超过部分0.50/kg。编写程序,要求根据输入的任意重量,计算出应付的行李费。 根据题意计算公式如下: weight×0.2 weight≦50 pay = (weight-50)×0.5+50×0.2 weight50 5.1 If语句 程序代码: Private Sub Command1_Click() Dim weight as single,pay as single weight= Text1.Text If weight 50 Then pay =(weight - 50)*
您可能关注的文档
最近下载
- 环境教育与生态保护意识.docx VIP
- TCI 178-2023 高大边坡稳定安全智能监测预警技术规范.pdf VIP
- 砖砌围墙景墙结构计算一 风荷载作用下抗弯承载力计算.pdf VIP
- 《食品快速检测技术》课程标准.pdf VIP
- GB18285-2018重点解读汇报.pptx VIP
- 奥马哈系统调查表.docx VIP
- 1 古希腊罗马文学.ppt VIP
- 2025年重庆市辅警招聘考试题(含答案).docx VIP
- 红旗渠精神_讲稿模板.pptx VIP
- Unit 2 Travelling Around 大单元整体教学设计-2023-2024学年高中英语人教版(2019)必修第一册.docx VIP
文档评论(0)