《4.1计算机程序解决问题（第三课时）—VB程序的基本结构.ppt》由会员分享，可在线阅读，更多相关《4.1计算机程序解决问题（第三课时）—VB程序的基本结构.ppt（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、4.1 编制计算机程序解决问题（第三课时）合肥一中何文才4.1.3 VB程序的基本结构程序的基本结构1、顺序结构2、选择结构3、循环结构1、顺序结构、顺序结构AB入口入口出口出口格式：格式：语句块语句块A语句块语句块B流程图图例流程图图例例如：把两个数a、b进行交换。ABC想把两个数a、b进行交换，要借助中间变量c。c=a a=b b=cVB程序代码程序代码:Private Sub cmdChang_Click()Dim a As Single,b As Single,c As Single a=Val(InputBox(输入a)b=Val(InputBox(输入b)Print 交换前：a=;
2、a,b=;b c=a a=b b=c Print 交换后：a=;a,b=;b MsgBox 交换后：a=&a&vbTab&b=&b,vbOKOnly,交换结果End SubPABYN入入口口 出出口口 格式：If条件PThen语句块AElse语句块BEndIf2、选择结构、选择结构例如：如果某学生成绩例如：如果某学生成绩=60分，则及分，则及格；否则，不及格。格；否则，不及格。算法：算法：If 成绩成绩=60 Then 及格及格Else 不及格不及格End If Private Sub Form_Load()Dim a As Single a=Val(InputBox(输入成绩)If a=60
3、 Then MsgBox 及格Else MsgBox 不及格End IfEnd SubVB程序代码程序代码:一个数学问题：一个数学问题：计算1+2+3+100的值。用VB编程解决以下问题：分析问题：平常怎么算?（常见有两种算法）1+2+3+1+2+3+100=?+100=?第一种方法:第二种方法:等差数列：等差数列：=（1+100=101，2+99，50+51=101）=101*50=5050探讨计算机程序的方法第三种方法:1+2=3 3+3=6 6+4=10 该式子存在一个规律：该式子存在一个规律：|相邻两个数之差相邻两个数之差|为为1 1程序设计分析：程序设计分析：计算1+2+3+100的
4、值。假设和为S，在未进行计算之前，S=0+1S=1实际相当于S=S+1+2S=3实际相当于S=S+2+3S=6实际相当于S=S+3+4S=10实际相当于S=S+41+2=33+3=66+4=10|相邻两个数之差相邻两个数之差|为为1 1S=S=S S+i+i(其中其中，i i为为1 1100100中任一个数，中任一个数，S S为前一个和值为前一个和值)所以可以使用所以可以使用循环结构循环结构。3、循环结构、循环结构For 循环变量=初值 To 终值Step 循环变量增量 循环体Next 循环变量格式：NY入口入口出口出口算法流程图：程序代码段：Sum=0Fori=1to100Step1sum=
5、sum+iNextMsgbox“1+2+3100的和是：”&sum巩固练习：巩固练习：打开“巩固练习.frm”，用For循环语句编程求：S=12311。进一步思考：进一步思考：1到到100的偶数之和；的偶数之和；1到到100的奇数之和怎么实现。在原程序上修改。的奇数之和怎么实现。在原程序上修改。求偶数：Dim i As Integer,sum As Integer sum=0 For i=2 To 100 Step 2 sum=sum+i Next i求奇数：Dim i As Integer,sum As Integer sum=0 For i=1 To 100 Step 2 sum=sum+
6、i Next i求偶数：Dim i As Integer,sum As Integer sum=0 For i=1 To 50 Step 1 sum=sum+2*i Next i求奇数：DimiAsInteger,sumAsIntegersum=0Fori=1To50Step1sum=sum+2*i-1Nexti小结小结1、顺序结构：按照由上到下的顺序一行一行地执行的程序结构。2、选择结构：根据不同的条件判断来决定程序执行走向的结构。3、循环结构：需要重复执行同一操作的程序结构。课堂分层练习：课堂分层练习：本流程图中输出的本流程图中输出的a为多少？为多少？扩展练习：掌握更好的同学要求用计算机程序片段实现以上流程图。