1、Visual Basic的流程控制教學內容：Visual Basic的流程控制中的順序控制、簡單分支、選擇分支、多路分支、循環控制。教學重點：選擇分支、多路分支、循環控制的應用。教學難點：選擇分支、多路分支、循環控制的應用選擇。教學方法：項目法教學課 時：2課時一、項目目的、要求及分析學習課程Visual Basic6.0程序設計學習單元內容Visual Basic的流程控制主要項目順序、簡單分支、選擇分支、多路分支、循環控制目標群體技工學校計算機專業學生學習環境順序、簡單分支、選擇分支、多路分支、循環控制項目能力分析專業能力Visual Basic流程控制的適用選擇分析能力通過代碼的閱讀分析

2、，作出流程圖方法能力自學能力、信息分析、理解問題能力教學方法項目法、討論歸納法二、任務書：（提前一周發給學生，分組完成相關要求）任 務 書內容閱讀下面代碼，用流程圖模擬出計算機運行各語句操作的流程。并說明該代碼所完成的功能項目一：順序流程Private Sub Command1_Click()Dim a, b As Doublea = 70b = 74Print "數a+b的算術平方根為：", Sqr(a + b)End Sub項目二：簡單分支IF···THEN···ENDIFPrivate Sub Command

3、1_Click()Dim a As Doublea = Val(InputBox("請輸入一個數：", "求算術平方根") If a >= 0 Then MsgBox "輸入數的算術平方根為:" & Sqr(a) End IfEnd Sub項目三：選擇分支 IF···THEN···ELSE···ENDIFPrivate Sub Command1_Click()Dim a As Doublea = Val(InputBox("

4、;請輸入一個數：", "求算術平方根") If a >= 0 Then MsgBox "輸入數的算術平方根為:" & Sqr(a)Else Msgbox"負數不能求算術平方根為!" End IfEnd Sub項目四：多路分支 子項目（1）IF···ELSEIF···THEN···ELSE···ENDIFPrivate Sub Command1_Click()Dim grade As Singl

5、e, result As Stringgrade = Val(InputBox("請輸入學生的分數：", "學生成績輸入")If grade >= 90 Thenresult = "A"Print "該生的等級為A"ElseIf grade >= 80 Thenresult = "B"Print "該生的等級為B"ElseIf grade >= 70 Thenresult = "C"Print "該生的等級為C"Els

6、eIf grade >= 60 Thenresult = "D"Print "該生的等級為D"Elseresult = "E"Print "該生的等級為E"End IfEnd Sub子項目（2）SELECT CASE···CASE···CASE···END SELECTPrivate Sub Command1_Click()Dim grade As Single, result As Stringgrade = Val(

7、InputBox("請輸入學生的分數：", "學生成績輸入")Select Case grade Case Is >= 90result = "A" Case Is >= 80result = "B" Case Is >= 70result = "C" Case Is >= 60result = "D"Case Elseresult = "E"End SelectMsgBox "該生的等級為:" & re

8、sultEnd Sub項目五:循環控制子項目（1）FOR···NEXT循環 和 FOR EACH···NEXTPrivate Sub Command1_Click()Dim sum, n As IntegerFor n = 1 To 100 Step 2sum = sum + nNext nMsgBox "1100間奇數的累加和為：" & sum, vbInformationEnd Sub子項目（2）：WHILE···WENDPrivate Sub Command1_Click

9、()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）：DO···LOOP當型循環條件前置Private Sub Command1_Click()Dim n, sum As Integern = 0sum = 0Do While n

10、< 100sum = sum + nn = n + 1LoopPrint sumEnd Sub當型循環條件后置Private Sub Command1_Click()Dim n, sum As Integern = 0sum = 0Dosum = sum + nn = n + 1Loop While n < 100Print sumEnd Sub直到循環條件前置Private Sub Command1_Click()Dim sum, s As Longs = 0sum = 0Do Until n > 100sum = sum + nn = n + 1LoopPrint sum

11、End 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

12、項（自學能力、信息分析、理解問題能力的體現）5分鐘(上課時間)引導進入新課,說明流程控制在編程中的相關應用及其重要性。30分鐘分組展示分析各自的流程控制圖（語言表達及）10分鐘教師展示流程圖，并結全學生的流程控制圖進行講評20分鐘給出一實例，要學生先給出流程控制圖，然后寫出代碼（完成任務書上要求的第3項）15分鐘展示各自小組的流程控制圖及代碼10分鐘教師講評，并結合任務書上要求的第4項四、各流程控制圖（結合學生圖示給予比較講評的圖示）順序流程簡單分支a=70b=74Print sql(a+b)endsubDim a as double輸入一個數a？a>=0Sqr(a)endifendsu

13、bYN選擇分支： 循環控制：子項目（1、2、3）（可演變）Dim a As DoubleVal(INPUTBOX(“請輸入一個數:”,”求算術平方根”)?a>=0YMsgbox”輸入數的算術平方根為:”&SQR(a)EndifEndsubMsgbox”負數不能求算術平方根!”NN?N<100,N=1, N=N+2YNEXT nMSGBOXENDSUBSum=Sum+n循環體循環條件Dim Sum,n As Integer注意嵌套，并給予分析多路分支：子項目（1）YYYYNDim grade Single,Result As Stringgrade=Val(InputBox(

14、"請輸入學生的分數：", "學生成績輸入")?Grade>=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("請輸入學生的分數：&quo

15、t;, "學生成績輸入")IS>=70IS>=80NIS>=90NNresult=”A”result=”B”result=”C”result=”D”result=”E”MSGBOXendsubENDSELECT六、應用實例（課堂練習）：1、任意輸入三個數，判斷其大小并輸出其最大值。要求：選畫流程控制圖，后寫代碼。流程控制圖代碼NYYYCLS 清屏定義變量及變量類型輸入要比較的數?a>b?a>c?b>cMaxnum=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(Inp