信息编程加工

农夫过河农夫带着一只狼、一只羊和一筐蔬菜，想撑船从南岸渡河到北岸。他只有一条小船，船上只能容下他和一样东西。如果农夫在场，则狼不能吃羊，羊不能吃蔬菜，否则狼会吃羊，羊会吃蔬菜，你能不能帮农夫找出一种安全的渡河方法呢？你需要考虑哪些因素呢？

分析问题编程加工第一步：第一页，共22页。

有两个杯子A、B，分别盛放蓝墨水和红墨水，要求它们里面的墨水互换，能实现吗？思考1：编程加工第二步：设计算法

再给你一个杯子C能实现吗？请分析一下问题并给出操作步骤。

第二页，共22页。可视化设计（前台）--交互界面

代码编程（后台）可分为两大部分：绘制控件对象设置对象的属性第三页，共22页。

创建一个简单应用程序，该应用程序由一个文本框和一个命令按钮组成。单击命令按钮，文本框中会出现"你太棒了"消息。练习Doityourself第四页，共22页。Print(“”)Msgbox(“”)试一试想为窗体加入背景画面吗？试着通过窗体form1的picture属性来设置第五页，共22页。VB简介窗体工具箱属性窗口工程资源管理器第六页，共22页。编程绘制y=x^2的函数图像第七页，共22页。问题分析“描点法”手工绘制步骤：第一步准备好绘图工具；第二步绘制坐标系的横轴与纵轴；第三步依据要绘图的函数表达式，

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

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

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

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

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

‘确定按钮单击事件

Dimx,yAsSingleScale(-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

‘结束程序第十二页，共22页。认识代码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 第十三页，共22页。认识代码PrivateSubCommand1_Click()

Dimx,yAsSingleScale(-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 （-10，25）（10，-25）第十四页，共22页。PrivateSubCommand1_Click()

Dimx,yAsSingleScale(-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 （-10，0）（10，0）编写代码编程加工第三步：第十五页，共22页。认识代码PrivateSubCommand1_Click()

Dimx,yAsSingleScale(-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 （0，25）（0，-25）第十六页，共22页。认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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 第十七页，共22页。认识代码PrivateSubCommand1_Click()

Dimx,yAsSingle

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

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

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

Nextx

‘取下一个x值

EndSub 此线由二十万个点组成无论是手工绘制还是编程实现，其本质都是“描点法”。第十八页，共22页。编程加工第四步：调试运行通过调试和运行编写好的代码，发现并修改其中的错误第十九页，共22页。信息编程加工的四个步骤①分析信息；②设计方法；③编写代码；④调试运行。②设计方法；③编写代码；信息的编程加工就是利用某种计算机语言，对解决问题的方法和步骤进行描述，然后通过调试和修改得到可实现加工目标的程序，最终解决问题。第二十页，共22页。请在原程序上进行修改，看看哪个同学能画出更多函数图像？