6.1单行If…Then条件语句（课件）-《程序设计基础（Visual Basic）》同步教学（电子工业出版社）

项目6 选择结构程序设计 项目导入 在日常生活中，经常会按照一定的条件做出相应的决定，在程序中同样如此。选择结构是结构化程序设计的基本结构之一，它是根据一定的条件来决定执行何种操作。 一般来说，选择是二支的，即条件非真即假，在执行选择结构时按照指定的条件进行判断，然后选择其中一组语句执行。比如，判断是否要上体育课，如果下雨则不上，否则照常上课。有些情况下，可供选择的结果可能多于两种，此时程序就有多种可能流向，这种结构称为多分支选择结构。 2 项目目标 掌握单行If…Then 语句的语法格式及执行过程。 掌握多行If…Then 语句的语法格式及执行过程。 会用If语句的嵌套来完成多分支结构及执行过程 会用多分支条件选择结构Select Case语句完成简单的程序设计 引导学生面对多种选择时提高自身实力，创造有利条件，做出正确的选择 3 4 任务1 单行If…Then条件语句 任务目标 掌握单行If…Then条件语句的语法格式及执行过程。 能够编写二支结构的程序 任务实施 (1)格式： If <条件>Then<语句组1>[Else<语句组2>] （2)说明： “条件”可以是关系表达式、布尔表达式或数值表达式，如果是数值表达式，非0为真，0为假。 （3）执行过程： 程序根据“条件”的值（True 或False），判断执行相应的操作。条件的值如果为真，则执行“<语句组1>”，否则执行“<语句组2>”。 “Else<语句组2>”是可选项。没有“Else<语句组2>”时，若“条件”为True，则执行“<语句组1>”，否则将跳过这一行语句，执行程序的下一行 5 注意事项： 在 If…Then 结构中，Then 后面的语句必须与 If 和 Then 写在同一行上；若要使用该结构执行多条语句，这些语句必须书写在同一行上，并且用冒号分隔。 6 【例7.1】计算s=1+2+3+...+100。 7 【例6.1】 任意输入一个整数，编写程序判断该整数的奇偶性。 课堂反馈： 编程：由文本框输入一个整数，判断是否为5的倍数。 8 8 任务2 多行If…Then条件语句 任务目标 掌握多行If…Then条件语句的格式及执行过程。 能够运用多行If…Then条件语句编写简单的程序。 任务实施 9 （1）格式： If <条件> Then <语句组 1> [ Else <语句组 2>] End If （2）执行过程： 该语句首先判断条件，若条件为True，则执行语句组1；否则，则执行语句组2。 10 【例6.2】从文本框输入两个整数，输出其中较大的数 11 【例6.3】 输入三角形 3 条边的长度，然后判断是否能够组成一个三角形，若可以则计算三角形的面积，并显示在窗体上；否则提示“输入的边长不能组成三角形！” 在窗体的单击事件中添加如下代码： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim s As Single a= Val(InputBox("请输入三角形第一条边的长度：","求三角形的面积")) b= Val(InputBox("请输入三角形第二条边的长度：","求三角形的面积")) c= Val(InputBox("请输入三角形第三条边的长度：","求三角形的面积")) If a+b<c Or b+c<a Or a+c<b Then MsgBox "输入的边长不能组成三角形！" Else s=Sqr((a+b)^2+(b+c)^2+(a+c)^2) Print"三角形的面积为：",s End If End Sub 12 课堂反馈： 编程：输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除。 13 $$