程序的选择结构（一）.ppt

程序的选择结构（一） 程序的顺序结构 特点： 1、按从上到下 的顺序执行 2、只有一个入 口和一个出口 顺序执行 玩游戏——猜拳 心情调查 选择结构——条件语句 通过检验某个条件表达式是否成立来决定程序执行的方向，这种控制结构称为选择结构(Selection structure)。 关系表达式 用关系运算符将两个表达式连接起来的式子。 关系表达式的值 当关系表达式成立时其值为真（Ture），当关 系表达式不成立时其值为假（Flase）；关系 表达式的值既不是数值类型，也不是字符 类型，而是逻辑型（Boolean）。逻辑型只有两个可能的值 假（Flase）和真（Ture） （1）数值型的数据比较： 按照数值的大小进行比较 如：13>6 值为Ture 98=89 值为Flase （2）对字符串类型的数据比较： 按照字典顺序进行比较 如：”A”<”B” 值为Ture “CD”>“CF” 值为Flase 条件语句格式1-1 IF <条件> Then <语句> 条件语句格式1-2 功能：当条件为真时执行Then 后的语句，然后执行下一行语 句；当条件为假时，直接执行 下一行语句。 IF <条件> Then <语句块> End if 功能：当条件为真时执行Then 后的语句块，然后执行End if后 面的语句；当条件为假时，直 接执行End if后面的语句。 If A>B Then print A 如果A大于B，那么输出A的值 If A Mod B=0 Then C=A 如果A除以B余数为0，那么把A赋值给C If A<B Then T=A A=B B=T End If 如果A小于B，那么两数交换 习题一 输入一个整数，判断它是否是偶数。 Label1 Text2 Text1 Command1 N=Text1.text …… Text2.text=“是偶数” 参考代码 Private Sub Command1_Click() Dim n As Integer n = text1.Text If n Mod 2 = 0 Then text2.Text = "是偶数" If n Mod 2 <> 0 Then text2.Text = "不是偶数" End Sub Private Sub Command1_Click() Dim n As Integer n = text1.Text If n Mod 2 = 0 Then text2.Text = "是偶数“ Else text2.Text = "不是偶数" End Sub Private Sub Command1_Click() Dim n As Integer n = text1.Text If n Mod 2 = 0 Then text2.Text = "是偶数“ Else text2.Text = "不是偶数“ End If End Sub Else语句的作用 条件语句格式2-1 IF <条件> Then <语句1> Else <语句2> 条件语句格式2-2 功能：当条件为真时执行Then 后的语句1，然后执行下一行语 句；当条件为假时，执行Else 后面的语句2，然后执行下一行 语句。 IF <条件> Then <语句块1> Else <语句块2> End if 功能：当条件为真时执行Then 后的语句块1，然后执行End if 后面的语句；当条件为假时，执 行Else后面的语句块2，然后执行 End if后面的语句。 习题二 求一元二次方程ax2+bx+c=0(a≠0)的实数根 求法： (1)求△=b2-4ac (2)如果△≥0，求出两实根 (3)否则“无解” (4)结束 设计算法： 开始 输入a,b,c D≥0? 结束 是 否 X2=(-b-sqr(D))/2a 输出”No solution!” 求D＝b2-4ac 输出x1,x2 X1=(-b+sqr(D))/2a 求一元二次方程ax2+bx+c=0(a≠0)的实数根 小结 （一）条件语句的两种格式： 格式1-1 IF <条件> Then <语句> 格式1-2 IF <条件> Then <语句块> End if IF <条件> Then <语句1> Else <语句2> IF <条件> Then <语句块1> Else <语句块2> End if 格式2-1 格式2-2 （二）关系表达式：用关系运算符将两个表达式连接起来的式子。 * *