有纪念意义的网名在你想要放弃的那一刻.pptVIP

* 第 7 节《程序设计的基本方法》 广州市育才中学薛芝兰 教学目标： 1 、学会程序设计的基本方法。 2 、学会描绘流程图。 广州市初中信息技术教学同步资源包 第二册第二章 课时 : 一课时 ( 本节为选学内容，供选学用） /wangming/98.html 一、课堂引入 我们来游戏 游戏规则：分组猜数，看谁猜得又快又准 ! 猜的次数少的为赢。 二、看看代码，写出流程图 Private Sub Form_Click() Dim x As Integer Dim guess As Integer randomize x = Int(Rnd(10) * 100) Do While guess x 畧獥??湉異?硯尨 请输入你猜的数字（ 0~100 ） ?尠 猜数 ) If guess x Then 牐湩?畧獥?尠 太大了 ! Else If guess x Then 牐湩?畧獥?尠 太小了 ! End If End If Loop 牐湩? 恭喜你 , 猜对了 ! End Sub 声明随机数的变量类型 产生一个 1~100 的随机数 分支以及循环猜数 提示”猜对”输出 看看程序，用到什么结构？ 声明随机数的变量类型 产生一个 1~100 的随机数 分支以及循环猜数 提示”猜对”输出 语句一 语句二 …… . 语句 n 总的 : 程序从上往下按顺序 执行 --- 顺序结构 复习三种程序结构： If guess x Then 牐湩?畧獥?尠 太大了 ! Else If guess x Then 牐湩?畧獥?尠 太小了 ! End If End If 条件是否成立 语句块１ 语句块２ 条件语句的下一语句 分支结构 : 如果条件成立 (true) ，则执行语句块１； 否则，执行语句块２； 是 否 复习三种程序结构： Do While guess x 畧獥??湉異?硯尨 请输入你猜的 数字（ 0~100 ） ?尠 猜数 ) If guess x Then 牐湩?畧獥?尠 太大了 ! Else If guess x Then 牐湩?畧獥?尠 太小了 ! End If End If Loop 循环结构 : 当 条件 成立时，执行循环体， 否则退出循环。执行 loop 下一个语句。 是否满足循环条件 执行循环的语句 执行循环的下一语句 否 是 知识整理 事实上，任何计算机程序都可 以由这三种结构组合而成， 我们主要灵活运用好这些基 本结构，就可以编写各种各 样的程序，解决许多实际问 题。 三、修改程序，统计猜的次数 Dim x As Integer Dim guess As Integer randomize x = Int(Rnd(10) * 100) n = 0 Do While guess x 畧獥??湉異?硯尨 请输入你猜的数字（ 0~100 ） ?尠 猜数 ) n = n + 1 If guess x Then 牐湩?畧獥?尠 太大了 ! Else If guess x Then 牐湩?畧獥?尠 太小了 ! End If End If 牐湩? 你已经猜了 ?渠※ 次 Loop 牐湩? 恭喜你 , 猜对了 ! 声明随机数的变量类型 产生一个 1~100 的随机数 分支以及循环猜数 提示”猜对”输出 增加计数器 四、修改程序，增加起始密码 doWhile inputpassword ” 123456 ” Inputpassword=InputBox( “请输入密码” , ”输入密码“ ) loop Dim x As Integer Dim guess As Integer randomize x = Int(Rnd(10) * 100) n = 0 Do While guess x 畧獥??湉異?硯尨 请输入你猜的数字（ 0~100 ） ?尠 猜数 ) n = n + 1 If guess x Then 牐湩?畧獥?尠 太大了 ! Else If guess x Then 牐湩?畧獥?尠 太小了 ! End If End If 牐湩? 你已经猜了 ?渠※ 次 Loop 声明随机数的变量类型 产生一个 1~10