《基本程序结构》课件.ppt

《《基本程序结构》课件.ppt》由会员分享，可在线阅读，更多相关《《基本程序结构》课件.ppt（185页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、第第4 4章章基本程序结构基本程序结构郭清溥河南财经学院现代教育技术中心 郭清溥2第第4 4章基本程序结构章基本程序结构编写相应各种事件的程序代码，这是程序编写相应各种事件的程序代码，这是程序设计的重点和难点。设计的重点和难点。程序设计有三种基本结构，它们是程序设计有三种基本结构，它们是顺序顺序结构结构、选择结构选择结构和和循环结构循环结构，这是程序，这是程序设计的基础，这些内容将在本章中一一介绍。设计的基础，这些内容将在本章中一一介绍。同时还在最后一节介绍一些程序设计中的常用同时还在最后一节介绍一些程序设计中的常用算法。算法。【本章导读】【本章导读】河南财经学院现代教育技术中心 郭清溥3第第

2、4 4章基本程序结构章基本程序结构1.顺序结构顺序结构2.选择结构选择结构3.循环结构循环结构4.几种常用的算法介绍几种常用的算法介绍【本章要点】【本章要点】8学时（理论），学时（理论），8学时（上机）学时（上机）课时安排课时安排河南财经学院现代教育技术中心 郭清溥4 语句组1 语句组n 语句组24.1 4.1 顺序结构的程序设计顺序结构的程序设计 顺序结构是一种顺序结构是一种线性结构线性结构。是程序设计中最简单同。是程序设计中最简单同时也是最基本的结构。它要求时也是最基本的结构。它要求顺序顺序地执行每一个基本地执行每一个基本的加工处理单位。的加工处理单位。语句组2语句组1开始结束语句组n河南

3、财经学院现代教育技术中心 郭清溥54.1 4.1 顺序结构的程序设计顺序结构的程序设计在在计计算算机机中中让让一一个个没没有有被被赋赋予予具具体体值值的的变变量量参参与与运运算算是是没没有意义的。因此给变量提供初值是程序中不可缺少的步骤。有意义的。因此给变量提供初值是程序中不可缺少的步骤。计算表达式的值，并将其提供给变量计算表达式的值，并将其提供给变量或或修改指定对象的属性值修改指定对象的属性值。Let=或或Let.=格式格式功能功能4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥64.1 4.1 顺序结构的程序设计顺序结构的程序设计在在计计算算机机中中让让一一个个没没有有被被赋

4、赋予予具具体体值值的的变变量量参参与与运运算算是是没没有有意义的。因此给变量提供初值是程序中不可缺少的步骤。意义的。因此给变量提供初值是程序中不可缺少的步骤。LetintMax=0该语句将数值型数据该语句将数值型数据0保存在变量保存在变量intMax中。中。Text1.Text=河南财经学院河南财经学院该语句将名称为该语句将名称为Text1的的TextBox控件的控件的Text属性属性值修改为值修改为“河南财经学院河南财经学院”。例如例如4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥74.1 4.1 顺序结构的程序设计顺序结构的程序设计1.命令关键字命令关键字Let可以缺省；可

5、以缺省；2.语句格式中的符号语句格式中的符号“=”是是赋值号赋值号，与数学中的等号只是形式上一样；与数学中的等号只是形式上一样；3.一个赋值语句只能给一个变量赋值；一个赋值语句只能给一个变量赋值；4.赋值符号赋值符号“=”右边的表达式可以是变量、常量、右边的表达式可以是变量、常量、函数等；函数等；5.赋值符号赋值符号“=”左边只能是变量名或对象的属性左边只能是变量名或对象的属性引引用，不能是常量、符号常量、表达式；用，不能是常量、符号常量、表达式；6.赋值号两边的数据类型一般应该一致。赋值号两边的数据类型一般应该一致。说明说明4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥84.

6、1 4.1 顺序结构的程序设计顺序结构的程序设计X=8，Y=9N=N+1M=X=8Exp=Sqr(3)5=X+YX+Y=5X=8:Y=9表示表示N累加累加1将将X=8的值（逻辑量）的值（逻辑量）赋给赋给MExp1=Sqr(3)赋值号左边不能是常量赋值号左边不能是常量赋值号左边不能是表达式赋值号左边不能是表达式4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥94.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1我们用我们用F表示华氏温度表示华氏温度用用C表示摄氏温度表示摄氏温度则它们的关系为：则它们的

7、关系为：C=5(F-32)/9(或：或：F=32+9C/5)4.1.1赋值语句赋值语句分析：分析：河南财经学院现代教育技术中心 郭清溥104.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.14.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥114.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1FToC从文本框中获得F的值,即：F=Val(txtF.Text)用5*(F-32)/9计算C的值,即：C=5*(F-32)/9

8、用文本框输出C的值,即：txtC.Text=C开始结束4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥124.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1CToF从文本框中获得C的值,即：C=Val(txtC.Text)用9*C/5+32计算F的值,即：F=9*C/5+32用文本框输出F的值,即：txtF.Text=F开始结束4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥134.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温

9、度与华氏温度的转换例例4.1FtoC命令按钮命令按钮PrivateSubcmdFtoC_Click()DimF!,C!LetF=Val(txtF.Text)LetC=5*(F-32)/9LettxtC.Text=CEndSub 4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥144.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1CtoF命令按钮命令按钮PrivateSubcmdCtoF_Click()DimF!,C!C=Val(txtC.Text)F=9*C/5+32txtF.Text=FEndS

10、ub 4.1.1赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥154.1 4.1 顺序结构的程序设计顺序结构的程序设计Print格式格式在指定的窗体中显示在指定的窗体中显示“输出项表输出项表”的值的值（缺省窗体时指当前窗体）（缺省窗体时指当前窗体）功能功能4.1.2Print方法方法河南财经学院现代教育技术中心 郭清溥164.1 4.1 顺序结构的程序设计顺序结构的程序设计数值型数据在输出时都是第一位是符号位数值型数据在输出时都是第一位是符号位,数值最后要带一个字符位的尾空数值最后要带一个字符位的尾空；“Print方法方法”最后若没有格式字符，则最后若没有格式字符，则执执行完输出后，自动

11、换行行完输出后，自动换行；最后若有格式；最后若有格式字符，则执行完输出内容后按格式字符的字符，则执行完输出内容后按格式字符的规定移动输出指针规定移动输出指针说明说明4.1.2Print方法方法河南财经学院现代教育技术中心 郭清溥174.1 4.1 顺序结构的程序设计顺序结构的程序设计格式字符格式字符“，”所规定的输出叫标准输出。所规定的输出叫标准输出。标准输出是按每一部分占标准输出是按每一部分占14个字符位计算。个字符位计算。格式字符格式字符“，”就是将输出指针移到下一就是将输出指针移到下一个标准区域。个标准区域。格式字符格式字符 “，”4.1.2Print方法方法河南财经学院现代教育技术中心

12、 郭清溥18Print-1,2,PrintMicrosoftVisualBASIC4.1 4.1 顺序结构的程序设计顺序结构的程序设计格式字符格式字符 “，”举例举例4.1.2Print方法方法河南财经学院现代教育技术中心 郭清溥194.1 4.1 顺序结构的程序设计顺序结构的程序设计格式字符格式字符“；”所规定的输出叫紧凑输出。所规定的输出叫紧凑输出。紧凑输出就是紧挨着输出。紧凑输出就是紧挨着输出。格式字符格式字符“；”就是保持输出指针不动。就是保持输出指针不动。格式字符格式字符 “；”4.1.2Print方法方法河南财经学院现代教育技术中心 郭清溥20Print-1;2;PrintMicr

13、osoftVisualBASIC4.1 4.1 顺序结构的程序设计顺序结构的程序设计格式字符格式字符 “；”举例举例4.1.2Print方法方法河南财经学院现代教育技术中心 郭清溥214.1 4.1 顺序结构的程序设计顺序结构的程序设计Tab(n):将输出指针移到第将输出指针移到第n个位置。个位置。当当n输出指针的当前值输出指针的当前值时时,输出移到下一行执行。输出移到下一行执行。Spc(n):输出输出n个空格。个空格。与与Print方法有关的函数方法有关的函数4.1.2Print方法方法河南财经学院现代教育技术中心 郭清溥22Print1234567890;PrintTab(12);ABCD

14、EPrintSpc(10);ABCDE;PrintTab(12);ABCDE4.1 4.1 顺序结构的程序设计顺序结构的程序设计与与Print方法有关的函数举例方法有关的函数举例4.1.2Print方法方法河南财经学院现代教育技术中心 郭清溥234.1 4.1 顺序结构的程序设计顺序结构的程序设计该函数的作用是在一个对话框中显示提示，等待用该函数的作用是在一个对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框中内容。户输入正文或按下按钮，并返回包含文本框中内容。函数返回值的类型为字符型。函数返回值的类型为字符型。输入对话框输入对话框InputBox函数函数InputBox(,)格式

15、格式4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥244.1 4.1 顺序结构的程序设计顺序结构的程序设计DimstrIDCard$strIDCard=InputBox(输入完成后单击输入完成后单击“确定确定”按钮按钮，输入卡号输入卡号)输入对话框输入对话框InputBox函数函数4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥254.1 4.1 顺序结构的程序设计顺序结构的程序设计Dim strName$strName=InputBox(输入你的姓名输入你的姓名&Chr(13)&Chr(10)&_ 完成后单击完成后单击“确定确定”按钮按钮,输入输入,郭清溥郭清溥

16、)输入对话框输入对话框InputBox函数函数提示标题默认产生一个回车换行4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥264.1 4.1 顺序结构的程序设计顺序结构的程序设计MsgBox函数在对话框中显示信息，等待用户单击函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以说明用户单击了哪个按钮。按钮，并返回一个整数以说明用户单击了哪个按钮。消息对话框消息对话框MsgBox函数函数MsgBox(,)格式格式4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥274.1 4.1 顺序结构的程序设计顺序结构的程序设计消息对话框消息对话框MsgBox函数函数(按钮值

17、按钮值)的意义的意义4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥284.1 4.1 顺序结构的程序设计顺序结构的程序设计消息对话框消息对话框MsgBox函数函数对话框中的图标4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥294.1 4.1 顺序结构的程序设计顺序结构的程序设计消息对话框消息对话框MsgBox函数函数默认按钮的设置4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥304.1 4.1 顺序结构的程序设计顺序结构的程序设计消息对话框消息对话框MsgBox函数函数vbOKCancel+vbInformation+vbDefaultButto

18、n1 YN=MsgBox(请确认你的输入！请确认你的输入！,1+64+0,确认确认)“1”表示显示表示显示“确定确定”、“取消取消”按钮按钮“0”表示第一个表示第一个按钮是默认值按钮是默认值“64”表示显表示显示图标示图标 4.1.3人机交互人机交互YN=MsgBox(你的输入有误！你的输入有误！,5+16+256,确认确认)651+64+0河南财经学院现代教育技术中心 郭清溥314.1 4.1 顺序结构的程序设计顺序结构的程序设计消息对话框消息对话框MsgBox函数函数4.1.3人机交互人机交互MsgBox函数的返回值河南财经学院现代教育技术中心 郭清溥324.1 4.1 顺序结构的程序设计

19、顺序结构的程序设计MsgBox还可以写成语句的格式。还可以写成语句的格式。消息对话框消息对话框MsgBox语句语句MsgBox,当当MsgBox为语句时，没有返回值。为语句时，没有返回值。格式格式语句要求的参数不使用括号！MsgBox文件已保存！文件已保存！,0+48+0,确认确认4.1.3人机交互人机交互河南财经学院现代教育技术中心 郭清溥334.1 4.1 顺序结构的程序设计顺序结构的程序设计VisualBasic期期终终成成绩绩由三部分由三部分组组成：期成：期终终考考试试、作、作业业和平和平时时成成绩绩，它，它们们分分别别占占70，10，20。现现有一个学生的有一个学生的成成绩绩依次依次

20、为为89，90，78，编编写程序，求其写程序，求其总评总评成成绩绩。假设程序中我们分别用假设程序中我们分别用KSKS，ZYZY，CSCS表示考试表示考试成绩、作业成绩和平时测试成绩，则总评成绩成绩、作业成绩和平时测试成绩，则总评成绩ZPZP为：为：ZP=KS70+ZY10+CS20例例4.4分析：分析：河南财经学院现代教育技术中心 郭清溥344.1 4.1 顺序结构的程序设计顺序结构的程序设计按钮名称：cmdJS按钮名称：cmdGB用InputBox输入，显示在文本框中。VisualBasic期期终终成成绩绩由三部分由三部分组组成：期成：期终终考考试试、作、作业业和平和平时时成成绩绩，它，它们

21、们分分别别占占70，10，20。现现有一个学生的有一个学生的成成绩绩依次依次为为89，90，78，编编写程序，求其写程序，求其总评总评成成绩绩。例例4.4河南财经学院现代教育技术中心 郭清溥354.1 4.1 顺序结构的程序设计顺序结构的程序设计VisualBasic期期终终成成绩绩由三部分由三部分组组成：期成：期终终考考试试、作、作业业和平和平时时成成绩绩，它，它们们分分别别占占70，10，20。现现有一个学生的有一个学生的成成绩绩依次依次为为89，90，78，编编写程序，求其写程序，求其总评总评成成绩绩。例例4.4河南财经学院现代教育技术中心 郭清溥364.1 4.1 顺序结构的程序设计顺

22、序结构的程序设计VisualBasic期期终终成成绩绩由三部分由三部分组组成：期成：期终终考考试试、作、作业业和平和平时时成成绩绩，它，它们们分分别别占占70，10，20。现现有一个学生的有一个学生的成成绩绩依次依次为为89，90，78，编编写程序，求其写程序，求其总评总评成成绩绩。例例4.4河南财经学院现代教育技术中心 郭清溥374.1 4.1 顺序结构的程序设计顺序结构的程序设计“计算计算”命令按钮（命令按钮（cmdJS）的程序源代码如下：）的程序源代码如下：PrivateSubcmdJS_Click()DimTemp$,KS%,ZY%,CS%,ZP!Temp=InputBox(,输入输入

23、“考试成绩考试成绩”)KS=Val(Temp):txtKS.Text=KSTemp=InputBox(,输入输入“作业成绩作业成绩”)ZY=Val(Temp):txtZY.Text=ZYTemp=InputBox(,输入输入“测试成绩测试成绩”)CS=Val(Temp):txtCS.Text=CSZP=KS*0.7+ZY*0.1+CS*0.2lblZP.Caption=总评成绩：总评成绩：&Str(ZP)EndSubKS*70+ZY*10+CS*20例例4.4KS=txtKS.TextZY=txtZY.TextCS=txtCS.Text在调整文本框的在调整文本框的Enabled属性后可以用文本

24、框输入属性后可以用文本框输入三个成绩。三个成绩。河南财经学院现代教育技术中心 郭清溥384.1 4.1 顺序结构的程序设计顺序结构的程序设计 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只少只?我我们们用用H表示表示总头总头数，数，F表示表示总总脚数脚数用用C表示表示鸡鸡，R表示兔子表示兔子则则有有:C+R=H2C+4R=FR=（F-2H）/2C=HR例例4.5分析：分析：河南财经学院现代教育技术中心 郭清溥394.1 4.1 顺序结构的程序

25、设计顺序结构的程序设计文本框名称文本框名称：txtR文本框名称文本框名称：txtC按钮名称按钮名称：cmdStart用用InputBox输输入入H,F。用标。用标签显示。签显示。鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只少只?例例4.5河南财经学院现代教育技术中心 郭清溥404.1 4.1 顺序结构的程序设计顺序结构的程序设计 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总

26、脚数。编写程序，求笼中鸡和兔子各多鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只少只?例例4.5河南财经学院现代教育技术中心 郭清溥414.1 4.1 顺序结构的程序设计顺序结构的程序设计 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只少只?例例4.5“计算计算”命令按钮（命令按钮（cmdStart）的程序源代码如下：）的程序源代码如下：PrivateSubcmdStart_Click()DimH%,F%,R%,C%H=Val(Inp

27、utBox(,输入总头数输入总头数)F=Val(InputBox(,输入总脚数输入总脚数)lblResult.Caption=总头数总头数:&H&总脚数：总脚数：&FR=(F-2*H)/2:C=H-RtxtC.Text=C:txtR.Text=REndSub河南财经学院现代教育技术中心 郭清溥424.1 4.1 顺序结构的程序设计顺序结构的程序设计A A、B B、C C三人上街买糖果。三人买好后，三人上街买糖果。三人买好后，A A对对B B、C C说：说：“我可以按我可以按你们现有的数量再送你们每人一份。你们现有的数量再送你们每人一份。”之后，之后，B B对对A A、C C；C C对对A A、

28、B B也说了同样的话。互相赠送后，每人各有也说了同样的话。互相赠送后，每人各有6464块糖果。编写程序，块糖果。编写程序，计算计算A A、B B、C C原来各买了多少块糖果？原来各买了多少块糖果？我我们们用用A、B、C表示三人原来各表示三人原来各买买的糖果数。的糖果数。C送给送给A、B前前AA/2BB/2CA+B+CB送给送给A、C前前AA/2CC/2BA+B+CA送给送给B、C前前BB/2CC/2AA+B+C例例4.7分析：分析：河南财经学院现代教育技术中心 郭清溥434.1 4.1 顺序结构的程序设计顺序结构的程序设计A A、B B、C C三人上街买糖果。三人买好后，三人上街买糖果。三人买

29、好后，A A对对B B、C C说：说：“我可以按我可以按你们现有的数量再送你们每人一份。你们现有的数量再送你们每人一份。”之后，之后，B B对对A A、C C；C C对对A A、B B也说了同样的话。互相赠送后，每人各有也说了同样的话。互相赠送后，每人各有6464块糖果。编写程序，块糖果。编写程序，计算计算A A、B B、C C原来各买了多少块糖果？原来各买了多少块糖果？例例4.7河南财经学院现代教育技术中心 郭清溥444.1 4.1 顺序结构的程序设计顺序结构的程序设计A A、B B、C C三人上街买糖果。三人买好后，三人上街买糖果。三人买好后，A A对对B B、C C说：说：“我可以按我可

30、以按你们现有的数量再送你们每人一份。你们现有的数量再送你们每人一份。”之后，之后，B B对对A A、C C；C C对对A A、B B也说了同样的话。互相赠送后，每人各有也说了同样的话。互相赠送后，每人各有6464块糖果。编写程序，块糖果。编写程序，计算计算A A、B B、C C原来各买了多少块糖果？原来各买了多少块糖果？例例4.7河南财经学院现代教育技术中心 郭清溥454.1 4.1 顺序结构的程序设计顺序结构的程序设计PrivateSubcmdStart_Click()DimA%,B%,C%A=64:B=64:C=64A=A/2:B=B/2:C=A+B+CC=C/2:A=A/2:B=A+B+

31、CB=B/2:C=C/2:A=A+B+ClblResult.Caption=A、B、C三人的糖果数为：三人的糖果数为：_&A&B&CEndSubA A、B B、C C三人上街买糖果。三人买好后，三人上街买糖果。三人买好后，A A对对B B、C C说：说：“我可以按我可以按你们现有的数量再送你们每人一份。你们现有的数量再送你们每人一份。”之后，之后，B B对对A A、C C；C C对对A A、B B也说了同样的话。互相赠送后，每人各有也说了同样的话。互相赠送后，每人各有6464块糖果。编写程序，块糖果。编写程序，计算计算A A、B B、C C原来各买了多少块糖果？原来各买了多少块糖果？例例4.7

32、河南财经学院现代教育技术中心 郭清溥464.1 4.1 顺序结构的程序设计顺序结构的程序设计4.1.4With语句语句格式：格式：With.EndWith功能：功能：With语句可以对某个对象执行一系列的操作，而不用重语句可以对某个对象执行一系列的操作，而不用重复指出对象的名称。复指出对象的名称。河南财经学院现代教育技术中心 郭清溥474.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0因为要求在实数范围内求解一元二次方程，因为要求在实数范围内求解一元二次方程，所以我们应该假设该方程的根的判别式

33、所以我们应该假设该方程的根的判别式d2-4ac0，因此我们可以利用一元二次方，因此我们可以利用一元二次方程的求根公式来求解方程。程的求根公式来求解方程。例例4.6分析：分析：河南财经学院现代教育技术中心 郭清溥484.1 4.1 顺序结构的程序设计顺序结构的程序设计例例4.6编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0由由InputBox输入方程的输入方程的系数系数河南财经学院现代教育技术中心 郭清溥494.1 4.1 顺序结构的程序设计顺序结构的程序设计例例4.6编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围内求解一元二次

34、方程：aX2+bX+c=0河南财经学院现代教育技术中心 郭清溥50编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围内求解一元二次方程：aX2+bX+c=04.1 4.1 顺序结构的程序设计顺序结构的程序设计PrivateSubcmdStart_Click()DimA%,B%,C%,X1!,X2!A=Val(InputBox(,输入方程的系数输入方程的系数A)B=Val(InputBox(,输入方程的系数输入方程的系数B)C=Val(InputBox(,输入方程的系数输入方程的系数C)lblShow.Caption=一元二次方程的系数是：一元二次方程的系数是：&A&,&B&,&CX1

35、=(-B+Sqr(B*B-4*A*C)/(2*A)X2=(-B-Sqr(B*B-4*A*C)/(2*A)lblX1.Caption=X1=&X1lblX2.Caption=X2=&X2EndSub例例4.6河南财经学院现代教育技术中心 郭清溥514.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。程序运行后程序运行后显示显示“例例B1 计算正弦计算正弦”计算角度计算角度的正弦值的正弦值计算弧度计算弧度的正弦值的正弦值输入原始输入原始数据数据X输出计算输出计算结果结果Y补充例题补充例题1 1河南财经学院现代教育技术中心

36、郭清溥524.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥53程序运行后，窗体中各个控件的标题要明确显示：程序运行后，窗体中各个控件的标题要明确显示：Private Sub Form_Load()Private Sub Form_Load()Form1.Caption=Form1.Caption=例例B1 B1 计算正弦计算正弦 cmdJD.Caption=cmdJD.Caption=按角度计算按角度计算 cmdHD.Caption=cmdHD.Captio

37、n=按弧度计算按弧度计算 txtSR.Text=txtSR.Text=lblSC.Caption=lblSC.Caption=End SubEnd Sub4.1 4.1 顺序结构的程序设计顺序结构的程序设计编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥544.1 4.1 顺序结构的程序设计顺序结构的程序设计Private Sub cmdJD_Click()Private Sub cmdJD_Click()Dim X!,Y!Dim X!,Y!X=Val(txtSR.Text)X=Val(txtSR.Text)

38、Y=Sin(X*3.14/180)Y=Sin(X*3.14/180)lblSC.Caption=Sin(&X&lblSC.Caption=Sin(&X&度度)=&Y)=&YEnd SubEnd Sub编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥554.1 4.1 顺序结构的程序设计顺序结构的程序设计Private Sub cmdHD_Click()Private Sub cmdHD_Click()Dim X!,Y!Dim X!,Y!X=Val(txtSR.Text)X=Val(txtSR.Text)Y=S

39、in(X)Y=Sin(X)lblSC.Caption=Sin(&X&lblSC.Caption=Sin(&X&弧度弧度)=&Y)=&YEnd SubEnd Sub编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥56第第4 4章章 实验实验1 11.例例4.4（提交执行文件）（提交执行文件）请读者考虑：如果将程请读者考虑：如果将程序中给序中给ZP赋值的语赋值的语句做如下修改后再运行程序，会有什么结果句做如下修改后再运行程序，会有什么结果输出，为什么输出，为什么?ZP=KS*70+ZY*10+CS*202.例例4

40、.6（提交执行文件）（提交执行文件）3.习题四，第二题编程题，第习题四，第二题编程题，第2题题（将源代码直接粘贴到答题框中）（将源代码直接粘贴到答题框中）河南财经学院现代教育技术中心 郭清溥574.2 4.2 选择结构的程序设计选择结构的程序设计选择结构，是一种常用的主要选择结构，是一种常用的主要基本结构，是计算机科学用来描基本结构，是计算机科学用来描述分支现象的重要手段。其特点述分支现象的重要手段。其特点是：根据所给定选择条件为真是：根据所给定选择条件为真(即即分支条件成立分支条件成立)与否，而决定从各与否，而决定从各实际可能的不同操作分支中执行实际可能的不同操作分支中执行某一分支的相应操作

41、。并且任何某一分支的相应操作。并且任何情况下恒有情况下恒有“无论分支多寡无论分支多寡,必择必择其一；纵然分支众多其一；纵然分支众多,仅选其一仅选其一”的特性。的特性。河南财经学院现代教育技术中心 郭清溥58当条件为真当条件为真时，执行语句时，执行语句组组1；当条件；当条件为假时，顺序为假时，顺序向下执行。向下执行。4.2 4.2 选择结构的程序设计选择结构的程序设计 块方式块方式：IfThenEndIf行方式行方式：IfThen功能功能单分支结构格式单分支结构格式4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现河南财经学院现代教育技术中心 郭清溥594.2 4.2 选择结构的程序

42、设计选择结构的程序设计单分支结构流程图单分支结构流程图语句组1条件True False条件语句组1TrueFalse4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现河南财经学院现代教育技术中心 郭清溥604.2 4.2 选择结构的程序设计选择结构的程序设计比较时会涉及到交换。比较时会涉及到交换。Y5TX3Y=5X=3T=535交换间间接接交交换换间接交换：间接交换：T=Y :Y=X :X=T4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现两个数据两个数据X，Y比较大小，使得比较大小，使得X大于大于Y。例如：例如：河南财经学院现代教育技术中心 郭清溥614.2 4.2

43、 选择结构的程序设计选择结构的程序设计块方式块方式:IfXYThenT=Y:Y=X:X=TEndIf用下面的语句可以实现用下面的语句可以实现行方式行方式:IfXYThenT=Y:Y=X:X=T两个数据两个数据X，Y比较大小。使得比较大小。使得X大于大于Y。4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例如：例如：河南财经学院现代教育技术中心 郭清溥624.2 4.2 选择结构的程序设计选择结构的程序设计块方式块方式：IfThenElseEndIf行方式行方式：IfThenElse当条件为真时，当条件为真时，执行语句组执行语句组1；当条件为假时，当条件为假时，执行语句组执行语句组

44、2。功能功能双分支结构格式双分支结构格式4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现河南财经学院现代教育技术中心 郭清溥634.2 4.2 选择结构的程序设计选择结构的程序设计双分支结构流程图双分支结构流程图语句组2语句组1条件True False条件语句组1语句组2TrueFalse4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现河南财经学院现代教育技术中心 郭清溥64 x0y=1 x=04.2 4.2 选择结构的程序设计选择结构的程序设计这个问题可有多种方法实现这个问题可有多种方法实现:4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例如：例如

45、：河南财经学院现代教育技术中心 郭清溥65 x0y=1 x=04.2 4.2 选择结构的程序设计选择结构的程序设计Ifx0Theny=Sin(x)+Sqr(x*x+1)/x)Elsey=1EndIf双分支结构双分支结构:4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例如：例如：河南财经学院现代教育技术中心 郭清溥664.2 4.2 选择结构的程序设计选择结构的程序设计Ifx0Theny=Sin(x)+Sqr(x*x+1)/x)Ifx=0Theny=1单分支结构方法单分支结构方法1:1:x0y=1 x=04.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例如：例如：河

46、南财经学院现代教育技术中心 郭清溥67 x0y=1 x=04.2 4.2 选择结构的程序设计选择结构的程序设计y=1Ifx0Theny=Sin(x)+Sqr(x*x+1)/x)单分支结构方法单分支结构方法2:Ifx=0Theny=1y=Sin(x)+Sqr(x*x+1)/x)请思考:这样修改程序行吗？为什么？4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例如：例如：y=Sin(x)+Sqr(x*x+1)/x)Ifx=0Theny=1河南财经学院现代教育技术中心 郭清溥68从甲地到乙地托运行李。行李重量在从甲地到乙地托运行李。行李重量在50千克以内时，每千克千克以内时，每千克0.

47、80元；超过元；超过50千克时，其超过部分每千克千克时，其超过部分每千克1.10元。编写程元。编写程序，计算托运行李千克时所付的运费。序，计算托运行李千克时所付的运费。我们用我们用W表示行李的重量，表示行李的重量，F表示运费，依题意，表示运费，依题意，我们可以得到以下计算公式：我们可以得到以下计算公式：0.8W(W50)F=500.8(W-50)1.1(W50)4.2 4.2 选择结构的程序设计选择结构的程序设计4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例例4.94.9分析：分析：河南财经学院现代教育技术中心 郭清溥69从甲地到乙地托运行李。行李重量在从甲地到乙地托运行李。

48、行李重量在50千克以内时，每千克千克以内时，每千克0.80元；超过元；超过50千克时，其超过部分每千克千克时，其超过部分每千克1.10元。编写程元。编写程序，计算托运行李千克时所付的运费。序，计算托运行李千克时所付的运费。4.2 4.2 选择结构的程序设计选择结构的程序设计4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例例4.94.9由由InputBox输入输入行李的重量，行李的重量，河南财经学院现代教育技术中心 郭清溥70从甲地到乙地托运行李。行李重量在从甲地到乙地托运行李。行李重量在50千克以内时，每千克千克以内时，每千克0.80元；超过元；超过50千克时，其超过部分每千克

49、千克时，其超过部分每千克1.10元。编写程元。编写程序，计算托运行李千克时所付的运费。序，计算托运行李千克时所付的运费。4.2 4.2 选择结构的程序设计选择结构的程序设计4.2.1简单条件选择结构的程序实现简单条件选择结构的程序实现例例4.94.9河南财经学院现代教育技术中心 郭清溥71PrivateSubcmdStart_Click()DimW!,F!W=Val(InputBox(,输入行李的重量输入行李的重量)lblW.Caption=行李重行李重:&W&千克千克IfW0)Y=0(X=0)1X2(X0成立，则利用表达式成立，则利用表达式计算计算Y的值；的值；否则，如果否则，如果X0成立，

50、则利用表达式成立，则利用表达式计算计算Y的值；的值；否则，否则，X0ThenY=1+X*XY_Str=1+X*XElseIfX0ThenY=1-X*XY_Str=1-X*XElseY=0Y_Str=0EndIfEndIftxtY.Text=Y_Str&=&YEndSub河南财经学院现代教育技术中心 郭清溥764.2 4.2 选择结构的程序设计选择结构的程序设计 SelectCaseCaseCaseCaseElseEndSelect格式格式4.2.3多分支选择结构的程序实现多分支选择结构的程序实现1.SelectCase语句语句河南财经学院现代教育技术中心 郭清溥774.2 4.2 选择结构的程