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

*第7节《程序设计的基本方法》 广州市育才中学薛芝兰 教学目标：1、学会程序设计的基本方法。 2、学会描绘流程图。 一、课堂引入 我们来游戏 游戏规则：分组猜数，看谁猜得又快又准!猜的次数少的为赢。 二、看看代码，写出流程图 Private Sub Form_Click() Dim x As Integer Dim guess As Integer randomize x = Int(Rnd(10) * 100) Do While guess x guess = InputBox(请输入你猜的数字（0~100）, 猜数) If guess x Then Print guess; 太大了! Else If guess x Then Print guess; 太小了! End If End If Loop Print 恭喜你,猜对了! End Sub 看看程序，用到什么结构？ 复习三种程序结构： If guess x Then Print guess; 太大了! Else If guess x Then Print guess; 太小了! End If End If 复习三种程序结构： Do While guess x guess = InputBox(请输入你猜的数字（0~100）, 猜数) If guess x Then Print guess; 太大了! Else If guess x Then Print guess; 太小了! End If End If Loop 知识整理 事实上，任何计算机程序都可以由这三种结构组合而成，我们主要灵活运用好这些基本结构，就可以编写各种各样的程序，解决许多实际问题。 三、修改程序，统计猜的次数 Dim x As Integer Dim guess As Integer randomize x = Int(Rnd(10) * 100) n = 0 Do While guess x guess = InputBox(请输入你猜的数字（0~100）, 猜数) n = n + 1 If guess x Then Print guess; 太大了! Else If guess x Then Print guess; 太小了! End If End If Print 你已经猜了; n; 次 Loop Print 恭喜你,猜对了! 四、修改程序，增加起始密码 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 guess = InputBox(请输入你猜的数字（0~100）, 猜数) n = n + 1 If guess x Then Print guess; 太大了! Else If guess x Then Print guess; 太小了! End If End If Print 你已经猜了; n; 次 Loop 五、程序的设计步骤 课堂小结 1、任何计算机程序都可以由顺序、分支、循环三种结构灵活组合而成。 2、要懂得程序的设计步骤。 课堂小结 我也想有那么一个人，将最无助伤心的我搂在怀里，像爸爸一样抚摸着我的头。 对话要怎么说，表情才不难过；故事要怎么写，结局才不寂寞 总有那么一个人让我胸口一热。 给你脸的时候请你珍惜。 男人，本该没心没肺没爱情。 课堂小结 ﹌　别用你的想像定位的我发展方向。 重要的人越来越少...剩下的人越来越重要... ﹌　女人要知道，适合你的和你想要的。完全是俩回事儿 我想我再也不会那么疯狂的爱上一个人了，因为我唯一的炽烈被他耗尽了。 ﹌　爱人爱人，既然爱了就别轻易换人。 只是可惜的是，到最后我都没发现他可以像我爱他那样爱我。 课堂小结 感情有时候只是一个人的事情。和任何人无关。爱，或者不爱，只能自行了断。 女人最好天真、为她所爱的人。 到现在我还是喜欢你，可是我不能让你知道，就让它成为一个秘密吧。 一句习惯就好，敷衍了多少人。 浑浑噩噩，迷迷糊糊的过了一天 ,在迷迷糊糊的过下一天 ,每天都是这样 ,,有时候我都不知道我每天在做什么. ゛ 我只是一个凡人，我也需要一个女人懂我的情绪，安抚我这颗动荡不安的心　つ 课堂小结 哪怕给我全世界，不如给我一个你. 每天重复着那些无聊的事情,已经麻木的不去想你,因为一想你,全身都会不住