程序的顺序结构 课件粤教版高中信息技术选修1

从零开始编写程序授课人：XXX程序的顺序结构回顾旧知常量定义说明语句格式Const常量名As类型=表达式Eg:ConstPIAsSingle=3.14变量定义说明语句格式Dim变量名As类型Eg:DimrAsSingle,sAsSingle赋值语句变量=表达式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、VACBSV用编程解决实际问题具体问题分析问题设计算法编写程序调试程序得到答案用计算机解决问题的过程问题一：长方体全面积和体积设计算法①输入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；问题一：长方体全面积和体积编写程序PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,CAsSingle,SAsSingle,VAsSingleA=InputBox("A=","输入")B=InputBox("B=","输入")C=InputBox("C=","输入")S=2*(A*B+A*C+B*C)V=A*B*CPrint“表面积S=";S,"体积V=";VEndSub分析问题问题二：反向输出设X为输入的三位整数，Y为X的反向输出。问题描述：从键盘上输入一个三位整数，然后将它反向输出。

例如输入456，输出应为654。X的百位、十位、个位分别为：X1=X\100X2=（X-X1*100）\10X3=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问题二：反向输出PrivateSubCommand1_Click()DimXAsInteger,X1AsInteger,X2AsIntegerDimX3AsInteger,YAsIntegerX=InputBox（"X=","输入"）X1=X\100X2=(X-X1*100)\10X3=X-X1*100-X2*10Y=X3*100+X2*10+X1Print"Y="；YEndSub编写程序哈哈哈，我明白了，非常感谢你们！！！用编程解决实际问题不客气，我也学会了新的知识！！！顺序结构开始语句1。。。语句N结束执行时按语句出现的顺序执行。即当执行第一条语句后，必然从第二条语句继续，顺序执行所有的语句，直到执行完最后一条语句为止。程序的顺序结构一条大路走到底课堂小结具体问题分析问题设计算法编写程序调试程序