.實用文檔.?VisualBasic6.0?教案授課班級：10級計算機及應用1班授課教師：

學校教學設計表課次第1次2課時課型周次第6周授課日期年月日課題界面設計——時鐘封面教學目標知識目標熟悉VB6的集成開發環境；認識VB6的構成要素；技能目標了解對象屬性的設置與應用；素質〔情感、態度、價值觀、職業核心能力〕目標激發學生學習興趣，培養學生的獨立思考能力和判斷能力。重點難點簡單的菜單和工具欄的使用；對象、對象屬性的概念；教學方法設計講授法、討論法教學內容、教學過程、及時間分配導入：VisualBasic是一種可視化、面向對象和采用事件驅動方式的結構化高級程序設計語言，能用于Windows環境下的各種應用軟件的開發，是目前較為流行的應用軟件開發平臺。一、VisualBasic構成要素1、對象與屬性對象：現實生活中的對象就是人們所說的“東西〞，如：太陽系、太陽、月亮。VisualBasic中的對象有：窗體、標簽、命令按鈕等。屬性：描述對象的特征的數據，如標簽的Caption、Height、Width等。VisualBasic中對象屬性使用方法：對象.屬性=表達式如：Form1.Caption="第一個程序"2、事件與過程事件：在VisualBasic中事先設置好的能被系統識別的動作。例如：用鼠標單擊窗體的事件就是Click事件。事件過程：就是事件發生后，程序要去執行的代碼。例如，用鼠標單擊窗體觸發Click事件，程序將執行過程PrivateSubForm_Click()中的代碼，該過程稱為事件過稱。下面就是一個事件過程，如果用鼠標單擊Command1按鈕就會觸發Command1的Click事件，程序要執行如下的事件過程。PrivateSubCommand_Click()Text1.Text="VisualBasic程序設計"EndSub3、方法：VisualBasic將內含的函數或者過程稱為方法。如下是Form的方法：Form1.Print"Hello,VisualBasic6.0"教學活動1：認識VB的集成開發環境。學生通過看書、討論，說出VB集成開發環境包含哪些局部，各局部的作用是什么？教學活動2：演示程序——窗體顏色變化學生通過觀看演示，小組討論分析用VB開發應用程序需要的步驟。歸納得出步驟為：1.創立應用程序界面；2.設置屬性；3編寫代碼。教學資源作業內容如何設置對象的屬性？教學后記備注課次第2次2課時課型周次第7周授課日期年月日課題界面設計——時鐘封面教學目標知識目標標簽的常用屬性；技能目標了解標簽對象屬性的設置及應用；學會保存程序；素質〔情感、態度、價值觀、職業核心能力〕目標激發學生學習興趣，培養學生的團隊協作能力和判斷能力。重點難點標簽的常用屬性；屬性的設置方法；教學方法設計工程教學法、討論法、上機操作教學內容、教學過程、及時間分配導入：對于Windows環境下的應用軟件，一個漂亮而醒目的封面總會使軟件充滿魅力。比方Word2003簡潔美觀的封面，它給所有office的用戶都留下了深刻的印象。教學活動1完成工程：時鐘封面工程描述：學習制作一款應用軟件的“封面〞〔見書第2頁〕，它是啟動應用軟件時，顯示出的第一個界面，在該界面上一般顯示軟件名稱、版本、版權等信息。學生對該工程進行分析，并實現。教師根據學生完成情況進行點評。相關知識介紹：標簽：標簽用于設計在用戶界面上不能被使用者修改的只讀的文字內容。標簽的常用屬性有：Alignment:標簽的文字的對齊方式，0表示左邊對齊，1表示右邊對齊，2表示中間對齊；AutoSize：可自動調節標簽的大小。值為True時，標簽的大小自動與文字的大小一致，值為False時標簽的大小固定，不會隨文字的大小的改變而改變；BackStyle：標簽的背景是否透明。0表示透明，1表示背景不透明；Caption：標簽上顯示的文字。標簽的事件使用較少。主要事件有：Click事件：單擊標簽觸發Click事件。工程分析：軟件界面上顯示文本信息一般使用標簽〔Label〕，本工程通過3個標簽分別顯示軟件名稱、版本和版權信息，而背景圖片、圖標和標題的“歡送〞文本通過設置窗體屬性實現。所用控件：窗體、標簽。所用屬性：Caption、Font、Aligment、Picture、BackStyle、Icon工程實現步驟：啟動VB6添加文字修飾文字對齊文字設置顯示文字的內部名稱添加其余文字對齊3個標簽設置窗體背景圖片設置文字透明背景10、改變窗體大小11、窗體的圖標的更改12、窗體的名稱和標題欄文字的設置13、運行程序14、保存程序15、生成可執行程序16、關閉VB6教學資源作業內容標簽的常用屬性及意義教學后記備注課次第3次2課時課型周次第7周授課日期年月日課題界面設計——關于時鐘教學目標知識目標圖片框控件的常用屬性；窗體的常用屬性；技能目標掌握設置窗體控件的方法；素質〔情感、態度、價值觀、職業核心能力〕目標激發學生學習興趣，培養學生的自學能力、信息分析、理解問題能力。重點難點窗體的常用屬性及設置；教學方法設計工程教學法、討論法、上機操作教學內容、教學過程、及時間分配導入：在具有Windows風格的應用軟件中，菜單欄的最后一個菜單一般是“幫助〞菜單，其中都有一個“關于〞菜單命令。如WindowsXP操作系統中，“我的電腦〞的幫助菜單中有一個“關于Windows〞菜單命令。教學活動1完成工程：關于時鐘工程描述：“關于〞是英文“About〞的漢譯。“關于〞窗口與軟件封面的區別是：軟件封面是應用軟件啟動時出現，一般在應用軟件主窗口啟動后自動關閉；“關于〞窗口是用于應用軟件運行之后向用戶提供軟件版本、授權等信息，一般需要用戶單擊“關閉〞按鈕才能關閉窗口。學生對該工程進行分析，并實現。教師根據學生完成情況進行點評。工程分析：本工程是對前一工程“時鐘封面〞主要的區別是：增加了一個“關閉〞按鈕和圖片框，其次是增加了直線、標簽及窗口標題欄的變化。工程實現：添加圖片；2、添加文字；3、添加線條；4、添加按鈕；5、添加代碼；6、設置窗體；7、運行程序；8、保存程序教學資源作業內容窗體的常用屬性有哪些？教學后記備注課次第4次2課時課型周次第7周授課日期年月日課題界面設計——用戶登錄教學目標知識目標1、命令按鈕、文本框的常用屬性及事件；技能目標掌握命令按鈕、文本框控件的初步應用；素質〔情感、態度、價值觀、職業核心能力〕目標激發學生學習VB的熱情；培養學生的自學能力，分析、理解問題能力。重點難點命令按鈕、文本框的常用屬性；命令按鈕、文本框的應用；教學方法設計工程教學法、討論法、上機操作教學內容、教學過程、及時間分配導入：為了管理用戶個人信息，保護個人數據的平安，很多應用軟件都要求用戶提交賬號和密碼，這就需要一個用戶登錄的界面，比方QQ用戶登錄界面。教學活動1工程：制作一款“用戶登錄〞的窗口；工程描述：本工程要求用戶輸入賬號和密碼〔輸入時密碼顯示為“*〞〕，單擊“登錄〞按鈕時，顯示用戶輸入的信息〔顯示時用戶密碼以明碼顯示〕學生討論，并說出設計步驟。教師點評，并進行分析演示：本工程用文本框接受用戶輸入的數據，“重填〞按鈕和“登錄〞按鈕通過代碼設置是否響應用戶的操作〔即可用性〕，窗口上部使用圖像控件顯示圖像文件。知識點介紹：文本框文本框主要用于在程序中改變顯示的文字，文本框一般具有復制、剪切、刪除、粘貼等編輯功能。文本框的常見屬性有：Text：文本框中的文字；Multiline:值為True時，文本框可以多行顯示，值為False時，文本框的文字以單行顯示；PasswordChar:用于設置口令，如把文本框的PasswordChar屬性設置為“*〞,那么在文本框中的任何字符都會顯示為“*〞，這樣便于口令的保密。文本框的常見事件：Change:文本框的Text發生改變觸發該事件；命令按鈕命令按鈕是VisualBasic中使用最頻繁的控件之一，它的常用屬性有：Name：窗體的名稱屬性；Caption:命令按鈕的標題屬性；Cancel:該屬性的值有True和False，設置為true是，按“ESC〞鍵就等價于點擊該按鈕；Enabled:按鈕是否有效，值為True時，表示按鈕有效，值為False時表示該按鈕無效；Style:按鈕的樣式。0表示標準樣式，1表示圖形樣式；Visible:值為True時按鈕顯示，值為False時按鈕在運行時不顯示。最常見的事件有：Click事件：用鼠標單擊按鈕觸發該事件。程序舉例：在窗體中按照順序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如圖1-1所示。圖1-1程序界面設置屬性，設置Lable1的Caption為“&User〞、Lable2的Caption為“&Password〞、Command1的Caption為“確定[&E]〞、設置Command2的Caption為“[&S]〞、設置Text1和Text2的Text為空，設置Text2的Passwordchar為“*〞。設置屬性后的界面如圖1-2所示。圖1-2設置屬性后的界面教學資源作業內容教學后記備注課次第5次2課時課型周次第8周授課日期年月日課題界面設計——用戶登錄教學目標知識目標1、命令按鈕、文本框的常用屬性及事件；2、認識代碼窗口技能目標學會代碼的添加；素質〔情感、態度、價值觀、職業核心能力〕目標激發學生學習VB的熱情；培養學生的自學能力，分析、理解問題能力。重點難點代碼的添加；教學方法設計工程教學法、討論法、上機操作教學內容、教學過程、及時間分配導入：上節課通過設計“用戶登錄〞窗口，相信對于該程序的界面設計有了一定的了解，本節課希望大家通過閱讀教材，將代碼添加進去，實現完整的程序。理解代碼含義，并說明代碼所完成的功能。回憶程序：在窗體中按照順序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如圖1-1所示。圖1-1程序界面設置屬性，設置Lable1的Caption為“&User〞、Lable2的Caption為“&Password〞、Command1的Caption為“確定[&E]〞、設置Command2的Caption為“[&S]〞、設置Text1和Text2的Text為空，設置Text2的Passwordchar為“*〞。設置屬性后的界面如圖1-2所示。圖1-2設置屬性后的界面代碼實現：編寫代碼如下：PrivateSubCommand1_Click()IfText1.Text="zs"AndText2.Text="123"ThenMsgBox"歡送你"ElseMsgBox"非法用戶"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub保存程序。運行程序，程序正確。學生交流討論，并自己獨立實現“用戶登錄〞窗口的制作。教學資源作業內容制作一款“用戶登錄〞的窗口教學后記備注課次第6次2課時課型周次第8周授課日期年月日課題界面設計——時鐘教學目標知識目標1、日期和時間函數；2、語法的概念；技能目標初步掌握賦值語句及函數的用法；學會定時器、圖形控件的初步應用；素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力。重點難點函數的用法教學方法設計工程教學法、討論法、上機操作教學內容、教學過程、及時間分配導入：時鐘不僅是一個顯示時間的工具，對很多人來說，時鐘更是管理時間的工具，所以，很多應用軟件中都附帶有時鐘工具軟件，如Windows操作系統中自帶的“日期與時間〞工具里，就有一個簡單的時鐘。教學活動1工程描述：要求制作一款“時鐘〞軟件。完成的時鐘以圖形動畫和字符兩種形式顯示日期與時間。在后續章節中，可以對本工程的時鐘做進一步的功能開發，如顯示星期、定時鬧鐘等。學生對該工程進行分析，并實現。教師根據學生完成情況進行點評。工程分析：本工程使用圖形控件畫時鐘的鐘面，用直線控件畫時針、分針、秒針的指針，通過定時器的作用控制秒針、分針和時針的變化，日期和時間標簽中要用到日期型函數。工程實現：畫鐘面添加標簽參加定時器添加定時器代碼參加秒針參加分針和時針修改代碼設置窗體保存程序相關知識：1、函數：函數是一種特定的運算，在程序中要使用一個函數時，只要給出函數名及參數，就能得到它的函數值，如sin(x)是求弧度值為x的正弦值的函數。在VB6中，一般函數由函數名和參數組成，參數需要外加括號。個別特殊的函數不需要參數時，可以直接給出函數名得到函數值，如Date函數得到當前計算機的日期值，Time函數得到當前計算機的時間值。2、語法建立程序語句時必須遵從的構造規那么稱為語法。在輸入語句的過程中，VB將自動對輸入的內容進行語法檢查，如果發現語法錯誤，將彈出一個信息框提示出錯的原因。教學資源作業內容設計一時鐘教學后記備注課次第次2課時課型周次第8周授課日期年月日課題簡單程序設計——數值交換教學目標知識目標1、賦值語句技能目標初步掌握賦值語句的用法；素質〔情感、態度、價值觀、職業核心能力〕目標培養學生分析問題、解決問題能力重點難點賦值語句的靈活應用教學方法設計講授、討論法、上機操作教學內容、教學過程、及時間分配導入方法及內容認識賦值語句：賦值語句的一般格式為：[Let]<名稱>=<表達式>其中，“[Let]〞是可選項，一般情況下可省略。“<名稱>〞是變量或屬性的名稱，“<表達式>〞是指某運算式。在使用賦值語句時，需注意以下幾點：〔1〕賦值語句兼有計算與賦值的雙重功能，它首先計算賦值號“=〞右邊表達式的值，然后把結果賦給賦值號左邊的變量〔或屬性〕。〔2〕賦值號“=〞與數學上的等號意義是不一樣的。〔3〕賦值號兩邊的數據類型必須一致，否那么會出現“類型不匹配〞錯誤。賦值語句語法：變量名|對象的屬性名=表達式功能：將表達式的值賦給指定的變量或對象的屬性。說明：賦值語句在程序設計中的使用非常廣泛，每一個賦值語句可以單獨放在一行中，也可以將多條賦值語句放在一行中，但每一語句間必須用“：〞冒號作為分隔符。【例】長和寬，求矩形的面積。設計步驟如下：⑴設計程序界面。選擇“新建〞工程，然后在窗體中增加一個標簽Label1，一個命令按鈕Command1和一個文本框Text1。⑵設置對象屬性。如表2.8所示。表2.8屬性設置對象屬性屬性值Label1Caption：長=5，寬=7Label2CaptionCommand1Caption那么矩形面積=⑶編寫事件代碼。命令按鈕Command1的Click事件代碼為：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,areaAsSinglea=5b=7area=a*bLabel2.Caption=Str(area)EndSub練習：書101頁教學資源作業內容教學后記備注課次第次2課時課型周次第9周授課日期年月日課題簡單程序設計——數值交換教學目標知識目標1、賦值語句技能目標初步掌握賦值語句的用法；素質〔情感、態度、價值觀、職業核心能力〕目標培養學生分析問題、解決問題能力重點難點賦值語句的靈活應用教學方法設計上機操作教學內容、教學過程、及時間分配導入方法及內容要求學生討論分析并編程實現以下工程：從鍵盤分別輸入兩個數據，單擊“交換〞按鈕完成兩個數值的交換。界面如下：教學資源作業內容教學后記備注課次第次2課時課型周次第9周授課日期年月日課題簡單程序設計——數值交換教學目標知識目標1、賦值語句技能目標初步掌握賦值語句的用法；素質〔情感、態度、價值觀、職業核心能力〕目標培養學生分析問題、解決問題能力重點難點賦值語句的靈活應用教學方法設計演示、學生討論教學內容、教學過程、及時間分配導入方法及內容編程實現以下工程：從鍵盤分別輸入兩個數據，單擊“交換〞按鈕完成兩個數值的交換。分析：這是一個數值交換程序。分別在TEXT1和TEXT2中輸入數值1和數值2，單擊“交換〞按鈕，那么text1中顯示的是數值2，text2中顯示的是數值1；單擊“去除〞按鈕，那么去除text1和text2中的內容；單擊“結束〞按鈕，退出該程序。首先通過賦值語句將數據從文本框中取出，用不同的變量來存放數據，交換后再放入到文本框中，然后通過單擊按鈕來實現計算、清空和結束的功能。演示步驟如下：創立界面設置各對象的屬性編寫代碼運行程序保存界面如下：教學資源作業內容將窗體中的數值換成字符，該如何修改界面和代碼？教學后記課次第次2課時課型周次第9周授課日期年月日課題簡易文本編輯器教學目標知識目標變量及常量技能目標掌握變量、常量的聲明及使用。素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點變量、常量的聲明及使用教學方法設計講授、上機操作教學內容、教學過程、及時間分配導入方法及內容常量及變量：1.常量常量聲明格式：[Public|Private]Const常量名[astype]=value2.變量一、變量的命名規那么1.以字母或漢字開頭，后可跟字母、數字或下劃線組成.2.變量名最長為255個字符；3.VB中不區分變量名的大小寫；4.不能使用VB中關鍵字；二、聲明變量有兩種方式：顯式聲明和隱式聲明。(1)顯式聲明語法聲明格式：Dim|Static|Public|Private<變量名>As<數據類型>語句功能：聲明變量并分配存儲空間。(2)隱式聲明語法聲明格式：Dim<變量名>〔或者不聲明變量，而直接使用變量〕3變量作用域不同作用域變量的聲明方式作用范圍局部變量模塊級變量公共變量聲明方式Dim，StaticDim，PrivatePublic變量的聲明位置過程內部模塊的聲明段模塊的聲明段本模塊中其他過程能否訪問不能能能其他模塊能否訪問不能不能能三、應用舉例1、說明以下語句的作用y=3*x^3+5a=a+1

'說明：先計算右邊的值，然后再把計算結果賦給左邊的變量2、例：計算圓的面積和周長1、設計界面和運行界面，如下圖。2、代碼：OptionExplicit------------------------------------------------PrivateSubCommand1_Click()DimpiAsSingle,rAsSingle,lAsSingle,sAsSingler=Val(t1.Text)pi=3.14l=2*pi*rs=

pi*r^2l1.Caption=Str(l)l2.Caption=Str(s)EndSub****注意****val(字符串)：把字符串轉換為數值；str(數值)：

把數值轉換為字符串

輸入的數據是字符型,轉換成數值型才能進行計算；標簽的Caption屬性是字符型，所以輸時又要把計算結果轉換成字符型。教學資源作業內容教學后記備注課次第次2課時課型周次第10周授課日期年月日課題簡易文本編輯器教學目標知識目標變量及常量技能目標掌握變量、常量的聲明及使用。素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點變量、常量的聲明及使用教學方法設計上機操作教學內容、教學過程、及時間分配導入方法及內容要求學生討論并編程實現——簡易文本編輯器功能：本程序可以對文本框進行復制、剪切、粘貼、刪除、去除等操作。界面如下：教學資源作業內容教學后記備注課次第次2課時課型周次第10周授課日期年月日課題簡易文本編輯器教學目標知識目標變量及常量技能目標掌握變量、常量的聲明及使用。素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點變量、常量的聲明及使用教學方法設計演示、學生討論教學內容、教學過程、及時間分配導入方法及內容編程實現——簡易文本編輯器功能：本程序可以對文本框進行復制、剪切、粘貼、刪除、去除等操作。分析：這是一個簡易文本編輯器。在TEXT1中選擇需要復制或剪切的內容，單擊“剪切〞按鈕可以實現剪切功能，單擊“復制〞按鈕可以實現復制功能；然后將光標移動到需要粘貼的位置，單擊“粘貼〞按鈕，即可把剪切或復制的內容粘貼到目標位置；單擊“退出〞按鈕結束。在這個程序中，涉及文本編輯屬性中的seltext屬性，該屬性是用來選定字符，如果沒有字符被選定的話，就是空字符。剪切、復制和粘貼就是通過一個模塊級變量來實現的。步驟演示：創立用戶界面設置各對象屬性編寫代碼運行程序保存界面如下：教學資源作業內容如果再添加2個“全選〞和“清空〞按鈕，應該如何修改窗體和代碼？教學后記課次第次2課時課型周次第10周授課日期年月日課題簡易計算器教學目標知識目標算術運算符及表達式技能目標熟悉VB語言中表達式的使用素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點表達式的應用教學方法設計講授、上機練習教學內容、教學過程、及時間分配導入方法及內容表達式及運算符：1.算術運算符及算術表達式〔1〕“/〞和“\〞運算符的區別；〔2〕“MOD〞運算符的運用〔3〕寫VB表達式時，要注意的幾點；2.字符運算符及字符表達式字符運算符用于將兩個字符型表達式連接生成一個新字符串。其運符主要有“+〞運算符和“&〞運算符 當兩個表達式的其中一個是數值型時，“+〞做為算術運算符進行加法運算，當兩個表達式都是字符型時，才做為連接運算符。3.關系運算符及關系表達式

> < >= <= <>4.邏輯運算符及邏輯表達式NOT AND OR XOR EQV IMP5.運算符的優先順序在一個表達式中，如果同時有多個運算符存在，那么它們的優先順序由高到低依次為：算術運算符→字符運算符→關系運算符→邏輯運算符算術運算符的優先級順序由高到低依次為：∧〔指數運算〕；-〔負數〕；*，/〔乘法，浮點除法〕；\〔整數除法〕；Mod〔取模運算〕；+，-〔加法，減法〕。其中，“*〞，“/〞具有相同的優先級；“+〞，“-〞具有相同的優先級。在關系運算符中，所有的運算符具有相同的優先級。邏輯運算符的優先級順序由高到抵依次為：Not〔非〕，And〔與〕，Or〔或〕，Xor〔異或〕，Eqv〔同或〕，Imp〔蘊含〕。用括號控制運算的優先次序可以是程序清晰易讀，而且不易出錯。[例2.4]寫出VB表達式4*6>3*7OrNot5>2的值。計算步驟如下：⑴算術運算：24>21OrNot5>2⑵關系運算：TrueOrNotTrue⑶邏輯運算：TrueOrFalse⑷結果：True課堂練習：教學資源作業內容教學后記備注課次第次2課時課型周次第11周授課日期年月日課題簡易計算器教學目標知識目標算術運算符及表達式技能目標熟悉VB語言中表達式的使用素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點表達式的應用教學方法設計上機操作教學內容、教學過程、及時間分配導入方法及內容要求學生討論并編程實現——簡易計算器功能：本程序要求從鍵盤分別輸入兩個數據，單擊“開始〞按鈕，就可以進行加、減、乘、除的四那么運算。界面如下：教學資源作業內容教學后記備注課次第次2課時課型周次第11周授課日期年月日課題IF語句教學目標知識目標熟悉If…Then結構，If…Then…Else結構技能目標能用if語句編寫程序素質〔情感、態度、價值觀、職業核心能力〕目標提高學生學習興趣重點難點If語句的應用教學方法設計講授、上機練習教學內容、教學過程、及時間分配導入方法及內容在程序設計中經常遇到這類問題，它需要根據不同的情況采用不同的處理方法。例如，一元二次方程的求根問題，要根據判別式小于零或大于等于零的情況，采用不同的數學表達式進行計算。對于這類問題，如果用順序結構編程，顯然力不從心。必須借助分支結構。一、If

語句格式：

If

條件

then

語句塊1

[

Else

語句塊2]

End

If說明：〔1〕“條件〞一般為關系表達式或邏輯表達式。通常把關系表達式或邏輯表達式的值為真時，稱為條件滿足；值為假時，稱為條件不滿足。反之亦然。判斷以下條件是否成立:1、1<0；2、1=0；3、1<=0；4、3>=3；5、3<=3〔2〕語句塊1、語句塊2分別是“條件〞滿足或不滿足時，處理方法的描述，可以是假設干個語句。〔3〕If…Then

、Else、End

If

是VB的保存字。功能：〔1〕塊If首先判斷“條件〞，其值為真時，執行語句塊1；為假時執行語句塊2。當缺省[Else…]中的內容時，該分支結構只對條件滿足的情況進行處理。執行過程如下圖。二、實例：火車站行李費的收費標準是50kg以內〔包括50kg〕0.20/kg，超過局部0.50/kg。編寫程序，要求根據輸入的任意重量，計算出應付的行李費。根據題意計算公式如下：1、界面設計：2、屬性設置：3、代碼：

〔1〕

〞計算"按鈕的代碼

Private

Sub

Command1_Click()

Dim

w

as

single，pay

as

single

w=

If

w

>

50

Then

pay

=(w

-

50)*

+

50

*

Else

pay

=

w

*

End

If

=

pay

End

Sub

〔2〕

〞清空"按鈕的代碼

Private

Sub

Command2_Click〔〕

=

""

=

""

End

Sub

〔3〕

〞退出"按鈕的代碼

Private

Sub

Command3_Click〔〕

End

End

Sub

教學資源作業內容設計一程序：根據輸入的價格，求商品實際應付款〔價格超過1000打9折，超過2000打8折，超過5000打7折〕教學后記課次第次2課時課型周次第11周授課日期年月日課題IF語句教學目標知識目標熟悉If…Then結構，If…Then…Else結構技能目標能用if語句編寫程序素質〔情感、態度、價值觀、職業核心能力〕目標提高學生學習興趣重點難點If語句的應用教學方法設計上機操作教學內容、教學過程、及時間分配導入方法及內容編程實現：1、(a不為0)提示：如果那么輸出“方程無實數根〞，否那么輸出方程兩實根。

將x1,x2的值轉換成VB表達式為x1=(-b+sqr(b^2-4*a*c))/(2*a)x2=(-b-sqr(b^2-4*a*c))/(2*a)編寫程序，要求能判斷某個年份是否是閏年？提示：能被4整除但不能被100整除的，或者能被400整除的是閏年。教學資源作業內容教學后記備注課次第次2課時課型周次第12周授課日期年月日課題SelectCase語句教學目標知識目標熟悉Select…Case結構技能目標能用case語句編寫程序素質〔情感、態度、價值觀、職業核心能力〕目標提高學生學習興趣重點難點case語句的應用教學方法設計講授、上機練習教學內容、教學過程、及時間分配導入方法及內容Select

Case語句是多分支語句，又稱為情況語句。格式：Select

Case

測試表達式

Case

表達式列表1

語句塊1

Case

表達式列表2

語句塊2

…

Case

表達式列表n

語句塊n

[Case

Else

語句塊n+1]End

Select功能：根據“測試表達式〞的值，選擇第一個符合條件的語句塊執行。

Select

Case語句的執行過程是：先求“測試表達式〞的值，然后順序測試該值符合哪一個Case子句中情況，如果找到了，那么執行該Case子句下面的語句塊，然后執行End

Select下面的語句；如果沒找到，那么執行Case

Else下面的語句塊，然后執行End

Select下面的語句。說明：

“測試表達式〞可以是數值表達式或字符表達式；

“表達式列表〞形式有以下3種：〔1〕一個表達式或用逗號隔開的假設干表達式select

case

val(t1.text)

case

1,3,5

L1.caption=〞這是奇數〞

case

2,4,6

L1.caption=〞這是偶數〞end

select〔2〕表達式1

To

表達式2select

case

case

1

to

9

=〞此數是在1到10的范圍內〞

case

“A〞

to

“Z〞

=〞請輸入數字〞end

select〔3〕Is

關系運算符

表達式select

case

val(t1.text)

case

is>=30

=〞此數的范圍大于30

case

is>=20

=〞此數的范圍大于20

case

is>=10

=〞此數的范圍大于10end

select【例】輸入一個學生的一門課分數x〔百分制〕，當x≥90時，輸出“優秀〞；當80≤x＜90

時，輸出“良好〞；當

70≤x＜80

時，輸出“中〞；當60≤x＜70

時，輸出“及格〞，當

x＜60

時，輸出“不及格〞。(1)界面設計

(2)代碼設計PrivateSubCommand1_Click〔〕

Dimscore!

score=val(Text1.Text)

SelectCasescore

CaseIs>=90

Text2.Text="優秀"

CaseIs>=80

Text2.Text="良好"

CaseIs>=70

Text2.Text="中"

CaseIs>=60

Text2.Text="及格"

CaseElse

Text2.Text="不及格"

EndSelect

EndSub練習：求分段函數的值。教學資源作業內容教學后記課次第次2課時課型周次第12周授課日期年月日課題體育彩票模擬器教學目標知識目標常用函數技能目標常用函數的使用素質〔情感、態度、價值觀、職業核心能力〕目標培養學生的學習興趣重點難點函數的使用教學方法設計講授，學生討論，上機練習教學內容、教學過程、及時間分配導入方法及內容

數學上的函數，是指對一個或多個自變量進行特定的計算，獲得一個因變量的值。在VB程序設計中，擴充了函數的定義，使用起來更為靈活。VB為用戶預定義了一批內部函數，供用戶隨時調用。

函數都帶有一個或幾個自變量，稱之為“參數〞。函數對這些參數運算，返回一個結果值。函數的一般調用格式為：

<函數名>([<參數表<])

如：sqr(9)

rgb(0,0,0)

date()

其中，函數的參數可以是常量、變量或表達式。假設有多個參數，參數之間以逗號分隔。

這些函數按其分類主要有以下幾個類別的函數：一、轉換函數二、數值函數**注意**要產生[a,b]區間范圍內的隨機整數，可以使用公式：int((b-a+1)*rnd+a)。例如：要產生[10,100]區間的隨機整數，可以使用公式int(91*rnd+10)獲得。三、字符串函數四、日期時間函數五、其他函數作業：

教學資源作業內容課次第次2課時課型周次第12周授課日期年月日課題體育彩票模擬器教學目標知識目標常用函數技能目標常用函數的使用素質〔情感、態度、價值觀、職業核心能力〕目標培養學生的學習興趣重點難點函數的使用教學方法設計上機操作教學內容、教學過程、及時間分配導入方法及內容要求學生討論編程實現——體育彩票模擬器功能：模擬搖號，自動生成3個一位數，與預測號碼作比擬，如果號碼相同，那么提示用戶“祝賀你，你中獎了！〞否那么提示“再接再歷哦！〞界面如下：教學資源作業內容教學后記備注課次第次2課時課型周次第13周授課日期年月日課題體育彩票模擬器教學目標知識目標常用函數技能目標常用函數的使用素質〔情感、態度、價值觀、職業核心能力〕目標培養學生的學習興趣重點難點函數的使用教學方法設計演示、學生討論、上機操作教學內容、教學過程、及時間分配導入方法及內容編程實現——體育彩票模擬器功能：模擬搖號，自動生成3個一位數，與預測號碼作比擬，如果號碼相同，那么提示用戶“祝賀你，你中獎了！〞否那么提示“再接再歷哦！〞分析：單擊“預測〞按鈕，通過輸入對話框，輸入一個三位的預測號碼后顯示在預測號碼文本框TEXT4中；單擊“搖號〞按鈕，自動生成3個一位數分別顯示在文本框TEXT1、TEXT2、TEXT3中，并與用戶預測的號碼進行比擬，如果相同的話，那么提示“祝賀你，你中獎了！〞否那么提示“再接再歷哦！〞。演示實現步驟：創立用戶界面設置各對象的屬性編寫代碼運行程序保存界面如下：教學資源作業內容教學后記課次第次2課時課型周次第13周授課日期年月日課題FOR循環教學目標知識目標For循環語句技能目標能利用For循環語句編寫程序素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點For…Next循環的用法教學方法設計講授、上機練習教學內容、教學過程、及時間分配導入方法及內容在程序中，但凡需要重復相同或相似的操作步驟，都可以用循環結構來實現。例如：計算1+2+3+...+1000；計算1*2*3*....*1000等等。一、結構：

For循環的一般格式如下：

For

循環變量=初值

To

終值

[Step

步長]

[循環體]

Next

[循環變量]

二、說明：1．格式中各項的說明

·

循環變量：亦稱為循環控制變量，必須為數值型。

·

初值、終值：都是數值型，可以是數值表達式。

·

步長：循環變量的增量，是一個數值表達式。一般來說，其值為正，初值

應小于終值；假設為負，初值應大于終值。但步長不能是0。如果步長是1，

Step

1可略去不寫。

·

循環體：在For語句和Next語句之間的語句序列。

·

Next后面的循環變量與For語句中的循環變量必須相同。2．執行過程For循環語句的執行過程如下：〔1〕系統將初值賦給循環變量，并自動記下終值和步長。〔2〕檢查循環變量的值是否超過終值。如果超過就結束循環，執行Next后面的語句；否那么，執行一次循環體。〔3〕執行Next語句，將循環變量增加一個步長值再賦給循環變量，轉到〔2〕繼續執行。

以上執行過程用流程圖描述，如以下圖所示。

這里所說的“超過〞有兩種含義，即大于或小于。當步長為正值時，循環變量大于終值為“超過〞；當步長為負值時，循環變量小于終值為“超過〞。我們通過分析下面的程序來進一步理解For語句的執行過程。

For

n=1

To

10

Step

3

Print

n，

Next

n具體執行情況如下：

上面程序的執行結果為：

1

4

7

103．考前須知

For語句和Next語句必須成對出現，缺一不可，且For語句必須在Next語句之前。循環次數由初值、終值和步長確定，計算公式為：

循環次數=Int〔〔終值－初值〕/步長〕+1舉例分析：

For

i

=

1

To

10

Print

i;

Next

i執行此語句將輸出：

1

2

3

4

5

6

7

8

9

10

i是循環變量，它的初值為1，執行print語句，輸出1；然后使i的值增加1，直到i的值超過終值10，就不再執行循環，它的流程如下圖：

教學資源作業內容(1)

求s=1+3+5+…+101的值

(2)

求s=1*3*5*…*101的值

教學后記備注課次第次2課時課型周次第13周授課日期年月日課題DO循環教學目標知識目標DO循環語句技能目標能利用DO循環語句編寫程序素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點Do…Loop循環的用法教學方法設計講授、上機練習教學內容、教學過程、及時間分配導入方法及內容Do…Loop循環結構語句格式1：Do[{While|Until}條件][語句塊][ExitDo][語句塊]Loop語句格式2：Do[語句塊][ExitDo][語句塊]Loop[{While|Until}條件]說明：在循環次數不能確定的情況下進行的，那么這時便需要用到循環控制結構Do…Loop【例】用Do…Loop循環結構實現求和sum=1+2+3+…+100。編寫程序代碼。解法一：采用當型循環DoWhile…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'計數器初值置為1sum=0'累加器初值置為0DoWhilei<=100'當型循環sum=sum+ii=i+1'每次循環變量加1LoopLabel2.Caption=Str(sum)EndSub解法二：采用直到型循環DoUntil…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'計數器初值置為1sum=0'累加器初值置為0DoUntili>100sum=sum+ii=i+1LoopLabel2.Caption=Str(sum)EndSub教學資源作業內容教學后記備注課次第次2課時課型周次第14周授課日期年月日課題雞兔同籠教學目標知識目標DO循環語句技能目標能利用DO循環語句編寫程序素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點DO循環的用法教學方法設計上機操作，演示教學內容、教學過程、及時間分配導入方法及內容要求學生編寫程序解決以下問題：題目：雞有兩條腿，兔有4條腿，雞兔同籠。雞和兔的總只數和總腿數，求雞、兔各有多少支。代碼：DimCAsInteger,RAsInteger,HAsInteger,FAsIntegerH=Val(InputBox("請輸入雞兔總數(>=2):"))IfH<2ThenExitSubDoF=Val(InputBox("請輸入雞兔總腿數，"&"該數字必須是>"&2*H&",并且<"&4*H&"的偶數"))IfF=0ThenExitSubIfF<=2*HOrF>=4*HOrFMod2ThenMsgBox"輸入錯誤，請重新輸入！"ElseExitDoEndIfLoopR=(F-2*H)/2C=H-RClsPrint"籠中有雞";C;"只";"兔";R;"只"教學資源作業內容教學后記備注課次第次2課時課型周次第14周授課日期年月日課題評委亮分教學目標知識目標熟悉一維數組的概念。技能目標熟悉一維數組的使用方法。素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點一維數組的使用教學方法設計講授、上機練習教學內容、教學過程、及時間分配導入方法及內容數組就是很多元素的變量名相同，在內存中是連續存儲的假設干個存儲單元，每個數組元素的類型一樣，為了區分這些元素，為每個元素賦予不同的下標值。數組的聲明〔也叫做定義〕：[Public|Private|Dim|Static]數組名〔下標1[，下標2[…]]〕[as數據類型]。數組的定義舉例:Dima(5)AsIntegerDimb(3to8)AsIntegerDimc(8)說明：a(5)共有6個元素，分別是a(0)、a(1)、a(2)、a(3)、a(4)和a(5)，b數組共有6個元素分別是b(3)、b(4)…b(8)，c數組共有c(0)、c(1)…c(8)共9個元素。如果不習慣以0為下標起點，可以設置下標為1，OptionBase1，該語句有只有兩個值，分別是OptionBase1和OptionBase0，其中OptionBase0是默認值。程序舉例:下面的程序可以求一維數組的最大元素以及最大元素的下標。編寫代碼OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimxbAsIntegerFori=1To10a(i)=Val(InputBox("輸入數組元素"))Nextixb=1:zuida=a(1)Fori=2To10Ifa(i)>zuidaThenzuida=a(i)：xb=iEndIfNextiPrintzuida,xbEndSub練習：統計某班〔假設有30人〕程序設計課程考試的平均成績，并輸出高于平均分的成績。教學資源作業內容教學后記備注課次第次2課時課型周次第14周授課日期年月日課題最高分和最低分教學目標知識目標IF語句；FOR語句；一維數組技能目標能靈活應用IF語句；FOR語句；一維數組編寫程序素質〔情感、態度、價值觀、職業核心能力〕目標提高學生學習興趣重點難點IF語句、FOR語句及一維數組的應用教學方法設計上機操作教學內容、教學過程、及時間分配導入方法及內容編寫以下程序：1、求N！的值，其中N由鍵盤輸入。2、在窗體上打印一個有規律的圖案，見以下圖：教學資源作業內容教學后記備注課次第次2課時課型周次第15周授課日期年月日課題圖像瀏覽器教學目標知識目標圖像框技能目標熟悉圖像框的常見屬性、方法和事件。素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點圖像框的常見屬性、方法和事件教學方法設計講授、上機練習教學內容、教學過程、及時間分配導入方法及內容圖像框〔ImageBox〕只能用于顯示圖形，沒有圖片框所擁有的其他功能；因此，圖像框比圖片框顯示速度快、占用內存少。屬性〔1〕Picture屬性和圖片框的Picture屬性相同。〔2〕stretch屬性指定是否縮放圖形來適應控件大小。屬性值為True或False。False：縮放控件來適應圖形的大小。此值為缺省值。True：縮放圖形來適應控件的大小。此值可能會使顯示的圖形變形失真。應用舉例設計程序，演示圖像框在stretch屬性不同選值時的狀態。分析：需要建立四個按鈕，其中二個實現設定圖像框的stretch屬性值為True或False；另二個用來放大、縮小圖像框，以演示stretch屬性值為True時圖形隨圖像框縮放。〔如圖〕〔a〕stretch值為False時〔b〕值為True并放大時〔c〕值為True并縮小時stretch屬性演示〔1〕界面設計在窗體上添加一個圖像框、四個命令按鈕。控件的大小、位置和命令按鈕的Caption屬性可參考圖4-3。〔2〕編寫代碼依次雙擊窗體和各命令按鈕，輸入代碼如下。PrivateSubForm_Load()Image1.Picture=LoadPicture("C:\VB\Face03.ico")EndSub '在程序啟動時,為圖像框裝載圖標“〞PrivateSubCommand1_Click() '“True〞按鈕事件過程Image1.Stretch=TrueEndSubPrivateSubCommand2_Click() '“False〞按鈕事件過程Image1.Stretch=FalseEndSubPrivateSubCommand3_Click() '“放大〞按鈕事件過程Image1.Width=Image1.Width*2Image1.Height=Image1.Height*2EndSub '把Image1的寬度和高度值乘2再賦給其Width、Height屬性PrivateSubCommand4_Click() '“縮小〞按鈕事件過程Image1.Width=Image1.Width/2Image1.Height=Image1.Height/2EndSub '把Image1的寬度和高度值的一半賦給其Width、Height屬性按F5鍵運行程序，程序界面如圖4-3〔a〕所示，此時單擊“放大〞按鈕，雖然圖像框已經擴大一倍〔其不可見〕，但是因其Stretch值默認為False，所以圖形并不隨圖像框的擴大而擴大。隨后點擊“True〞按鈕，將Stretch值更改為True，這時圖形會為適應圖像框的大小而放大，如圖4-3〔b〕所示。正如圖4-3〔c〕所示，按“縮小〞按鈕，圖形會隨圖像框的縮小而變小。不管圖形及圖像框是在擴大還是已縮小，只要單擊“False〞按鈕，都會使圖像框縮放到圖形原始大小的尺寸，來適應圖形的正常顯示，如圖4-3〔a〕。運行無誤后，請保存工程，以備后用。教學資源作業內容教學后記備注 課次第次2課時課型周次第15周授課日期年月日課題圖像瀏覽器教學目標知識目標圖像框技能目標熟悉圖像框的常見屬性、方法和事件。素質〔情感、態度、價值觀、職業核心能力〕目標培養學生協作精神、分析問題、解決問題能力重點難點圖像框的常見屬性、方法和事件教學方法設計討論、上機操作教學內容、教學過程、及時間分配導入方法及內容導入方法及內容要求學生討論并利用系統提供的Image

控件編寫圖像瀏覽器程序。程序運行時，通過選擇驅動器和文件夾，