公开课-顺序结构-201311.ppt

《公开课-顺序结构-201311.ppt》由会员分享，可在线阅读，更多相关《公开课-顺序结构-201311.ppt（24页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、顺 序 结 构程序设计初步2013年11月以下哪些是正确的变量名：P33A.E7B.6cC.#FalseD.print2求以下表达式的运算结果：P345*4 3运算结果是：3/4*5运算结果是：63.75Private Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rPrint s;平方厘米Circle(2000,2000),rEnd SubPrivate Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rPrint s;平方厘米Circle(2000,2000),rEnd SubPriv

2、ate Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rPrint s;平方厘米Circle(2000,2000),rEnd Sub赋值模块运算模块输出结果模块程序设计功能模块语句编号Private Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rPrint s;平方厘米Circle(2000,2000),rEnd Sub1234567 之前的学习里面，让大家体验过修改程序里面的数据，实现圆心的移动。今天我们来试一试，改变程序里面语句的次序，看会发生怎样的情况。任务一：对调以下2个语句的

3、次序。Private Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rPrint s;平方厘米Circle(2000,2000),rEnd Sub1234567任务一：猜一猜，运行程序会得出怎样的结果？Private Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rCircle(2000,2000),rPrint s;平方厘米End Sub1234567任务一运行结果（对比）为什么会这样？修改前：输出运算结果画圆修改后：画圆输出运算结果结果可否接受？运算结果正确，画圆正确。两个输出结果重

4、叠，不美观。任务二：把第4句移到第2句之前。1234567Private Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rCircle(2000,2000),rPrint s;平方厘米End Sub任务二：猜一猜，运行程序会得出怎样的结果？1234567Private Sub Form_Click()s=pi*r*rr=InputBox(“半径：,请输入)pi=3.14Circle(2000,2000),rPrint s;平方厘米End Sub任务二运行结果（对比）为什么会这样？修改前：赋值运算输出 修改后：运算赋值输出r和pi没有值，无法

5、正常运算。r被赋值了，依然可以正常画圆。结果可否接受？运算结果为0，错误！画圆正确。任务三：把第5、6句移到第2句之前。1234567Private Sub Form_Click()s=pi*r*rr=InputBox(“半径：,请输入)pi=3.14Circle(2000,2000),rPrint s;平方厘米End Sub1234567Private Sub Form_Click()Circle(2000,2000),rPrint s;平方厘米s=pi*r*rr=InputBox(“半径：,请输入)pi=3.14End Sub任务三：猜一猜，运行程序会得出怎样的结果？任务三运行结果（对比）

6、为什么会这样？修改前：赋值运算输出 修改后：输出运算赋值r和pi没有值，也没有运算s，先执行输出结果。功能模块的次序颠倒了，严重影响程序运行的结果。结果可否接受？运算结果为0，错误！没有画圆，错误！将1000赋给圆的半径r将3.14赋给pi计算圆的面积，并将计算结果赋给s显示输出圆的面积画出一个半径为r的圆开始结束Private Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rPrint s;平方厘米Circle(2000,2000),rEnd Sub画圆程序的执行过程是一个顺序结构。顺序结构：按照由上而下、从左到右的顺序依次逐个语句执行程序。课本P40将1000赋给圆的半径r将3.14赋给pi计算圆的面积，并将计算结果赋给s显示输出圆的面积画出一个半径为r的圆开始结束顺序结构流程图想一想顺序结构：按照由上而下、从左到右的顺序依次逐个语句执行程序。在画圆程序中哪个位置体现出来？Private Sub Form_Click()r=InputBox(“半径：,请输入)pi=3.14s=pi*r*rPrint s;平方厘米Circle(2000,2000),rEnd Sub1234567