信息的编程加工

信息的编程加工第课10编程绘制y=x^2的函数图像问题分析“描点法”手工绘制步骤：第一步准备好绘图工具；第二步绘制坐标系的横轴与纵轴；第三步依据要绘图的函数表达式，

选择几个自变量的值算出相

应的因变量值，得到一组坐

标点；第四步在坐标系上描出这几个点，

尽量光滑地描点连线。问题分析计算机编程绘制函数图像的过程：第一步选择计算机程序设计语言；第二步绘制坐标系；第三步根据函数表达式计算所要描

点的坐标；第四步在坐标系上描点成像。让我们一起动手体验编程信息编程加工的四个步骤①分析信息；②设计方法；③编写代码；④调试运行。②设计方法；③编写代码；认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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,255)

Forx=-10To10Step0.0001 y=x^2

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub PrivateSubCommand1_Click()

Dimx,yAsSingle

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,255)

Forx=-10To10Step0.0001 y=x^2

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub 认识代码PrivateSubCommand1_Click()

‘确定按钮单击事件

Dimx,yAsSingle

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,255)

Forx=-10To10Step0.0001 y=x^2

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub

‘结束程序认识代码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,255)

Forx=-10To10Step0.0001 y=x^2

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub 认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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,255)

Forx=-10To10Step0.0001 y=x^2

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub （-10，25）（10，-25）认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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,255)

Forx=-10To10Step0.0001 y=x^2

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub （-10，0）（10，0）认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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,255)‘画纵坐标轴，颜色为蓝色

Forx=-10To10Step0.0001 y=x^2

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub （0，25）（0，-25）认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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,255)

Forx=-10To10Step0.0001 y=x^2 ‘用循环语句描点画函数图像

Picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub 认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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,255)

Forx=-10To10Step0.0001

‘x值从-10变化到10，每次增量为0.0001y=x^2 ‘计算y值

Picture1.PSet(x,y),RGB(255,0,0)‘用红色描出坐标为（x,y）的点

Nextx