鸡兔同笼(续) ——选择结构
熟练掌握赋值语句 赋值语句的一般格式为： 变量名 = 表达式 对象名.属性名 = 属性值 “=” 是赋值号 赋值语句的作用是：先计算赋值号右边表达式的值，然后把表达式的值赋给赋值号左边的变量或对象的属性。 n=n+1 Label1.caption=str(n) Form1.BackColor = RGB(12, 59, 103)
区分输入输出语句 输入： H=val(text1.text) 输出： Label3.caption=str(c)
算法的三种基本结构 顺序结构 选择（分支）结构 循环结构
顺序结构 Dim h as integer,l as integer Dim c as single,r as single h=val(text1.text) l=val(text2.text) r=(l-2*h )/2 c=h-r label3.caption=str( c) label4.caption=str( r)
顺序结构 定义pai为常量 Const pai=3.1415 Dim r as single,s as single 常量：程序中不可被修改的量。 定义方法： Const 常量名 as 数据类型=值 或 Const 常量名=值 如： Const e= 2.71828 或者 Const e as single=2.71828 Const pai=3.1415 Dim r as single,s as single r=val(text1.text) s=pai*r^2 label4.caption=str( s)
思考 上节课完成的“鸡兔同笼”程序存在什么不足？ 改进的算法： 如果求出来的鸡或兔子数量不是自然数，那么显示“请输入正确的总数和腿数”，并把几个输入文本框内容清空，否则分别输出鸡和兔的数量。 如何判断一个数是自然数呢？
算术运算符 运算符 功能 优先级 例子 值 ^ 乘方 1 3^2 9 - 负号 2 -2^2 -4 *、/ 乘、除 3 3*4/2 6 \ 整除 4 4\3 MOD 求余数 5 5 mod 3 +、- 加、减 2+3-2
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
判断一个数是自然数 判断一个数x为是否为整数 如果 int(x)=x ,则 x就是一个整数。 判断一个数是否为非负数 方法二：如果 abs(x)=x ,则 x就是一个非负数 判断一个数x是非负整数 如果int(abs(x))=x,则x就是自然数
关系运算符:返回的值为True或False 基本运算 运算符 优先级 表达式 表达式的值 相等 = 7 A =0 不相等 <> A <>0 小于 < “abc”< “ace” 大于 > A >13 小于等于 <= A<=20 大于等于 >= A>=32 False True True False True False
分支结构 块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 语句
逻辑类运算符 a=10 True True True 基本运算 运算符 优先级 表达式 表达式的值 非 Not 8 Not (a>12) 与 And 9 a>=5 and a<=15 或 Or 10 (A>5) or ( a<-5) True True True
运算符优先级比较 算术运算符>关系运算符>逻辑运算符 a=5:b=6:c=10 If A+b>c and a+c>b and b+c>a then msgbox “可以组成三角形” Else msgbox ”不能组成三角形” End if
课堂实践 改进要求： 如果求出来的鸡或兔子数量不是自然数，那么显示“请输入正确数值”，并把几个输入文本框内容清空，否则分别输出鸡和兔的数量。 以对话框的形式提示信息： Msgbox “请输入正确的总数与腿数”
鸡兔同笼流程图 开始 结束 输入h和l的值 输出c和r的值 r=(l-2*h)/2 c=h-r Y N 请正确输入h和l的值