高中信息技术-信息的编程加工教学课件设计

3.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.0001 y=x^2 picture1.PSet(x,y),RGB(255,0,0)

Nextx

EndSub

‘结束程序认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

‘定义x,y两个变量

Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)

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

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

Nextx

EndSub 数据类型名说明性质Integer整数型-32768~32767Long长整数型-2147483648~2147183647Single单精度实数型1.401298E-45~3.402823E38有效数6~7位Double双精度实数型绝对值在10E-324~1.79E308内的实数，有效数14~15位String字符串型一段文字与符号Boolean逻辑型判断结果：其值为真（true）或假（false）Date日期型日期和时间认识代码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,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.0001 y=x^2 picture1.PSet(x,y),RGB(255,0,0) Nextx

EndSub （-10，0）（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.0001 y=x^2 picture1.PSet(x,y),RGB(255,0,0) Next

EndSub （0，25）（0，-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.0001 y=x^2

‘用循环语句描点画函数图像

picture1.PSet(x,y),RGB(255,0,0) Next

EndSub 认识代码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.0001

‘x值从-10变化到10，每次增量为0.0001

y=x^2

‘计算y值

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

‘用红色描出坐标为（x,y）的点

Nextx

‘取下一个x值

EndSub 此线由二十万个点组成无论是手工绘制还是编程实现，其本质都是“描点法”。信息编程加工的概念

：利用某种计算机语言，对解决问题的方法和步骤进行描述，然后通过调试