深入探讨顺序结构.pptVIP

回顾： 1. VB 的赋值语句 变量名 = 表达式 功 能：将右边的表达式的值赋给左边的变量 2.输入数据的函数： inputbox(提示信息，标题，默认值，位置 ) 功 能：提供从键盘输入数据的函数 3.输出数据的方法： Print 输出内容 功 能：将计算出来的值输出到窗体上。 1：写出下列语句。 （１）将数值123赋给变量A。 （２）将变量B的值赋给变量A。 （３）将变量A的值加上10后，再赋给变量Ａ。 2：写出以下程序段的运行结果 N=0 M=1 N=N+1 M=M*N X=M Print x=;x 3：判断以下式子在赋值语句中是否正确 D=6+9 F+3=E+6 G=G*4 X*Y=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.14 Dim r As Single, s As Single r = InputBox(r=, 输入半径) s = PI * r * r Print 圆的面积s=; s End Sub 程序的顺序结构运行流程图 已知长方体的长、宽、高，编写一个程序，求长方体的全面积和体积。 例题： 从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应为654。 （2）设计算法 ①输入x的值； ②计算：x1=x\100； ③计算：x2=(x-x1*100)\10 ④计算：x3=x-x1*100-x2*10 ⑤计算：y=x3*100+x2*10+x1 ⑥输出y的值 Private Sub Command1_Click() x = InputBox(x=, 输入) x1 = x \ 100 x2 = (x - x1 * 100) \ 10 x3 = x - x1 * 100 - x2 * 10 y = x3 * 100 + x2 * 10 + x1 Print y=; y End Sub 课堂任务 1、试编写一个程序，实现输入圆的半径，输出 圆的周长和面积。 dim r as single dim s as single dim l as single r = inputbox(r= , 输入半径) s = 3.14 * r * r l = 2*3.14*r print 圆的面积s=; s print 圆的周长l=; l Private Sub Command1_Click() v0 = 40 a = 0.15 t = 2 v = v0 + a * t s = v0 * t + a * t ^ 2 / 2 Print v=; v Print s=; s End Sub * * A=123 A=B A=A+10 X=1 √×√× F3=E+6 XY=Z 开始 语句1 语句2 …… 结束 语句N 只有一个入口 只有一个出口 Dim a As Single, b As Single, c As Single, s As Single, v As Single a = Val(InputBox(a=, a)) b = Val(InputBox(b=, b)) c = Val(InputBox(c=, c)) s = 2 * (a * b + a * c + b * c) v = a * b * c Print s=; s, v=; v Print s=; s; v=; v 分析问题： 设x为输入的三位整数，y为x的反向输出。x的百位x1、十位x2、个位x3分别为： x1=x\100 x2=(x-x1*100)\10 x3=x-x1*100-x2*10 y=x3*100+x2*10+x1 2、一列火车在某地时的时速为v0=40km/h，现以加速度a=0.15m/s2加速行驶，试编写一个程序，求2min后的速度v和距开始点的距离s。