资源简介

(共18张PPT)
从零开始编写程序
授课人：XXX
程序的顺序结构
回顾旧知
常量定义说明语句格式
Const 常量名 As 类型 = 表达式
Eg: Const PI As Single = 3.14
变量定义说明语句格式
Dim 变量名 As 类型
Eg: Dim r As Single, s As Single
赋值语句
变量 = 表达式
Eg: A=A+10
输入数据的函数
InputBox(提示信息，标题，默认值，位置）
Eg: A = InputBox(“A”, “输入”,12,100,20）
输出数据的方法
Print 输出内容
Eg:Print “A=’’; A
指对数据的提示，显示在对话框中，不能省略
指运行此函数后弹出的对话框的标题
位置：指运行此函数后弹出的对话框的左上角在屏幕上的位置
默认值：指默认的输入数据值
输出内容可以是一个，也可以是多个：
Eg:Print “A=’’; A 或者 Print “A=”;A, “B=”;B
我可是十分乐于助人的，让我仔细瞅瞅！
用编程解决实际问题
我遇到两个用编程解决实际问题的难题，解决不出来，你们能帮帮我吗
问题一：长方体全面积和体积
问题描述：已知长方体的长、宽、高，编写一个程序，求长方体的表面积和体积？
用编程解决实际问题
具体问题
分析问题
设计算法
编写程序
调试程序
得到答案
用计算机解决问题的过程
问题一：长方体全面积和体积
问题描述：已知长方体的长、宽、高，编写一个程序，求长方体的表面积和体积？
问题一：长方体全面积和体积
分析问题
问题描述：已知长方体的长、宽、高，编写一个程序，求长方体的表面积和体积？
设长方体的长、宽、高分别为A，B，C，
长方体的表面积为：S=2*(A*B+A*C+B*C)
体积为： V=A*B*C
变量为：A、B、C、S、V
A
C
B
S
V
用编程解决实际问题
具体问题
分析问题
设计算法
编写程序
调试程序
得到答案
用计算机解决问题的过程
问题一：长方体全面积和体积
设计算法
①输入A，B，C的值；
开 始
输入A、B、C的值
结 束
输出S、V的值
计算S=2*(A*B+A*C+B*C）
计算V=A*B*C
流程图
④输出S，V的值。
②计算S=2*(A*B+A*C+B*C）；
③计算V=A*B*C；
问题一：长方体全面积和体积
编写程序
Private Sub Command1_Click( )
Dim A As Single, B As Single, C As Single, S As Single, V As Single
A=InputBox ("A=", "输入")
B=InputBox ("B=", "输入")
C=InputBox ("C=", "输入")
S=2* (A*B+A*C+B*C)
V=A*B*C
Print “表面积S="; S, "体积V="; V
End Sub
分析问题
问题二：反向输出
设X为输入的三位整数，Y为X的反向输出。
问题描述：从键盘上输入一个三位整数，然后将它反向输出。
例如输入456，输出应为654。
X的百位、十位、个位分别为：
X1=X\100
X2=（X-X1*100）\10
X3=X-X1*100-X2*10
所以
Y=X3*100+X2*10+X1
问题二：反向输出
设计算法
①输入X的值；
②计算：X1=X\100
③计算：X2=（X-X1*100）\10；
④计算：X3=X-X1*100-X2*10；
⑤计算：Y=X3*100+X2*10+X1；
⑥输出Y的值。
流程图
开 始
输入X的值
结 束
输出Y的值
计算X1=X\100
计算X2=（X-X1*100）\10
计算X3=X-X1*100-X2*10
计算Y=X3*100+X2*10+X1
问题二：反向输出
Private Sub Command1_Click( )
Dim X As Integer, X1 As Integer, X2 As Integer
Dim X3 As Integer, Y As Integer
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
。。。
语句N
结束
执行时按语句出现的顺序执行。即当执行 第一条语句后，必然从第二条语句继续，顺序执行所有的语句，直到执行完最后一条语句为止。
程序的顺序结构
一条大路走到底
课堂小结
具体问题
分析问题
设计算法
编写程序
调试程序
得到答案
用计算机解决问题的过程：
程序的顺序结构：
执行时按照语句出现的顺序执行
课后探究
思考：当输入的三位数末位为0时（如280），程序的运行结果还是一个三位数吗？
THANKS FOR WATCHING
授课结束

展开更多......

收起↑