高一VB程序选择结构if语句.pptVIP

程序的选择结构 程序的三种基本结构 顺序结构 选择结构 循环结构 选择控制结构可以用选择语句来表示。选择语句能使程序在执行过程中，根据不同的判断结果，选择执行不同的处理。选择语句的主要形式是if语句。 请你来翻译 如果X小于a，那么输出数低了； If x a Then Print 数低了 If……then…… 如果……那么…… 如果X大于a，那么输出数高了； If x a Then Print 数高了 如果X和6000相等，那么输出猜中了； If x = 6000 Then Print 猜中了 单分支条件语句格式(行) If 条件表达式 Then 语句块 满足条件，计算机反馈结果TRUE,接着执行then后面的操作，不满足则反馈false，不执行then后面的操作。 可以有一条或多条语句 如有多条语句，必须使用冒号（:）来分隔语句 行If语句 Dim x As Integer X=Val(Text1.Text) If x mod 2 = 0 Then Label1.Caption = x “是偶数” 例：在文本框中输入一个整数，判断该数是不是偶数 X Mod 2=0？ 输出偶数 下一个语句 T F 输入x If 条件表达式 Then 语句块 End If 告诉这个语句结束了，所以是必须的！！！ 块If语句 单分支条件语句格式(块) 例：在文本框中输入一个整数，判断该数是不是偶数 Dim x As Integer X=Val(Text1.Text) If x mod 2 = 0 Then Label1.Caption = x “是偶数” End If 例：求一个数的绝对值 算法： 输入一个数x 如果x≥0,那么输出x 否则，输出-x 结束 在解决问题的过程中，常常需要对事物进行判断和选择，因此就要用到条件语句。 If……then……else…… 如果……那么……否则…… X =0？ 输出x 输出-x T F 输入x Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If x = 0 Then Label1.Caption = x Else Label1.Caption = -x End Sub 例：求一个数的绝对值 If x = 0 Then Label1.Caption = x Else Label1.Caption = -x End If 双分支条件语句格式 If 条件表达式 Then 语句块1 Else 语句块2 End If 块If语句 If 条件表达式 Then 语句块1 Else 语句块2 行If语句 语句结束标记不可少！ 练习：在文本框中输入一个整数，判断该整数的奇偶性。 X Mod 2=0？ 输出偶数 输出奇数 T F 输入x Dim x As Integer X=Val(Text1.Text) If (x mod 2) = 0 Then Label1.Caption = x “是偶数” Else ‘增加else子句，显示奇数 Label1.Caption = x “是奇数” End If 例：输入华氏温度F，转换成摄氏温度C并显示天气情况。 转换公式：C= (F-32)*5/9 分析： C40 时，输出“高温 30C≤40 时， 输出“ 热 20C≤30 时，输出“ 舒适 10C≤20 时，输出“凉爽 0C≤10 时，输出冷 C≤0 时，输出“ 冰冻 If 条件1 Then 语句组1 ElseIf 条件2 Then 语句组2 …… ElseIf 条件NThen 语句组N Else 其他语句组 End If ElseIf 之间不允许有空格 End If 之间必须有空格 If…Then 和 ElseIf…Then 必须书写在同一行 If语句 ElseIf子句 ElseIf子句 Else子句 End If语句 嵌套ElseIf语句 Private Sub Command1_Click() F = Val(Text1.Text) C = 5 / 9 * (F- 32) Text2.Text = C If C 40 Then Label2.Caption = “高温” ElseIf C 30 Then