导学案010解析算法.doc

信息技术导学案
备课
时间
20100815
主备人
章亚园
审核人

使用人

课题
解析算法
课 型
复习课
编 号
010
学习
目标
1．了解解析算法思想。
2．初步掌握解析算法实现。
重难点
解析算法的思想、计算公式的确定、运用解析算法解决问题
课堂
训练
解析算法的概念：

Private Sub Form_Click()
S=0
For i=1 to 100

Next i
Text1.Text=Str(s)
End Sub 第二题
1.、某县政府为了开发山区农业，需要研究本区的山地气候。已有的研究成果表明，海拔每升高100米，平均气温降低0.5℃。下面的程序是根据这一规律，在文本框Text1、Text2中分别输入山下地表温度及相对海拔高度后，输出相应高地的气温，请完善程序。
Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(text1.Text)
b = Val(text2.Text)
c =
text3.Text = Str(c)
End Sub 第一题

2、以下程序的功能是求表达式1*100+2*99+3*98+……+98*3+99*2+100*1的值，请把程序填写完整。
3、某城市现有总人口为500万，如果按每年人口的自然增长旅为0.3%计算，在多少年后城市人口将变成800万？请完善下面的程序段。
Private Sub Command1_Click()
s=
y=0
Do While
s=
y=
Text1.Text = Str(y)
Loop
End Sub 所有题目皆来自《技术高考总复习》详细见书本。
课后
反思

新课
预习

汇总整合
疑问