渗透学科教学的高中信息技术教学实践(二)
附：
程序设计：画一元二次函数：y=x^2的图像
程序界面：修改前如图1，修改后，如图2
图1 图2
程序原代码：
Private Sub Command1_Click()
Dim x, y As Single
Picture1.Scale (-10, 25)-(10, -25)
Picture1.Line (-10, 0)-(10, 0), RGB(255, 0, 0)
Picture1.Line (0, -25)-(0, 25), RGB(255, 0, 0)
For x = -10 To 10 Step 0.0001
y = x ^ 2 ‘可修改此处的表达式，得出不同函数的图像，如y=x^2+5,y=sin(x)等；修改后观察图像的变化。
Picture1.PSet (x, y), RGB(0, 0, 255)
Next x
End Sub
修改后代码：
Private Sub Command1_Click()
Dim x, y As Single
Picture1.Scale (-10, 25)-(10, -25)
Picture1.Line (-10, 0)-(10, 0), RGB(255, 0, 0)
Picture1.Line (0, -25)-(0, 25), RGB(255, 0, 0)
For x = -10 To 10 Step 0.0001
y = x ^ 2
Y1 = x ^ 2 + 5
Y2 = (x + 2) ^ 2
Picture1.PSet (x, y), RGB(0, 0, 255)
Picture1.PSet (x, Y1), RGB(255, 0, 0)
Picture1.PSet (x, Y2), RGB(0, 255, 0)
Next x
End Sub
此外，在Excel统计，计算等教学部分，我们也可以结合数学学科教学展开，如一些常用函数sum()、average()和计算中到的公式等都可以结合数学教学展开。
渗透语文学科教学的信息技术教学实践
在信息获取教学中，可以诗歌大赛的形式展开，也可以以成语接龙的形式展开，学生在总结、掌握搜索技巧的同时，也学习了很多了诗歌、成语，很好地渗透了我们的语文学科教学。
渗透学科教学的高中信息技术教学实践(二)由毕业论文网（www.huoyuandh.com）会员上传。
