Basic的流程控制.docx

Visual Basic的流程控制
教学内容：Visual Basic的流程控制中的顺序控制、简单分支、选择分支、多路分支、循环控制。
教学重点：选择分支、多路分支、循环控制的应用。
教学难点：选择分支、多路分支、循环控制的应用选择。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
While n <= num
s = s * n
n = n + 1
Wend
MsgBox num & "数的阶乘为：" & s
End Sub
子工程〔3〕：DO···LOOP
当型循环条件前置
Private Sub Command1_Click()
Dim n, sum As Integer
n = 0
sum = 0
Do While n < 100
sum = sum + n
n = n + 1
Loop
Print sum
End Sub
当型循环条件后置
Private Sub Command1_Click()
Dim n, sum As Integer
n = 0
sum = 0
Do
sum = sum + n
n = n + 1
Loop While n < 100
Print sum
End Sub
直到循环条件前置
Private Sub Command1_Click()
Dim sum, s As Long
s = 0
sum = 0
Do Until n > 100
sum = sum + n
n = n + 1
Loop
Print sum
End Sub
直到循环条件后置
Private Sub Command1_Click()
Dim sum, s As Long
s = 0
sum = 0
Do
sum = sum + n
n = n + 1
Loop Until n > 100
Print sum
End Sub
要求
1、画出上述代码的流程图，并说明该代码所完成的功能
2、理解和掌握各控制语句的功能
3、能够根据教师给出的实例，正确选择上述控制语句
4、分析同一控制流程不同语的同异，并在以编程中代码最短的情况下，应如何选择相应的控制流程
三、教学过程：
时间
内 容
1周
先期对学生进展分组，并下达工程任务书，结合教材及相关书籍，完成工程书要求上的第1、2项〔自学能力、信息分析、理解问题能力的表现〕
5分钟
(上课
时间)
引导进入新课,说明流程控制在编程中的相关应用及其重要性。
30分钟
分组展示分析各自的流程控制图〔语言表达及〕
10分钟
教师展示流程图，并结全学生的流程控制图进展讲评
20分钟
给出一实例，要学生先给出流程控制图，然后写出代码〔完成任务书上要求的第3项〕
15分钟
展示各自小组的流程控制图及代码