《深入探讨顺序结构》由会员分享，可在线阅读，更多相关《深入探讨顺序结构（14页珍藏版）》请在金锄头文库上搜索。
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+9F
2、+3=E+6G=G*4X*Y=ZA=123A=BA=A+10X=1F3=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=; a Print b=; b深入探讨顺序结构观察一段程序：Private Sub Command1_Click()Const PI As Single = 3.14Dim r As Single, s As Singler = InputBox(r=, 输入半径)s = PI * r * rPrin
3、t 圆的面积s=; sEnd Sub程序的顺序结构运行流程图开始语句语句1语句语句2结束语句语句N只有一个入口只有一个入口只有一个出口只有一个出口例题：从键盘上输入一个三位整数，然后将它反向输出。例如输入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=x-x1*100-x2*10计算：y=x3*100+x2*10+x1输出y
4、的值Private Sub Command1_Click()x = InputBox(x=, 输入)x1 = x 100x2 = (x - x1 * 100) 10x3 = x - x1 * 100 - x2 * 10y = x3 * 100 + x2 * 10 + x1Print y=; yEnd Sub课堂任务1、试编写一个程序，实现输入圆的半径，输出圆的周长和面积。2、一列火车在某地时的时速为v0=40km/h，现以加速度a=0.15m/s2加速行驶，试编写一个程序，求2min后的速度v和距开始点的距离s。dim r as singledim s as singledim l as singler = inputbox(r= , 输入半径)s = 3.14 * r * rl = 2*3.14*rprint 圆的面积s=; sprint 圆的周长l=; lPrivate Sub Command1_Click()v0 = 40a = 0.15t = 2v = v0 + a * ts = v0 * t + a * t 2 / 2Print v=; vPrint s=; sEnd Sub
