VisualBasic的流程控制.docVIP

Visual Basic的流程控制 教学内容：Visual Basic的流程控制中的顺序控制、简单分支、选择分支、多路分支、循环控制。 教学重点：选择分支、多路分支、循环控制的应用。 教学难点：选择分支、多路分支、循环控制的应用选择。 教学方法：项目法教学 课 时：2课时 一、项目目的、要求及分析 学习课程 Visual Basic6.0程序设计 学习单元内容 Visual Basic的流程控制 主要项目 顺序、简单分支、选择分支、多路分支、循环控制 目标群体 技工学校计算机专业学生 学习环境 顺序、简单分支、选择分支、多路分支、循环控制 项目能力分析 专业能力 Visual Basic流程控制的适用选择 分析能力 通过代码的阅读分析，作出流程图 方法能力 自学能力、信息分析、理解问题能力 教学方法 项目法、讨论归纳法 二、任务书：（提前一周发给学生，分组完成相关要求） 任 务 书 内容 阅读下面代码，用流程图模拟出计算机运行各语句操作的流程。并说明该代码所完成的功能 项目一：顺序流程 Private Sub Command1_Click() Dim a, b As Double a = 70 b = 74 Print 数a+b的算术平方根为：, Sqr(a + b) End Sub 项目二：简单分支IF···THEN···ENDIF Private Sub Command1_Click() Dim a As Double a = Val(InputBox(请输入一个数：, 求算术平方根)) If a = 0 Then MsgBox 输入数的算术平方根为: Sqr(a) End If End Sub 项目三：选择分支 IF···THEN···ELSE···ENDIF Private Sub Command1_Click() Dim a As Double a = Val(InputBox(请输入一个数：, 求算术平方根)) If a = 0 Then MsgBox 输入数的算术平方根为: Sqr(a) Else Msgbox负数不能求算术平方根为! End If End Sub 项目四：多路分支 子项目（1）IF···ELSEIF···THEN···ELSE···ENDIF Private Sub Command1_Click() Dim grade As Single, result As String grade = Val(InputBox(请输入学生的分数：, 学生成绩输入)) If grade = 90 Then result = A Print 该生的等级为A ElseIf grade = 80 Then result = B Print 该生的等级为B ElseIf grade = 70 Then result = C Print 该生的等级为C ElseIf grade = 60 Then result = D Print 该生的等级为D Else result = E Print 该生的等级为E End If End Sub 子项目（2）SELECT CASE···CASE···CASE···END SELECT Private Sub Command1_Click() Dim grade As Single, result As String grade = Val(InputBox(请输入学生的分数：, 学生成绩输入)) Select Case grade Case Is = 90 result = A Case Is = 80 result = B Case Is = 70 result = C Case Is = 60 result = D Case Else result = E End Select MsgBox 该生的等级为: result End Sub 项目五:循环控制 子项目（1）FOR···NEXT循环 和 FOR EACH···NEXT Private Sub Command1_Click() Dim sum, n As Integer For n = 1 To 100 Step 2 sum = sum + n Next n MsgBox 1—100间奇数的累加和为： sum, vbInformation End Sub 子项目（2）：WHILE···WEND Private Sub Command1_Click() Dim num, n, s As Long num = Val(InputBox(请输入要求阶乘的数〈13：, 求阶乘的数)) n = 1 s = 1 Wh