初中信息技术程序设计的基本方法解析

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