2.3.1 顺序结构
程序执行过程中没有分支、没有重复，我们把这 种结构成为顺序结构
实践活动：分析上面的程序、参考算法，完善流程图。
算法：
开始
1.输入a的值
2.输入b的值
3.将a中的数据送给变量c，即a→c；
4. 将b中的数据送给变量a，即b→a；
5. 将c中的数据送给变量b，即c→b
结束
练习：已知长方体的长、宽、高，编写一个程序，求 长方体的全面积和体积。
Print "全面积s="; s, Байду номын сангаас体积v="; v
分析问题： 设计算法
1.输入a、b、h的值 2.计算s=2*(a*b + a*h + b*h) 3.计算v=a*b*h 4.输出s、v的值
编写程序：
Dim a, b, h, s, v As Single a = InputBox("输入a=", a) b = InputBox("输入b=", b) h = InputBox("输入h=", h) s = 2 * (a * b + a * h + b * h) v=a*b*h
问题：交换两个瓶子里的液体，该怎么办？
例1：交换两个变量的值
已知变量a和b中分别存放了数据，现在要交换其中的数据。
算法：
程序代码：
1.输入a的值 2.输入b的值 3.将a中的数据送给变量c，即a→c； 4. 将b中的数据送给变量a，即b→a； 5. 将c中的数据送给变量b，即c→b
Dim a, b, c As Single a = Val(InputBox("输入a")) b = Val(InputBox("输入b")) Print "交换前:a="; a, "b="; b c=a a=b b=c Print "交换后:a="; a, "b="; b
