3.13 选择结构程序设计初步

读程序：指出错误 Dim h As Single Dim w As Single Dim b As Single b = w / h h = Val(Text1.Text) w = Val(Text2.Text) Label4.Caption = Str(b)

读程序：指出错误 Private Sub Command2_Click() Label4.Caption = 你好中国 End Sub 为什么没有任何显示？ Dim 你好 As String 你好 = "123" Label1.Caption = 你好

区分输入输出语句 输入： 输出： H=val(text1.text) Label3.caption=str(c) Text1.text=str(c) List1.add str(c)

算法的三种基本结构 顺序结构 选择（分支）结构 循环结构

分支结构 N Y 开始 结束 条件 执行a 执行b 【方式 2】 N Y 开始 结束 执行a 执行b 执行C 条件 N Y 开始 结束 条件 【方式 1】 【方式 3】

If len(sfz) <> 18 Then msgbox ("请正确输入！") End If If 条件 then 语句系列1 End if N Y 开始 结束 条件 执行a If len(sfz) <> 18 Then msgbox ("请正确输入！") End If 行if结构 If 条件 then 语句 If h = 0 Then msgbox ("请正确输入！")

思考 什么情况下会出现：“块if没有end if”？ 什么情况下不能用“行if”？ If len(sfz) <> 18 Then msgbox ("请正确输入！") exit Sub End If

If Mid(sfz, 17, 1) Mod 2 = 0 Then s = s + "女" Else s = s + "男" If 条件 then 语句系列1 Else 语句系列2 End if If Mid(sfz, 17, 1) Mod 2 = 0 Then s = s + "女" Else s = s + "男" End If N Y 开始 结束 条件 执行a 执行b 行if结构 If 条件 then 语句系列1 else 语句系列2 If Mid(sfz, 17, 1) Mod 2 = 0 Then s = s + "女" Else s = s + "男"

If fs >= 90 Then Label6.Caption = "优秀！" ElseIf fs >= 60 Then If 条件 then 语句系列1 Elseif 条件 then 语句系列2 Else 语句系列3 End if N Y 开始 结束 执行a 执行b 执行C 条件 If fs >= 90 Then Label6.Caption = "优秀！" ElseIf fs >= 60 Then Label6.Caption = "及格！" Else Label6.Caption = "不及格！" End If

✘ ✔ 思考： 小于90并且大于等于60的表达式要怎么写？ 90 > fs >= 60 fs >= 60 and fs<90 ✘ ✔

思考： fs >= 60要不要写成”fs >= 60 and fs<90”? If fs >= 90 Then Label6.Caption = "优秀！" ElseIf fs >= 60 Then Label6.Caption = "及格！" Else Label6.Caption = "不及格！" End If fs >= 60要不要写成”fs >= 60 and fs<90”? 小于90并且大于等于60的表达式要怎么写？

鸡兔同笼问题的研究 问题描述： 一笼子里关着兔子和鸡，兔子和鸡共有h只，腿一共有L条，请你求出兔有几只，鸡有几只。 要求： 如果求出来的鸡或兔子数量不是自然数，那么显示“请输入正确数值”，并把几个输入文本框内容清空，否则分别输出鸡和兔的数量。 以对话框的形式提示信息： Msgbox “请输入正确的总数与腿数”

鸡兔同笼流程图 开始 结束 输入h和l的值 输出c和r的值 r=(l-2*h)/2 c=h-r ? Y N 请正确输入h和l的值

判断一个数是自然数 判断一个数x为是否为整数 如果 int(x)=x ,则 x就是一个整数。 判断一个数是否为非负数 方法二：如果 abs(x)=x ,则 x就是一个非负数 判断一个数x是非负整数 如果int(abs(x))=x,则x就是自然数

VB常用数学函数 函数名 函数的功能 示例 Sqr(x) 求x的算术平方根 Sqr(16)的返回值为4 Int(x) Abs(x) 取绝对值 Abs(-5.5)的返回值为5.5 Exp(x) 求e的X次方 Log(X) 求以e为底的X的对数 Exp(Log(4))的返回值是4 Log(Exp(6))的返回值是6

关系运算符:返回的值为True或False 基本运算 运算符 优先级 表达式 表达式的值 相等 = 7 A =0 不相等 <> A <>0 小于 < “abc”< “ace” 大于 > A >13 小于等于 <= A<=20 大于等于 >= A>=32 False True True False True False

课堂练习 a.若小于18则为营养状况较差 b.若在18--23.9之间则为标准 c.若大于23.9者，即可诊断为肥胖症营养过剩。 计算结果 提示

基本要求 采用“块if”的写法。 If语句中，不能出现“:”。 让代码的缩进符合要求。

进阶要求

小结 块if结构 If 条件 then 语句系列1 Else 语句系列2 End if 行if结构 Y 开始 结束 条件 执行a 执行b 行if结构 If 条件 then 语句系列1 else 语句系列2 块if结构 If 条件 then 语句系列1 End if N Y 开始 结束 条件 执行a 行if结构 If 条件 then 语句