欢迎来到天天文库
浏览记录
ID:48770523
大小:155.00 KB
页数:14页
时间:2020-01-23
《深入探讨顺序结构.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、回顾:1.VB的赋值语句变量名=表达式功能:将右边的表达式的值赋给左边的变量2.输入数据的函数:inputbox(提示信息,标题,默认值,位置)功能:提供从键盘输入数据的函数3.输出数据的方法:Print输出内容功能:将计算出来的值输出到窗体上。1:写出下列语句。(1)将数值123赋给变量A。(2)将变量B的值赋给变量A。(3)将变量A的值加上10后,再赋给变量A。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
此文档下载收益归作者所有