选择结构的应用 - 水质评价程序设计 课件（25张幻灯片）

课件25张PPT。选择结构的应用水质评价程序设计知识回顾程序设计一般流程算法设计（流程图设计）界面设计（对象设计）代码设计（表达式与结构设计）选择结构的基本语法行if语句： if 条件表达式 then 语句1 if 条件表达式 then 语句1 else 语句2块if语句： If 条件表达式 then 语句块1 else 语句块2 End if多分支块if语句： If 条件表达式1 then 语句块1 Elseif 条件表达式 2 then 语句块2 Else 语句块3 End if 选择结构的应用举例：判断某一年是否为闰年算法设计A ①Year 整除4 ②Year 整除 400 ③Year 整除100 B ①Year 整除400 ②Year 整除 4 ③Year 整除100 C ①Year 整除100 ②Year 整除 4 ③Year 整除 400 D ①Year 整除100 ②Year 整除 400 ③Year 整除 4 按照流程图，正确顺序应为：（ ）选择结构的应用算法设计A ①Year 整除4 ②Year 整除 400 ③Year 整除100 B ①Year 整除400 ②Year 整除 4 ③Year 整除100 C ①Year 整除100 ②Year 整除 4 ③Year 整除 400 D ①Year 整除100 ②Year 整除 400 ③Year 整除 4 按照流程图，正确顺序应为：（ D ）举例：判断某一年是否为闰年选择结构的应用一、判断某一年是否为闰年界面设计代码设计Private Sub Command1_Click() Dim year As Integer year = Val(Text1.Text) If _____ Then If year Mod 400 = 0 Then _____ Else Label2.Caption = "不是闰年" _____ ElseIf year Mod 4 = 0 Then Label2.Caption = "是闰年" Else Label2.Caption = "不是闰年" _____ End Sub选择结构的应用界面设计代码设计Private Sub Command1_Click() Dim year As Integer year = Val(Text1.Text) If year Mod 100 = 0 Then If year Mod 400 = 0 Then Label2.Caption = "是闰年" Else Label2.Caption = "不是闰年" End If ElseIf year Mod 4 = 0 Then Label2.Caption = "是闰年" Else Label2.Caption = "不是闰年" End If End Sub举例：判断某一年是否为闰年水质评价程序设计“绿水青山就是 金山银山”是时任浙江省委书记习近平同志于2005年8月在浙江湖州安吉考察时提出的科学论断。双江溪 杨浦水库 绍兴是著名的水乡，我们先来了解一下，水质的分类水质评价程序设计Ⅰ类主要适用于源头水、国家自然保护区； Ⅱ类主要适用于集中式生活饮用水地表水源地一级保护区、珍稀水生生物栖息地、鱼虾类产场、仔稚幼鱼的索饵场等； Ⅲ类主要适用于集中式生活饮用水地表水源地二级保护区、鱼虾类越冬场、洄游通道、水产养殖区等渔业水域及游泳区； Ⅳ类主要适用于一般工业用水区及人体非直接接触的娱乐用水区； Ⅴ类主要适用于农业用水区及一般景观要求水域。双江溪 杨浦水库 鉴湖 环城河 稻田 水质的分类：水质评价程序设计双江溪 杨浦水库 水质标准是如何判定的呢？绍兴的水质水质评价程序设计地表水环境质量标准?GB3838-2002水质评价程序设计算法设计界面设计水质评价程序设计算法设计界面设计水质评价程序设计代码设计Private Sub Command1_Click() Dim dox As Single Dim doxl As Integer dox = _____ If dox >= 7.5 Then doxl = 1 ElseIf dox >= 6 Then doxl = 2 ElseIf dox >= 5 Then doxl = 3 Else doxl = 4 _____ If _____Then Label2.Caption = Mid("ⅠⅡⅢ", doxl, 1) + "类水质" Else Label2.Caption ="不达标水质" End Sub水质评价程序设计代码设计Private Sub Command1_Click() Dim dox As Single Dim doxl As Integer dox = Val(Text1.Text) If dox >= 7.5 Then doxl = 1 ElseIf dox >= 6 Then doxl = 2 ElseIf dox >= 5 Then doxl = 3 Else doxl = 4 End If If doxl <= 3 Then Label2.Caption = Mid("ⅠⅡⅢ", doxl, 1) + "类水质" Else Label2.Caption ="不达标水质" End Sub水质评价程序设计 ... ...