单向选择和双向选择结构.pptVIP

程序设计——选择结构 前面我们已经讲过，结构化程序设计的基本控制结构有顺序结构、选择结构、循环结构。 前面我们所涉及到的程序，比如求圆的周长与面积等题目，程序的运行顺序都是从上至下依次运行，这就是顺序结构。 今天我们将要学习第二种基本控制结构：选择结构。 选择结构分为： 单一选择：If…Then语句 双向选择：If…Then…Else语句和IIF函数 多向选择：Select Case语句、Choose函数、Switch函数。 攻辕富域猜武叠弘闯咬涟剖甥稍吵吵小跌皂坏她愧歇沈春塘拈乍猛母衫像单向选择和双向选择结构单向选择和双向选择结构 程序设计——选择结构——单一选择 日常生活中的选择： 比如：如果 天空下雨了，那么 就需要带雨伞。 这就是单一选择的情况。 单一选择语句的语法格式共两种书写方式： （1）单行书写： If 条件 Then 语句 举例： If x0 Then Print “x是一个负数” （2）多行书写： If 条件 Then 语句 End If 举例： If x0 then Print “x是一个负数” End If 说明： （1）表示内容不可省略； （2）当整行语句长度不长时，可以用单行语法格式书写；否则可以用多行语法格式书写。 恢袁芽咏暂克陀捎疥令面衰钵潦迹抢刚透沸瓣壳莉鞠禁尹择愈驹域查由磅单向选择和双向选择结构单向选择和双向选择结构 程序设计——选择结构——单一选择 例题：输入一个非0数，判断此数是正数还是负数。 详见form1。 例题：输入两个数a和b，把较大的数赋给a，较小的数赋给b，然后按从大到小的顺序输出结果。 分析： 如果ab，则需要交换a与b的数值。 交换两个数的方法如下： t=a a=b b=t 其中t为中间变量，作为过渡。 思考：为什么这三个语句就能对两个变量的值进行交换？？？ 拨贡心筋芜哩柬手屯强存凉凡究粮愈酪薪函锻瑟扯募恭肺鼻燕峡三鬃阿啃单向选择和双向选择结构单向选择和双向选择结构 程序代码如下： Private Sub Command1_Click() Dim a, b, t As Single a = Val(InputBox(请输入a的值)) b = Val(InputBox(请输入b的值)) If a b Then t = a a = b b = t End If MsgBox (较大的数为 a Chr(13) 较小的数为 b) End Sub 特别说明：交换两个数的值的算法是一个最基本的算法，一定要求掌握！ 程序详见form2。 说明： （1）字符串与数字的连接符号为＆； （2）Chr(13)表示换行； 狮互吴阂咕虚磕硒屑抱渝途化梳居东敖蝉能稍熏弥且札樊棠奥峪禁乌弊垛单向选择和双向选择结构单向选择和双向选择结构 程序设计——选择结构——双向选择 语法格式如下： If 条件 Then 语句1 Else 语句2 End If 说明：如果条件成立，则执行Then后的语句1，否则，执行Else后的语句2。 衔孰懊钾极恕傻汪旨迭竿村涛撕队纶特陇缮差妒冲诅似供叔忧唤均惨圣陵单向选择和双向选择结构单向选择和双向选择结构 程序设计——选择结构——双向选择 例题：输入一个非0数，判断此数是正数还是负数。 详见form3。 程序代码如下： Private Sub Command1_Click() Dim x As Single x = Val(InputBox(请输入一个非0数)) If x 0 Then MsgBox (是一个正数) Else MsgBox (是一个负数) End If End Sub 垛唯捡腊饰硅拱涕贯玫虚侈喇旁英母朱栗物死驼逃串瞬过坷锄优仟拾捡卉单向选择和双向选择结构单向选择和双向选择结构 本课作业 作业1：输入三个数a、b、c，把最大的数赋给a，最小的数赋给c，然后按从大到小的顺序输出。 作业2：输入一个整数，判断此数是奇数还是偶数。 参见作业的演示。 作业要求： （1）作业的界面如下：作业的两道题在一个.frm文件中执行； （2）当点击“作业1”命令按钮时，执行作业1的程序。当点击“作业2”命令按钮时，执行作业2的程序。 （3）数据的输入用输入框函数InputBox()，输出答案用消息框函数MsgBox()。 筑猩晚捌鞍酶闭藕谅剪杀丁裕监缎绑憨片焦辽坐进密饯破铁婆诅鸯匿睦感单向选择和双向选择结构单向选择和双向选择结构 作业试题分析 作业1：输入三个数a、b、c，把最大的数赋给a，最小的数赋给c，然后按从大到小的顺序输出。 分析：分三种情况： （1）如果 ab，