深入探讨顺序结构.ppt

《深入探讨顺序结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、回顾：1.VB的赋值语句变量名=表达式功能：将右边的表达式的值赋给左边的变量2.输入数据的函数：inputbox(提示信息，标题，默认值，位置)功能：提供从键盘输入数据的函数3.输出数据的方法：Print输出内容功能：将计算出来的值输出到窗体上。1：写出下列语句。（１）将数值123赋给变量A。（２）将变量B的值赋给变量A。（３）将变量A的值加上10后，再赋给变量Ａ。2：写出以下程序段的运行结果N=0M=1N=N+1M=M*NX=MPrint"x=";x3：判断以下式子在赋值语句中是否正确D=6+9

2、F+3=E+6G=G*4X*Y=ZA=123A=BA=A+10X=1√×√×F3=E+6XY=Z观摩：4、若A=5,B=3，则执行下面的语句：(1)Print"a=";a,"b=";b(2)Print"a=";a;"b=";b(3)Print"a=";a,Print"b=";b(4)Print"a=";aPrint"b=";b深入探讨顺序结构观察一段程序：PrivateSubCommand1_Click()ConstPIAsSingle=3.14DimrAsSingle,sAsSingler=In

3、putBox("r=","输入半径")s=PI*r*rPrint"圆的面积s=";sEndSub程序的顺序结构运行流程图开始语句1语句2……结束语句N只有一个入口只有一个出口已知长方体的长、宽、高，编写一个程序，求长方体的全面积和体积。DimaAsSingle,bAsSingle,cAsSingle,sAsSingle,vAsSinglea=Val(InputBox("a=","a"))b=Val(InputBox("b=","b"))c=Val(InputBox("c=","c"))s=2*(a

4、*b+a*c+b*c)v=a*b*cPrint"s=";s,"v=";vPrint"s=";s;"v=";v例题：从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应为654。分析问题：设x为输入的三位整数，y为x的反向输出。x的百位x1、十位x2、个位x3分别为：x1=x100x2=(x-x1*100)10x3=x-x1*100-x2*10y=x3*100+x2*10+x1（2）设计算法①输入x的值；②计算：x1=x100；③计算：x2=(x-x1*100)10④计算：x3

5、=x-x1*100-x2*10⑤计算：y=x3*100+x2*10+x1⑥输出y的值PrivateSubCommand1_Click()x=InputBox("x=","输入")x1=x100x2=(x-x1*100)10x3=x-x1*100-x2*10y=x3*100+x2*10+x1Print"y=";yEndSub课堂任务1、试编写一个程序，实现输入圆的半径，输出圆的周长和面积。2、一列火车在某地时的时速为v0=40km/h，现以加速度a=0.15m/s2加速行驶，试编写一个程序，求2

6、min后的速度v和距开始点的距离s。dimrassingledimsassingledimlassingler=inputbox("r=","输入半径")s=3.14*r*rl=2*3.14*rprint"圆的面积s=";sprint"圆的周长l=";lPrivateSubCommand1_Click()v0=40a=0.15t=2v=v0+a*ts=v0*t+a*t^2/2Print"v=";vPrint"s=";sEndSub