Basic的程序控制

VisualBasic的流程控制教学 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 ：VisualBasic的流程控制中的顺序控制、简单分支、选择分支、多路分支、循环控制。教学重点：选择分支、多路分支、循环控制的应用。教学难点：选择分支、多路分支、循环控制的应用选择。教学 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 ：项目法教学课时：2课时、项目目的、要求及 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 学习课程VisualBasic6.0程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 学习单元内容VisualBasic的流程控制主要项目顺序、简单分支、选择分支、多路分支、循环控制目标群体技工学校计算机专业学生学习环境顺序、简单分支、选择分支、多路分支、循环控制项目能力分析专业能力VisualBasic流程控制的适用选择分析能力通过代码的阅读分析，作出流程图方法能力自学能力、信息分析、理解问题能力教学方法项目法、讨论归纳法二、任务 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf ：(提前一周发给学生，分组完成相关要求)任务书内容阅读下面代码，用流程图模拟出计算机运行各语句操作的流程。并说明该代码所完成的功能项目一：顺序流程PrivateSubCommandl_Click()Dima,bAsDoublea=70b=74Print"数a+b的算术平方根为：",Sqr(a+b)EndSub项目二：简单分支IF・•・THEN・・・ENDIFPrivateSubCommand1_Click()DimaAsDoublea=Val(InputBox(，请输入一个数："，“求算术平方根"))Ifa>=0ThenMsgBox"输入数的算术平方根为:"&Sqr(a)EndIfEndSub项目三：选择分支IF・・・THEN•・・ELSE・・・ENDIFPrivateSubCommandl_Click()DimaAsDoublea=Val(InputBox(，请输入一个数："，“求算术平方根"))Ifa>=0ThenMsgBox"输入数的算术平方根为:"&Sqr(a)ElseMsgbox"负数不能求算术平方根为!"EndIfEndSub项目四：多路分支子项目(1)IF…ELSEIF…THEN…ELSE…ENDIFPrivateSubCommand1_Click()DimgradeAsSingle,resultAsStringgrade=Val(InputBox("请输入学生的分数：","学生成绩输入"))Ifgrade>=90Thenresult="A"Print"该生的等级为A"ElseIfgrade>=80Thenresult="B"Print"该生的等级为B"ElseIfgrade>=70Thenresult="C"Print"该生的等级为C"ElseIfgrade>=60Thenresult="D"Print"该生的等级为D"Elseresult="E"Print"该生的等级为E"EndIfEndSub子项目(2)SELECTCASE・■-CASE・■・CASE・■-ENDSELECTPrivateSubCommand1_Click()DimgradeAsSingle,resultAsStringgrade=Val(InputBox("请输入学生的分数：","学生成绩输入"))SelectCasegradeCaseIs>=90result="A"CaseIs>=80result="B"CaseIs>=70result="C"CaseIs>=60result="D"CaseElseresult="E"EndSelectMsgBox"该生的等级为:"&resultEndSub项目五:循环控制子项目(1)FOR•••NEXT循环和FOREACH…NEXTPrivateSubCommandl_Click()Dimsum,nAsIntegerForn=1To100Step2sum=sum+nNextnMsgBox"1一100间奇数的累加和为："&sum,vblnformationEndSub子项目(2)：WHILE・・•WENDPrivateSubCommand1_Click()Dimnum,n,sAsLongnum=Val(InputBox("请输入要求阶乘的数〈13：","求阶乘的数"))n=1s=1Whilen<=nums=s*nn=n+1WendMsgBoxnum&"数的阶乘为："&sEndSub子项目(3)：DO・••LOOP当型循环条件前置PrivateSubCommand1_Click()Dimn,sumAsIntegern=0sum=0DoWhilen<100sum=sum+nn=n+1LoopPrintsumEndSub当型循环条件后置PrivateSubCommandl_Click()Dimn,sumAsIntegern=0sum=0Dosum=sum+nn=n+1LoopWhilen<100PrintsumEndSub直到循环条件前置PrivateSubCommand1_Click()Dimsum,sAsLongs=0sum=0DoUntiln>100sum=sum+nn=n+1LoopPrintsumEndSub直到循环条件后置PrivateSubCommand1_Click()Dimsum,sAsLongs=0sum=0Dosum=sum+nn=n+1LoopUntiln>100PrintsumEndSub要求1、画出上述代码的流程图，并说明该代码所完成的功能2、理解和掌握各控制语句的功能3、能够根据教师给出的实例，正确选择上述控制语句4、分析冋一控制流程不冋语的冋异，并在以编程中代码最短的情况下，应如何选择相应的控制流程三、教学过程：时间内容1周先期对学生进行分组，并下达项目任务书，结合教材及相关书籍，完成项目书要求上的第1、2项（自学能力、信息分析、理解问题能力的体现）5分钟（上课时间）引导进入新课，说明流程控制在编程中的相关应用及其重要性。30分钟分组展示分析各自的流程控制图（语言表达及）10分钟教师展示流程图，并结全学生的流程控制图进行讲评20分钟给出一实例，要学生先给出流程控制图，然后写出代码（完成任务书上要求的第3项）15分钟展示各自小组的流程控制图及代码10分钟教师讲评，并结合任务书上要求的第4项四、各流程控制图（结合学生图示给予比较讲评的图示）?N<100,N=1NN=N+2N?a>=0YYNNNNYYYPrintPrint“D多路分支：子项目（1）多路分支：子项目（2）result=”D”MSGBOX注意嵌套,循环条件grade二Val（InputBox（"请输入学生的分数：”,"学生成绩输入"））Val（INPUTBOX（“请输入一个数:”，”求算术平方根”））Msgbox”输入数的算术平方根为:”&SQR（a）DimgradeSingle,ResultAsS^ingMsgbox”负数不能求算术平方根!”循环体DimSum,nAsIntegerSum=Sum+n并给予分析ENDSUBNEXTnPrint“B”Print“C”Print“A”Endifendsubresult=”E”result=”B”result=”C”result=”A”DimaAsEndsubEndifNNNELSEresult=”A”result=”B”result=”D”result=”E”ENDSELECTMSGBOXendsubgrade二Val（InputBox（"请输入学生的分数：”,"学生成绩输入"））DimgradeSingle,ResultAsStringresult=”C”*流程控制图代码六、应用实例（课堂练习）：1、任意输入三个数，判断其大小并输出其最大值。要求：选画流程控制图，后写代码。PrivateSubCommandl_Click()Dima,b,c,maxnumAsDoubleClsa=Val(InputBox("pleaseinputthefirstnumber"))b=Val(InputBox("pleaseinputthesecondnumber"))c=Val(InputBox("pleaseinputthethirdnumber"))Ifa>bThenIfa>cThenmaxnum=aElsemaxnum=cEndIfElseIfb>cThenmaxnum=bElsemaxnum=cEndIfEndIfPrint"maxnum="&maxnumEndSub七、分析：写代码应可读、简短并达到目的为原则。