(
课件网) 从零开始编写程序 授课人：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 结束 执行时按语句出现的顺序执行。即当执行 第一条语句后，必然从第二条语句继续，顺序执行所有的语句，直到执行完最后一条语句为止。 程序的顺序结构 一条大路走到底 课 ... ...
