资源描述：
《信息的编程加工课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、信息的编程加工微山县第一中学第课10编程绘制y=x^2的函数图像问题分析“描点法”手工绘制步骤：第一步准备好绘图工具；第二步绘制坐标系的横轴与纵轴；第三步依据要绘图的函数表达式， 选择几个自变量的值算出相 应的因变量值，得到一组坐 标点；第四步在坐标系上描出这几个点， 尽量光滑地描点连线。问题分析计算机编程绘制函数图像的过程：第一步选择计算机程序设计语言；第二步绘制坐标系；第三步根据函数表达式计算所要描 点的坐标；第四步在坐标系上描点成像。让我们一起动手体验编程信息编程加工的四个步骤①分析信息；②设计方法；③编写代码；④调试运行。②设计方法；③编写代码；认
2、识代码PrivateSubCommand1_Click()Dimx,yAsSinglePicture1.Scale(-10,25)-(10,-25)Picture1.Line(-10,0)-(10,0),RGB(0,0,255)Picture1.Line(0,25)-(0,-25),RGB(0,0,255)Forx=-10To10Step0.0001y=x^2Picture1.PSet(x,y),RGB(255,0,0)NextxEndSubPrivateSubCommand1_Click()Dimx,yAsSinglePicture1.Scale(-10
3、,25)-(10,-25)Picture1.Line(-10,0)-(10,0),RGB(0,0,255)Picture1.Line(0,25)-(0,-25),RGB(0,0,255)Forx=-10To10Step0.0001y=x^2Picture1.PSet(x,y),RGB(255,0,0)NextxEndSub认识代码PrivateSubCommand1_Click()‘确定按钮单击事件Dimx,yAsSinglePicture1.Scale(-10,25)-(10,-25)Picture1.Line(-10,0)-(10,0),RGB(0,0
4、,255)Picture1.Line(0,25)-(0,-25),RGB(0,0,255)Forx=-10To10Step0.0001y=x^2Picture1.PSet(x,y),RGB(255,0,0)NextxEndSub‘结束程序认识代码PrivateSubCommand1_Click()Dimx,yAsSingle‘定义x,y两个变量Picture1.Scale(-10,25)-(10,-25)Picture1.Line(-10,0)-(10,0),RGB(0,0,255)Picture1.Line(0,25)-(0,-25),RGB(0,0,2
5、55)Forx=-10To10Step0.0001y=x^2Picture1.PSet(x,y),RGB(255,0,0)NextxEndSub认识代码PrivateSubCommand1_Click()Dimx,yAsSinglePicture1.Scale(-10,25)-(10,-25)‘定义坐标系Picture1.Line(-10,0)-(10,0),RGB(0,0,255)Picture1.Line(0,25)-(0,-25),RGB(0,0,255)Forx=-10To10Step0.0001y=x^2Picture1.PSet(x,y),RG
6、B(255,0,0)NextxEndSub（-10，25）（10，-25）认识代码PrivateSubCommand1_Click()Dimx,yAsSinglePicture1.Scale(-10,25)-(10,-25)Picture1.Line(-10,0)-(10,0),RGB(0,0,255)‘画横坐标轴，颜色为蓝色Picture1.Line(0,25)-(0,-25),RGB(0,0,255)Forx=-10To10Step0.0001y=x^2Picture1.PSet(x,y),RGB(255,0,0)NextxEndSub（-10，0）（
7、10，0）认识代码PrivateSubCommand1_Click()Dimx,yAsSinglePicture1.Scale(-10,25)-(10,-25)Picture1.Line(-10,0)-(10,0),RGB(0,0,255)Picture1.Line(0,25)-(0,-25),RGB(0,0,255)‘画纵坐标轴，颜色为蓝色Forx=-10To10Step0.0001y=x^2Picture1.PSet(x,y),RGB(255,0,0)NextxEndSub（0，25）（0，-25）认识代码PrivateSubCommand1_Clic
8、k()Dimx,yAsSinglePicture1.Scale(-
