3.9算法及VB初步3 ——以“鸡兔同笼”为例.

Presentation on theme: "3.9算法及VB初步3 ——以“鸡兔同笼”为例."— Presentation transcript:

1 3.9算法及VB初步3 ——以“鸡兔同笼”为例

2 算法的三种基本控制结构 顺序结构 选择结构 循环结构

3 典型试题 输出的s是多少？ 次序 s i 初始值 1 3 2 5 15 7 4 105 9 945 11 Private Sub Command1_Click() Dim i As Integer Dim s As Long s = 1 For i = 1 To 10 Step 2 s = s * i Print s Next i Label1.Caption = Str(s) End Sub

4 用Excel计算流程图

5 练习 用Excel分析这道流程图试题。

6 VB的典型语句

7 VB典型事件试题

8 鸡兔同笼问题 今有雉兔同笼，上有三十五头，下有九十四足，问雉兔各几何？”
假设鸡和兔都训练有素，吹一声哨，抬起一只脚，94-35=59。再吹哨，又抬起一只脚，59-35=24，这时鸡都一屁股坐地上了，兔子还两只脚立着。所以，兔子有24÷2=12只，鸡有35-12=23只。 假设头是h，腿是l，则： 兔子 r=(l-2*h)/2 鸡 c=h-兔子

9 鸡兔同笼流程图 开始 输入头数h、腿数l的值 假设头是h，腿是l r (l-2*h )/2 兔子 r=(l-2*h)/2 c h-r
结束 输入头数h、腿数l的值 输出r和c的值 r (l-2*h )/2 c h-r 假设头是h，腿是l 兔子 r=(l-2*h)/2 鸡 c=h-r

10 变量 开始 结束 输入头数h、腿数l的值 输出r和c的值 r (l-2*h )/2 c h-r h,l,r,c这些是什么呢？

11 变量的定义 Dim 变量名 as 数据类型 如： Dim h as integer,l as integer
Dim tx as string 说明： Integer为整形，存储一定范围内的正负整数。 String为字符串。

12 变量 计算机语言中用于储存计算结果 变量命名规则 必须以字母开头，只能由字母、数字和下划线“_”组成； 变量名的长度不得超过255个字符；
变量名不能是VB中的保留字（关键字） 变量名在VB中是不区分大小写的（如ABC、aBc、abc等都是一样的） 1、下列变量命名正确的是（ ） A、 A_ B、sub C、3cock

13 h = Text1.Text Label2.Caption = r 开始 输入 计算 输出 结束 省略计算过程
Private Sub Command1_Click() Dim r As Integer, c As Integer Dim l As Integer, h As Integer h = Text1.Text l = Text2.Text r = (l - 2 * h) / 2 c = h - r Label1.Caption = r Label2.Caption = c End Sub Label2.Caption = r

14 赋值语句 赋给某个变量或者某个对象的属性一个确定值的语句 格式： 变量名=表达式 （其中“=”为赋值号） 对象名.属性名=表达式 如：
r=5 s=3.14*r*r n=n+1 Label1.caption =“你好”

15 课堂任务 完成鸡兔同笼程序的编写。 基本要求： 输入头和脚的数量，能正确输出计算结果。 有图，界面美观。 进阶要求：
输入错误数据后，能够提醒，程序不会崩溃。