Basic的流程控制.doc

Visual Basic的流程控制教学内容：Visual Basic的流程控制中的顺序控制、简单分支、选择分支、多路分支、循环控制。教学重点：选择分支、多路分支、循环控制的应用。教学难点：选择分支、多路分支、循环控制的应用选择。教学方法：项目法教学课 时：2课时一、项目目的、要求及分析学习课程Visual Basic6.0程序设计学习单元内容Visual Basic的流程控制主要项目顺序、简单分支、选择分支、多路分支、循环控制目标群体技工学校计算机专业学生学习环境顺序、简单分支、选择分支、多路分支、循环控制项目能力分析专业能力Visual Basic流程控制的适用选择分析能力通过代码的阅读分析，作出流程图方法能力自学能力、信息分析、理解问题能力教学方法项目法、讨论归纳法二、任务书：（提前一周发给学生，分组完成相关要求）任 务 书内容阅读下面代码，用流程图模拟出计算机运行各语句操作的流程。并说明该代码所完成的功能项目一：顺序流程Private Sub Command1_Click()Dim a, b As Doublea = 70b = 74Print 数a+b的算术平方根为：, Sqr(a + b)End Sub项目二：简单分支IFTHENENDIFPrivate Sub Command1_Click()Dim a As Doublea = Val(InputBox(请输入一个数：, 求算术平方根) If a = 0 Then MsgBox 输入数的算术平方根为: & Sqr(a) End IfEnd Sub项目三：选择分支 IFTHENELSEENDIFPrivate Sub Command1_Click()Dim a As Doublea = Val(InputBox(请输入一个数：, 求算术平方根) If a = 0 Then MsgBox 输入数的算术平方根为: & Sqr(a)Else Msgbox负数不能求算术平方根为! End IfEnd Sub项目四：多路分支 子项目（1）IFELSEIFTHENELSEENDIFPrivate Sub Command1_Click()Dim grade As Single, result As Stringgrade = Val(InputBox(请输入学生的分数：, 学生成绩输入)If grade = 90 Thenresult = APrint 该生的等级为AElseIf grade = 80 Thenresult = BPrint 该生的等级为BElseIf grade = 70 Thenresult = CPrint 该生的等级为CElseIf grade = 60 Thenresult = DPrint 该生的等级为DElseresult = EPrint 该生的等级为EEnd IfEnd Sub子项目（2）SELECT CASECASECASEEND SELECTPrivate Sub Command1_Click()Dim grade As Single, result As Stringgrade = Val(InputBox(请输入学生的分数：, 学生成绩输入)Select Case grade Case Is = 90result = A Case Is = 80result = B Case Is = 70result = C Case Is = 60result = DCase Elseresult = EEnd SelectMsgBox 该生的等级为: & resultEnd Sub项目五:循环控制子项目（1）FORNEXT循环 和 FOR EACHNEXTPrivate Sub Command1_Click()Dim sum, n As IntegerFor n = 1 To 100 Step 2sum = sum + nNext nMsgBox 1100间奇数的累加和为： & sum, vbInformationEnd Sub子项目（2）：WHILEWENDPrivate Sub Command1_Click()Dim num, n, s As Longnum = Val(InputBox(请输入要求阶乘的数13：, 求阶乘的数)n = 1s = 1 While n = num s = s * n n = n + 1 WendMsgBox num & 数的阶乘为： & sEnd Sub子项目（3）：DOLOOP当型循环条件前置Private Sub Command1_Click()Dim n, sum As Integern = 0sum = 0Do While n 100sum = sum + nn = n + 1LoopPrint sumEnd Sub当型循环条件后置Private Sub Command1_Click()Dim n, sum As Integern = 0sum = 0Dosum = sum + nn = n + 1Loop While n 100sum = sum + nn = n + 1LoopPrint sumEnd Sub直到循环条件后置Private Sub Command1_Click()Dim sum, s As Longs = 0sum = 0Dosum = sum + nn = n + 1Loop Until n 100Print sumEnd Sub要求1、画出上述代码的流程图，并说明该代码所完成的功能2、理解和掌握各控制语句的功能3、能够根据教师给出的实例，正确选择上述控制语句4、分析同一控制流程不同语的同异，并在以编程中代码最短的情况下，应如何选择相应的控制流程三、教学过程：时间内 容1周先期对学生进行分组，并下达项目任务书，结合教材及相关书籍，完成项目书要求上的第1、2项（自学能力、信息分析、理解问题能力的体现）5分钟(上课时间)引导进入新课,说明流程控制在编程中的相关应用及其重要性。30分钟分组展示分析各自的流程控制图（语言表达及）10分钟教师展示流程图，并结全学生的流程控制图进行讲评20分钟给出一实例，要学生先给出流程控制图，然后写出代码（完成任务书上要求的第3项）15分钟展示各自小组的流程控制图及代码10分钟教师讲评，并结合任务书上要求的第4项四、各流程控制图（结合学生图示给予比较讲评的图示）顺序流程简单分支a=70b=74Print sql(a+b)endsubDim a as double输入一个数a？a=0Sqr(a)endifendsubYN选择分支： 循环控制：子项目（1、2、3）（可演变）Dim a As DoubleVal(INPUTBOX(“请输入一个数:”,”求算术平方根”)?a=0YMsgbox”输入数的算术平方根为:”&SQR(a)EndifEndsubMsgbox”负数不能求算术平方根!”NN?N=70?Grade=80N?Grade=90NNN?Grade=60result=”A”result=”B”result=”C”result=”D”result=”E”Print “A”Print “B”Print “C”Print “D”Print “E”Endif endsub多路分支：子项目（2）ELSEIS=60Dim grade Single,Result As Stringgrade=Val(InputBox(请输入学生的分数：, 学生成绩输入)IS=70IS=80NIS=90NNresult=”A”result=”B”result=”C”result=”D”result=”E”MSGBOXendsubENDSELECT六、应用实例（课堂练习）：1、任意输入三个数，判断其大小并输出其最大值。要求：选画流程控制图，后写代码。流程控制图代码NYYYCLS 清屏定义变量及变量类型输入要比较的数?ab?ac?bcMaxnum=bMaxnum=cMaxnum=aNNPrint maxnumEndsubPrivate Sub Command1_Click()Dim a, b, c, maxnum As DoubleClsa = Val(InputBox(please input the first number)b = Val(InputBox(please input the second number)c = Val(InputBox(please inp