- 1、本文档共27页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第4章 选择结构设计 选择程序结构用于判断给定的条件,根据判断的结果判断某些条件,根据判断的结果来控制程序的流程 本章主要内容 选择结构设计 选择程序结构用于判断给定的条件,根据判断的结果判断某些条件,根据判断的结果来控制程序的流程 4.1 条件表达式 示例 If x = 5 Then y = x + 1 If a1 And b0 Then x = 1 关系表达式和逻辑表达式 4.2 条件语句 两种格式的条件语句: If ... Then If ... Then ... Else 4.2.1 If...Then语句 格式: If 条件 Then 语句 或 If 条件 Then 语句块 End If 功能:若条件成立(值为真),则执行Then后面的语句或语句块,否则直接执行下一条语句或“End If”的下一条语句 4.2.2 If...Then...Else语句 格式: If 条件 Then 语句块1 (A) Else 语句块2 (B) End If 功能:首先测试条件(E),如果条件成立(即值为真),则执行Then后面的语句块1,如果条件不成立(即值为假),则执行Else后面的语句块2。而在执行Then或Else之后的语句块后,会从End If之后的语句继续执行。 4.2.3 IIf函数 实现一些简单的条件判断分支结构 格式: IIf(条件,条件为真时的值,条件为假时的值) 功能:对条件进行测试,若条件成立(为真值),则取第一个值(即“条件为真时的值”),否则取第二个值(即“条件为假时的值”)。 例如,将a、b中的小数,放入Min变量中: Min=IIf(a<b,a,b) 例4.2 输入三个数a、b、c,求出其中最大数 (1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求:用户在“a=”文本框(Text1)、“b=”文本框(Text2)和“c=”文本框(Text3)中输入数据,单击“判断”按钮后,则在“最大数=”文本框(Text4)中输出结果 程序代码 程序流程图 Private Sub Command1_Click() m用来存放较大值 Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then m = a Else m = b End If If c m Then m = c Text4.Text = m End Sub 4.2.4 条件语句的嵌套 Then和Else后面的语句块包含另一个条件语句 1.一般格式 If 条件1 Then
您可能关注的文档
- UNIX课件三:文件系统.ppt
- UPS常见结构和工作原理.ppt
- UPS日常维护与故障分析.ppt
- UNIX系统的进程系统分析.ppt
- UPS讲座与交流直流系统线径计算.ppt
- USG防火墙NAT业务特性与配置.pptx
- USB大容量存储设备类驱动报告.ppt
- USPP家长会(签证方案).ppt
- USP基本知识通俗讲稿.ppt
- uv平板打印机资料大全.ppt
- 便民服务大厅智慧建设方案(49页 PPT).pptx
- 【专家PPT】曾鸣:如何推动新型电力系统建设?(28页 PPT).pptx
- 质量管理体系介绍(41页 PPT).pptx
- 5G+第三代物联网智慧医院(37页 PPT).pptx
- 仓储物流配送方案,仓库物流现状与配送方案、匹配资源(20页 PPT).pptx
- 仓储物流配送方案,仓库物流现状与配送方案、匹配资源(20页 PPT)(1).pptx
- 锂电池行业数字化转型-MES应用解决方案(35页 PPT).pptx
- 城市道路智慧交通技术方案(57页 PPT).pptx
- 商场智慧停车解决方案(79页PPT).pptx
- 智慧商店综合解决方案(60页 PPT).pptx
文档评论(0)