单向选择双向选择结构[精选].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()。 *