- 1、本文档共18页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
(1)分析问题 思考: 应定义几个变量? 长方体全面积的公式? 长方体体积的公式? 例题讲解: 例1、已知长方体的长、宽、高(10、8、6),编写 一个程序,求长方体的全面积和体积。 (1)分析问题 长:a 宽:b 高:c 全面积:s 体积:v 计算公式:s=2*(a*b+b*c+a*c) v=a*b*c 例1、已知长方体的长、宽、高(10、8、6),编写 一个程序,求长方体的全面积和体积。 例题讲解: (2)设计算法 例题讲解: ①输入a、b、c的值; ②计算长方体的全面积:s=2*(a*b+a*c+b*c); ③计算长方体的体积:v=a*b*c ; ④输出s、v的值; 例1、已知长方体的长、宽、高(10、8、6),编写 一个程序,求长方体的全面积和体积。 (2)设计算法 例题讲解: ①输入a、b、c的值; ②计算s=2*(a*b+a*c+b*c); ③计算v=a*b*c ; ④输出s、v的值; (3)编写程序 Dim a As Single, b As Single, c As Single Dim s As Single, v As Single a = 10 b = 8 c = 6 s = 2 * (a * b + a * c + b * c) v = a * b * c Print 全面积s=; s, 体积v=; v (4)调试程序 例1、已知长方体的长、宽、高(10、8、6),编写 一个程序,求长方体的全面积和体积。 格式: InputBox(提示信息,标题,默认值,位置) 其中: 提示信息:指对输入数据的提示,显示在对话框中。 标题:指运行此函数后弹出的对话框的标题。 默认值:指默认的输入数据值。 位置:指运行此函数在屏幕上的位置。 3、输入数据的函数: 作用:InputBox()是提供从键盘输入数据的函数,利用它可产生一个对话框,提示用户输入数据并单击命令按钮。 例:r=InputBox(r=, 请输入半径) 输入数据的函数: 格式: InputBox(提示信息,标题,默认值,位置) 例: r = InputBox(R=, 输入半径, 10) 输入数据的函数: 思考 从键盘输入两个不相等的整数a和b,交换它们的值后输出。 如何从键盘输入变量的值? Private Sub Command1_Click() Dim a As Integer, b As Integer,t As Integer a=100 b=200 t=a a=b b=t Print a=;a, b=;b End Sub 已知变量a的值为100,b的值为200,交换它们的值后输出。 课堂练习: Private Sub Command1_Click() Dim a As Integer, b As Integer,t As Integer a= b= t=a a=b b=t Print a=;a, b=;b End Sub 从键盘输入两个整数a、b,交换它们的值后输出。 InputBox(a=) InputBox(b=) 例2、从键盘输入一个三位整数,然后将它反向输出。 4 6 5 6 5 4 (1)分析问题 x:三位整数 y:x的反向输出 计算公式: x1=x\100 x2=(x-x1*100)\10 x3=x Mod 10 y=x3*100+x2*10+x1 例题讲解: x1:x的百位 x2:x的十位 x3:x的个位 例2、从键盘输入一个三位整数,然后将它反向输出。 (2)设计算法 ①输入x的值; ②x1=x\100; ③x2=(x-x1*100)\10; ④x3=x Mod 10; ⑤y=x3*100+x2*10+x1; ⑥输出y的值; (3)编写程序 (4)调试程序 例题讲解: 2.2 程序的顺序结构 开始 结束 语句1 语句2 … 语句N 执行顺序: 当执行第一条语句后,必须从第二条语句执行,顺序执行所有的语句,直到执行完最后一条语句为止。 程序特点: 在这个结构内按由上到下的书写顺序执行,它只有一个入口和一个出口。 知识总结 课堂小结 计算机解决问题的过程 程序的顺序结构特点 顺序结构的程序的基本语句 * * * * 2.2 程序的顺序结构 求圆的面积 Private Sub Command1_Click() Const PI As Single = 3.14 Dim r As Single, s As Single r = 10 s =
您可能关注的文档
- 1圆的认识(圆的基本元素第1课时).ppt
- 1弹起我心爱的土琵琶.ppt
- 1二上语文《秋天的图画》.ppt
- 1整十数加、减整十数.ppt
- 1窃读记_343932.doc
- 1压强.ppt
- 1古诗词三首课件1.ppt
- 1独坐敬亭山课件.ppt
- 1柳树醒了课件1.ppt
- 1胜利小学石范华.doc
- 2024年江西省高考政治试卷真题(含答案逐题解析).pdf
- 2025年四川省新高考八省适应性联考模拟演练(二)物理试卷(含答案详解).pdf
- 2025年四川省新高考八省适应性联考模拟演练(二)地理试卷(含答案详解).pdf
- 2024年内蒙通辽市中考化学试卷(含答案逐题解析).docx
- 2024年四川省攀枝花市中考化学试卷真题(含答案详解).docx
- (一模)长春市2025届高三质量监测(一)化学试卷(含答案).pdf
- 2024年安徽省高考政治试卷(含答案逐题解析).pdf
- (一模)长春市2025届高三质量监测(一)生物试卷(含答案).pdf
- 2024年湖南省高考政治试卷真题(含答案逐题解析).docx
- 2024年安徽省高考政治试卷(含答案逐题解析).docx
文档评论(0)