VB備課詳細教案(選修課)

1、課程VB可視化編程應(yīng)用授課時間第一一一二課時（講解一課，實驗一課）課題Visual Basic 基礎(chǔ)教學(xué)目的和要求1 .程序設(shè)計基礎(chǔ)知識。2 . 了解面向?qū)ο蟮某绦蛟O(shè)計概念：對象、屬性、方法與事件。3 .掌握創(chuàng)建 Visual Basic程序的,般步驟。4 . 了解Visual Basic的集成開發(fā)環(huán)境（IDE）。5 .掌握Visual Basic工程的設(shè)計步驟，新建工程、設(shè)計界面、編寫代碼、運行和調(diào)試工程、保存工程。6 . 了解Visual Basic的幫助系統(tǒng)。7 .程序設(shè)計基礎(chǔ)知識。了解面向?qū)ο蟮某绦蛟O(shè)計概念：對象、屬性、方法與事件。掌握創(chuàng)建Visual Basic程序的,般步驟。了解V

2、isual Basic的集成開發(fā)環(huán)境（IDE）。重點難點1. 了解對象、屬性、方法與事件。2 .掌握Visual Basic工程的設(shè)計步驟，新建工程、設(shè)計界面、編寫代碼、運行和調(diào)試工程、保存工 程的方法。3 .動手編寫程序。教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程1、Visual Basic 的發(fā)展BASIC 語言是"Beginners All-purpose Symbolic Instruction Code ”的簡稱。Visual Basic是Microsoft公司于1991年推出的基于 Windows平臺的快速開發(fā)工具。它以結(jié)構(gòu)化BASIC語言為基礎(chǔ)，繼承了原 BASIC語言簡

3、單易學(xué)的優(yōu)點，同時又吸收了近年來最先進、最優(yōu)秀的編程技術(shù)，提 供了可視化的編程環(huán)境，以事件驅(qū)動作為運行機制，成為新一代的可視化程序設(shè)計語言。2、Visual Basic 的特點1）、可視化的程序設(shè)計2）、面向?qū)ο蟮某绦蛟O(shè)計思想3）、事件驅(qū)動的編程機制4）、支持大型數(shù)據(jù)庫的開發(fā)Visual Basic提供了強大的數(shù)據(jù)庫管理和存取操作的能力，利用它可以開發(fā)出各種大型的客戶/服務(wù)器應(yīng)用程序。5）、強大的Internet應(yīng)用程序開發(fā)功能3、Visual Basic的安裝與啟動4、Visual Basic 6.0的集成開發(fā)環(huán)境5、對象的屬性、事件與方法1）對象“對象”（Object）是面向?qū)ο蟪绦蛟O(shè)計的

4、核心，學(xué)好 Visual Basic的訣竅之一就是要以“對象”的眼光去 看待整個程序設(shè)計。2）屬性屬性（Property）用來描述對象的外部特征，包括對象的性質(zhì)和狀態(tài)等。每個對象都由若干屬性來描述，不同的對象可以有不同的屬性，例如，標題（Caption）、名稱（Name）、背景色（Backcolor）、字體大?。‵ontSize）、字體顏色（ForeColor）、是否可見（Visible）等。3）事件及事件過程所謂事件（Event）是由Visual Basic預(yù)先定義好的、能夠被對象識別的動作。例如，單擊事件（ Click）、 雙擊事件（DblClick ）、鼠標移動事件（MouseMove）

5、等。事件過程的一般格式為：Sub對象名事件（）處理事件的程序代碼End Sub4）方法所謂方法（Method）是指對象本身所包含的一些特殊函數(shù)或者過程，利用這些自帶的函數(shù)或過程，可以 實現(xiàn)一些特殊的功能和動作。方法的調(diào)用格式為：對象名.方法名5、Visual Basic工程的設(shè)計步驟建立一個Visual Basic應(yīng)用程序大致需要 3個步驟：（1）建立應(yīng)用程序界面。（2）設(shè)置控件屬性。（3）編寫程序代碼。二、建立應(yīng)用程序界面1 在窗體上畫一個控件在窗體上畫一個控件有兩種方法：（1）單擊“工具箱”中的某個控件圖標，然后在窗體的適當位置拖動鼠標即可畫出一個控件。(2)雙擊“工具箱”中的某個控件圖標

6、，即可在窗體中央畫出該控件。2控件的選擇在窗體編輯器中，可以對窗體上的控件進行各種操作。但是在進行操作之前，都要首先選中該控件。要選擇一個控件，只要單擊這個控件就可以了。被選中的控件周圍會出現(xiàn)8個“控制柄”，而且在“標準”工具欄的右側(cè)會顯示這個控件的位置和大小，如圖所示。七 1560, 18叩jo 1Q95 靠 375工具欄右側(cè)顯示選定控件的信息3控件的縮放和移動4控件的復(fù)制與刪除5控件的布局1)、“對齊”子菜單2)、“統(tǒng)一尺寸”子菜單3)、“按網(wǎng)格調(diào)整大小”菜單項4)、“水平間距”與“垂直間距”子菜單5)、“在窗體中居中對齊”子菜單6)、“順序”子菜單6、創(chuàng)建工程(1)單擊工具箱中的“命令按

7、鈕”。(2)將鼠標指向窗體的左下部，按下鼠標左鍵并拖動鼠標的十字指針畫出一個矩形框，松開左鍵即畫出一個"命令按鈕"，按鈕內(nèi)標有"Command/'。(3)重復(fù)前兩步操作，在窗體的右下部畫出第二個“命令按鈕”，按鈕內(nèi)序號自動增加，顯示“Command2”。(4)單擊工具箱中的“標簽”按鈕。(5)將鼠標指向窗體的上部，按下鼠標左鍵并拖動指針畫出一個矩形框，松開鼠標左鍵，一個“標簽”即出現(xiàn)在窗體上，標簽中顯示" Labell"。三設(shè)置控件屬性設(shè)置控件屬性在屬性窗口中進行，其操作步驟為：(1)激活屬性窗口，在“對象”下拉列表框中選擇對象名For

8、ml。(2)在"對象”下拉列表框中選擇對象名 Commandl(3)將Command2的Caption屬性設(shè)置為"退出"，Name屬性設(shè)置為"Quit"。(4)在“對象”下拉列表框中選擇對象名 Label1。四編寫程序代碼打開代碼編輯窗口有 4種方法：(1)雙擊控件。(2)用右鍵單擊控件，從彈出菜單中選擇“查看代碼” 。(3)從“視圖”菜單中選擇“代碼窗口” 。(4)在工程資源管理器窗口單擊查看代碼按鈕圖標。打開代碼窗口后，在“對象”下拉列表框中選擇 “Welcome”對象，在“過程”下拉列表框中選擇 “Click”, 這時該事件過程的開頭和結(jié)

9、尾的代碼由系統(tǒng)自動給出：Private Sub Welcome_Click()End Sub在這兩行之間輸入如下程序代碼：Private Sub Welcome_Click()Label1.Caption ="歡迎使用"& Chr(13) & " Visual Basic 6.0"End Sub在“對象”下拉列表框中選擇“ Quit”對象，在“過程”下拉列表框中選擇“ Click"，輸入程序代碼如下：Private Sub Quit_Click()Unload MeEnd Sub五運行程序(工程)單擊工具欄中的“啟動”按鈕或者按

10、F5鍵，即可運行程序。Visual Basic應(yīng)用程序具有標準的 Windows風(fēng)格：窗體圖標、標題欄、最大化按鈕、最小化按鈕、關(guān)閉按 鈕等。六保存工程當一個Visual Basic應(yīng)用程序設(shè)計結(jié)束，并且檢查無誤后，通常要將程序存入磁盤。 兩種方法來保存工程文件：(1)在“文件”菜單中選擇“保存工程”。(2)直接單擊在工具欄上的“保存工程”按鈕。七生成可執(zhí)行文件生成當前工程的可執(zhí)行文件，就是對當前應(yīng)用程序進行編譯，制作成為可以獨立運行的 成EXE文件，只需選擇“文件”菜單中的“生成 exe”菜單項。輸入文件名后，單擊“確定”按鈕，程序被編譯到硬盤上。這個應(yīng)用程序可脫離Visual Basic

11、提供了EXE文件。要生Visual Basic單獨運行。小結(jié)：通過本章的學(xué)習(xí)，同學(xué)們基本了解編程的原理， 學(xué)會使用VB,特別要牢記公式：“名稱.屬性=值”、 “控件名.方法名”。并動手編寫第一個 VB程序。VB程序”的作業(yè)：實驗題：創(chuàng)建一個窗口，窗口中有一個按鈕，點擊按鈕彈出“你好，這是我第一個 提示窗口。課程VB可視化編程應(yīng)用授課時間第三一一六課時（講解二課，實驗二課）課題Visual Basic程序設(shè)計代碼基礎(chǔ)孝 與白 不 潺 >1 .數(shù)據(jù)類型：數(shù)彳1型數(shù)據(jù)（Integer）、字苻串型數(shù)據(jù)（string）、布爾型數(shù)據(jù)（Boolean）、日期型數(shù) 據(jù)（Date）、對象型數(shù)據(jù)（Objec

12、t）、可變類型數(shù)柜。2 .常量：用戶自定義符號常量、系統(tǒng)定義符號常量。3 .常用內(nèi)部函數(shù)：數(shù)學(xué)函數(shù)、字符串函數(shù)、隨機函數(shù)、轉(zhuǎn)換函數(shù)、日期和時間函數(shù)、格式輸出函 數(shù)。4 .程序代碼書寫規(guī)則。1i1 .常量、變量的命名規(guī)則2 .常量、變量的聲明與使用3 . VB程序的書寫規(guī)則4 .運算符與表達式教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程一.表達式按語法規(guī)則，用運算符將運算對象(常量、變量、函數(shù))連接起來二.數(shù)據(jù)類型不同類型的數(shù)據(jù)適用于解決不同類型的問題，不同類型的數(shù)據(jù)在內(nèi)存中的存放形式不同標準數(shù)據(jù)類型、用戶自定義數(shù)據(jù)類型Type Student類型名ID As String*9Name As Str

13、ing*4元Sex As String*1素Age As Integer名Score As SingleEnd Type三.常量在程序運行過程中，其值不能改變的量(一)普通常量表示形式：&o205 &H3AF 123& -123! 0.123E+3分界符："abc" "ABD""XYZ" #2004-9-27#邏輯常量：True False(二)符號常量用一個符號來代替多次被使用的常量，具有含義清楚，一改全改的優(yōu)點如：Const PI As Double=3.1415926535(三)系統(tǒng)常量由VB提供的應(yīng)用程

14、序和控件的系統(tǒng)定義常數(shù)Text1.BackColor=&HFF&Text1.BackColor=vbRed四.變量1 .在程序運行過程中，其值可以改變的量：三要素：變量名、變量類型、變量值2 .實質(zhì)：變量代表著內(nèi)存中一定的存儲空間，存儲空間中存放的數(shù)據(jù)即變量的值，存儲空間的大小取決于變量的類型，變量名代表對應(yīng)存儲空間的起始地址3 .變量使用方法：建議先聲明，后使用(1)顯式聲明：如： Dim count As Integer , sum As Single等價于 Dim count%, sum!(2)隱式聲明VB允許用戶不聲明變量而直接使用，所有隱式聲明的變量都是Variant

15、數(shù)據(jù)類型，VB根據(jù)程序中賦予變量的值來自動調(diào)整變量類型(3)強制顯式聲明Option Explicit 語句4 .變量賦值：變量名=表達式 也可以理解為變量名=值Visual Basic的命名規(guī)則在Visual Basic中，常量、變量和過程的聲明需要遵循下面的規(guī)則：(1)必須以字母開頭。對于中文版的Visual Basic可以用漢字開頭或者直接用漢字作為變量名、對象名或者過程名。(2)不能在命名中出現(xiàn)句點“.”、空格或者嵌入下列字符：!# $ % &也不能在命名中嵌入類型聲明字符，如：Integer、Long、Single、Double、String 等。(3)變量名的長度不能超過2

16、55個字符?？丶?、窗體、類和模塊的名字不能超過40個字符。(4)變量名在有效的范圍內(nèi)必須是惟一的。(5)變量名不能和關(guān)鍵字同名。關(guān)鍵字是Visual Basic系統(tǒng)內(nèi)部定義的詞，是語言的組成部分。包括預(yù)定義語句(比如 If、While、 Loop等)、函數(shù)(比如 Abs、Len、String等)和操作符(比如 And、Or等)。復(fù)合與續(xù)行在編寫程序代碼時要遵循一定的規(guī)則，這樣寫出的程序既能被Visual Basic正確地識別，又能增加程序的可讀性。一、復(fù)合多條較短的語句可以寫在一行上，稱為語句的復(fù)合。 語句之間要用冒號 ":"隔開，例如：Label1.Caption=&qu

17、ot;Hello" : Red = 255 : Label1.BackColor = Red二、續(xù)行當一條語句很長時，在代碼編輯窗口閱讀程序時將不便查看，使用滾動條又比較麻煩。這時，就可以使用續(xù)行功能，用續(xù)行符"”將較長的語句分為兩行或多行。例如：Label2.Caption =對于一個較長的標題，標簽控件提供了兩種屬性：AutoSize WordWrap來改變控件尺寸以適應(yīng)較長或較短的標題。在使用續(xù)行符時，在它前面至少要加一個空格，并且續(xù)行符只能出現(xiàn)在行尾。小結(jié)：通過本章的學(xué)習(xí)，理解和初步學(xué)會使用常量和變量。了解和習(xí)慣VB程序書寫的規(guī)則。因為是初學(xué)，所以對于書本上一長串的

18、變量名感覺無從下手。其實，首先要了解常量和變量的作用，其次盡 量使用規(guī)范的命名，在以后的編程中逐漸領(lǐng)會和熟練使用。作業(yè)：1、變量的種類基本上有多少種？分別以什么字母開頭？2、變量有什么作用？3、常用的內(nèi)部函數(shù)有哪些？課程VB可視化編程應(yīng)用授課時間第七一一十課時（講解二課，實驗二課）課題順序結(jié)構(gòu)程序設(shè)計教學(xué)目的和要求1 .賦值語句。2 .數(shù)據(jù)的輸入方式：用文本框（TextBox）輸入數(shù)據(jù)、用輸入框（InputBox）輸入數(shù)據(jù)。3 .數(shù)據(jù)的輸出方式：用Print方法輸出數(shù)據(jù)，用文本框（TextBox）輸出數(shù)據(jù)，用消息框（MsgBox ） 輸出數(shù)據(jù)，用標簽控件（Label）輸出數(shù)據(jù)。重點難點 Vis

19、ual Basic語言的輸入、輸出方法順序結(jié)構(gòu)程序設(shè)計方法教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程順序結(jié)構(gòu)程序設(shè)計各語句按出現(xiàn)的先后次序逐條執(zhí)行輸入數(shù)據(jù)文本框通過Text屬性可以獲得用戶在文本框中輸入的內(nèi)容（字符串）如要獲得數(shù)值應(yīng)通過Val函數(shù)轉(zhuǎn)換Text屬性InputBox 函數(shù)提供一個簡單對話框供用戶輸入信息，當用戶按回車或單擊確定”按鈕后，將輸入的內(nèi)容作為字符串返回如要獲得數(shù)值，最好通過Val函數(shù)轉(zhuǎn)換函數(shù)值從文件中讀取數(shù)據(jù)InputBox函數(shù)舉例Dim strName As String * 40 , strSI As String * 40strSI =請輸入你的姓名” + Chr（1

20、3） + Chr（10） +然后單擊確定”strName= InputBox$（strS 1,輸入框"王曉明"）輸出數(shù)據(jù)Print方法窗體與圖片框?qū)ο缶哂性摲椒梢暂敵龈鞣N類型的數(shù)據(jù)標簽通過Caption設(shè)置顯示內(nèi)容（字符串）如要輸出非字符型數(shù)據(jù)，需通過 Str函數(shù)進行轉(zhuǎn)換只能通過代碼設(shè)置標簽內(nèi)容，用戶無法通過鍵盤修改標簽內(nèi)容文本框通過Text屬性設(shè)置顯示內(nèi)容（字符串）如要輸出非字符型數(shù)據(jù)，需通過 Str函數(shù)進行轉(zhuǎn)換既可通過代碼設(shè)置文本框內(nèi)容，用戶也可通過鍵盤修改文本框內(nèi)容MsgBox函數(shù)與過程向文件中寫數(shù)據(jù)輸出數(shù)據(jù)講解Print方法窗體名或圖片框名.Print輸出列表省略

21、對象名直接調(diào)用Print方法則默認在窗體上輸出緊縮格式輸出：輸出項之間以；分隔標準格式輸出：輸出項之間以，分隔插入n個空格：Spn）從第n列開始輸出：Tab(n)換行：最后一個輸出項后沒有；或，輸出空行：窗體名或圖片框名.PrintMsgBox函數(shù)與過程在對話框中顯示信息，等待用戶單擊按鈕MsgBox函數(shù)可以在用戶單擊按鈕后獲得一個整數(shù)，常通過對該整數(shù)的判斷來控制程序流程格式整型變量=MsgBox(提示，樣式，標題)MsgBox提示，樣式，標題對話框樣式操作演示函數(shù)值教材P58表4-24-2卸載對象與結(jié)束程序一、Unload 語句當要結(jié)束應(yīng)用程序而從內(nèi)存中卸載窗體或要從內(nèi)存中卸載某些控件時，可

22、以使用Unload語句。Unload語句的語法格式為：Unload對象名說明：(1)對象名：要卸載的窗體對象或控件的名稱。(2)在卸載窗體前，會發(fā)生QueryUnload事件過程，然后是Unload事件過程。在其中任一過程中設(shè)置 cancel 參數(shù)為True可防止窗體被卸載?！纠?.9】在例3.8中使用命令關(guān)閉程序窗體。設(shè)計步驟如下：只需在例3.8中增加一個命令按鈕 Command2 (關(guān)閉)，并且編寫 Command2的Click事件代碼：Private Sub Command2_Click()Unload MeEnd Sub說明：其中的 Me表示按鈕所在的窗體對象。二、結(jié)束過程語句Exit

23、 Sub語句用來結(jié)束過程的執(zhí)行。其語法格式為：Exit Sub三、結(jié)束語句在早期的Basic語言中使用End語句來結(jié)束一個程序的執(zhí)行。其語法格式為；End說明：(1) End語句不調(diào)用 Unload、QueryUnload事件或任何其他 Visual Basic代碼，只是生硬地終止代碼執(zhí)行。窗體和類模塊中的Unload、QueryUnload事件代碼未被執(zhí)行。(2) End語句提供了一種強迫中止程序的方法。只要沒有其他程序引用該程序公共類模塊創(chuàng)建的對象并無代碼執(zhí)行，程序?qū)⒘⒓搓P(guān)閉。(3) Visual Basic程序正常結(jié)束應(yīng)該卸載所有的窗體。注釋與暫停一、注釋語句為了提高程序的可讀性，通常應(yīng)

24、在程序的適當位置加上一些注釋。語法格式為：Rem注釋內(nèi)容或 注釋內(nèi)容說明：(1)注釋內(nèi)容：指要包括的任何注釋文本。在Rem關(guān)鍵字與注釋內(nèi)容之間要加一個空格。可以用一個撇號(')來代替Rem關(guān)鍵字。(2)如果在其他語句行后使用Rem關(guān)鍵字，必須用冒號(：)與語句隔開。若使用撇號，則在其他語句行后不必加冒號。S = pi * r A 2 '計算圓的面積V = 4 / 3 * pi * r人3 : Rem 計算球的體積二、暫停語句Stop語句用來暫停程序的執(zhí)行，使用 Stop語句，就相當于在程序代碼中設(shè)置斷點。其語法格式為：Stop說明：1 1) Stop語句的主要作用是把解釋程序置

25、為中斷( Break)模式，以便對程序進行檢查和調(diào)試?？梢栽诔?序中的任何地方放置 Stop語句，當執(zhí)行Stop語句時，系統(tǒng)將自動打開DeBug窗口。(2)與End語句不同，Stop不會關(guān)閉任何文件，或清除變量。如果在可執(zhí)行文件( .EXE)中含有Stop語 句，則將關(guān)閉所有的文件而退出程序。因此，當程序調(diào)試結(jié)束后，生成可執(zhí)行文件之前，應(yīng)刪除代碼中的 所有Stop語句。本章小結(jié)：通過本章的學(xué)習(xí)，同學(xué)們初步掌握了 Visual Basic語言的輸入、輸出方法和順 序結(jié)構(gòu)程序設(shè)計方法。因為是比較簡單的從上到下結(jié)構(gòu)，沒有什么分支，所以掌握起來并沒 有什么困難。在本章要注意的是：一定要嚴格按照編程的語

26、法規(guī)則來進行編程。作業(yè)：1.如果要設(shè)計一個程序， 點擊窗口中的按鈕， 彈出對話框(MsgBox)，上面寫著：恭喜你，你答對了。 應(yīng)該如何設(shè)計？2 .設(shè)計一個程序，具有兩個窗體，第一個窗體有兩個按鈕，點擊“顯示”按鈕則第二個窗體顯示，點擊“隱藏”按鈕則第二個窗體消失。課程VB可視化編程應(yīng)用授課時間第十一一一十六課時（講解二課，實驗二課）課題選擇結(jié)構(gòu)程序設(shè)計孝 與白 不 厚 >1. 單行結(jié)構(gòu)條件語句IfThenElse &.2. 塊結(jié)構(gòu)條彳語句If - Then- -Elself End If3. 多分支選擇語句Select Case End Select1i If Then End

27、 If 條件語句 Select Case End Selec璉擇語句教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程選擇結(jié)構(gòu)適于解決根據(jù) 不同情況，采取不同措施”的問題 單分支：如果那么If <條件> Then卜 語句組1>Else <語句組2>塊結(jié)構(gòu)條件語句1、If條件 1> Then語句組1Else語句組2End If2、If條件 1> Then卜語句組1>ElseIf < 條件 2> Then卜語句組2>ElseIf條件 N> Then卜語句組N>Else卜其他語句組>End IfIf與End If必須成對使用，

28、所以有一個If就有一個End If與之相對應(yīng)。多分支選擇語句Select Case啜U試表達式>Case表達式表1>卜語句組1>Case表達式表2>卜語句組2>Case Else卜語句組n>End Select選擇結(jié)構(gòu)的執(zhí)行過程先判斷，后執(zhí)行，畫流程圖無論表達式值為真或假最后均執(zhí)行If的后續(xù)語句，表達式可以為關(guān)系表達式、邏輯表達式和算術(shù)表達式.邏輯數(shù)據(jù)與整型數(shù)據(jù)的轉(zhuǎn)換規(guī)則Truef1False-0非 0f True 0一 False行If與塊If的區(qū)別If a>b Then t=a:a=b:b=tIf a>b Thent=aa=bb=tEnd I

29、fIf a>b Then t=aa=bb=t單、雙分支If語句比較If x>=y Thenmax=xElsemax=yEnd IfPrint maxmax=yIf x>=y Then max=xPrint maxIf x>=y Then max=xmax=yPrint max塊結(jié)構(gòu)條件語句輸入一組成績，評定其等級If x>=90 ThenPrint "優(yōu)秀"相當于 X<90And X>=80日seIf x>=80 ThenPrint "良好"日seIf x>=70 ThenPrint "中等

30、"日seIf x>=60 ThenPrint "及格"ElsePrint "不及格"End If把上面程序用單分支If語句表示If x>=90 Then Print "優(yōu)秀"If x>=80 Then Print "良好"If x>=70 Then Print "中等"If x>=60 ThenPrint "及格"ElsePrint "不及格"End If塊結(jié)構(gòu)條件語句比較另一種方法If x<=60 thenP

31、rint "不及格"日seIf x<=70 ThenPrint "及格"日seIf x<=80 ThenPrint "中等"日seIf x<=90 ThenPrint "良好"ElsePrint "優(yōu)秀"End If多分支選擇語句Select Case 表達式Case表達式列表1語句1Case表達式列表2語句2Case Else語句n+1End Select執(zhí)行計算表達式的值與Case后的表達式依次進行比較，相匹配則執(zhí)行其后的語句，然后結(jié)束 Select Case語句執(zhí)行與所有

32、的表達式均不匹配，則執(zhí)行Case曰se后的語句，如果無 Case Else則不做任何操作表達式列表形式表達式列表可以為單個值，如"VB'或A+3表達式列表可以為一組值，如1,3,5表達式列表可以為一個Is<60閉區(qū)間，如1 To 10表達式列表可以為一個半開區(qū)間，如例如Select Case xCase 90 to 100Print "優(yōu)秀"Case 80 to 89Print "良好"Case 70 to 79Print "中等"Case 60 to 69Print "及格"Case El

33、sePrint "不及格"End Select本章小結(jié)：通過本章的學(xué)習(xí)，同學(xué)們應(yīng)該掌握更深一層的編程，在本章開始，編程并不 是從上到下的流程，而是有選擇有分支的。在本章，重要的是記住公式，并且學(xué)會套用公式。作業(yè)：下面程序運行后，在文本框中輸入12345678,按回車鍵后文本框中顯示的內(nèi)容是？Dim n%,m%Private Sub Text1_KeyPress(KeyAscii As Integer)If IsNumeric(Text1) ThenSelect Case Val(Text1) Mod 2Case 0n=n+Val(Text1)Case 1m=m+Val(Te

34、xt1)End SelectEnd IfText1=""Text1.SetFocusIf KeyAscii=13 then Text1="n=" & Str(n) & "m=" & Str(m)End Sub課程VB可視化編程應(yīng)用授課時間第十七一一二十四課時（講解四課，實驗四課）課題循環(huán)結(jié)構(gòu)程序設(shè)計教學(xué)目的和要求1. ForNext循環(huán)結(jié)構(gòu)語句。2. Do Loop循環(huán)結(jié)構(gòu)語句：前測、當型Do WhileLoop前測、直到型Do UntilLoop后測、當型Do.Loop While后測、直型Do.Loop U

35、ntil 。3. 循環(huán)的嵌套。重點難點 For Next循環(huán)語句 Do Loop循環(huán)結(jié)構(gòu)語句（當型、直到型）教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程循環(huán)結(jié)構(gòu)解決一些需要重復(fù)多次才能完成的問題每一次在做相同操作或與上一次有聯(lián)系的相似操作兩種循環(huán)兩條循環(huán)語句For Next語句Do Loop 語句For Next語句實現(xiàn)循環(huán)次數(shù)已知的循環(huán)For循環(huán)變量=初值To終值Step步長 循環(huán)體Next循環(huán)變量DoLoop 語句多用于循環(huán)次數(shù)未知的循環(huán)兩種形式Do循環(huán)條件LoopDo Loop循環(huán)條件兩種條件While條件為真時執(zhí)行循環(huán)，否則退出Until條件為假時執(zhí)行循環(huán)，否則退出DoLoop 語句在循環(huán)

36、體外初始化循環(huán)變量 在循環(huán)體內(nèi)改變循環(huán)變量值 循環(huán)三要素循環(huán)條件、循環(huán)變量初始化、改變循環(huán)變量的值循環(huán)中應(yīng)避免的問題不循環(huán)發(fā)生場合：當型循環(huán)原因：循環(huán)變量初值不合適，循環(huán)初始條件為假 死循環(huán)發(fā)生場合：當型循環(huán)、直到型循環(huán)原因：循環(huán)變量改變量不合適，循環(huán)條件始終為假循環(huán)的入口與出口循環(huán)入口滿足循環(huán)條件即可進入循環(huán)循環(huán)出口正常出口：不滿足循環(huán)條件，正常退出緊急出口：當出現(xiàn)某種情況時，不管當前是否滿足循環(huán)條件，立即退出Exit For語句：退出For循環(huán)Exit Do語句：退出 Do循環(huán)一般出現(xiàn)在一條 If語句中，如If n Mod 3=0 Then Exit For嵌套：一個結(jié)構(gòu)中又包含另一個完整

37、的結(jié)構(gòu)幾種選擇結(jié)構(gòu)可以相互嵌套幾種循環(huán)語句可以相互嵌套一般情況下各層循環(huán)變量互不相同選擇結(jié)構(gòu)與循環(huán)結(jié)構(gòu)可以相互嵌套本章小結(jié)：通過本章的學(xué)習(xí)，學(xué)會如何使用循環(huán)，使用循環(huán)，可以解決很多實際問題, 提高程序運行的效率，但是需要注意的是千萬不要造成死循環(huán)和沒有規(guī)定循環(huán)次數(shù)的循環(huán), 很容易造成死機。另外要牢記公式和靈活運用公式。作業(yè)：1 .設(shè)計一個程序，點擊按鈕開始計算從1 一直加到100的結(jié)果。2 .設(shè)計一個程序，點擊按鈕后顯示99表。課程V可視化編程應(yīng)用授課時間第二十五一一二十八課時（講解二課，實驗二課）課題Visual Basic常用內(nèi)部控件教學(xué)目的和要求1 .控件的公共屬性。2 . 窗體、命令按

38、鈕（ CommandButton ）、框架（Frame）、圖片框（Image）、選項按鈕 O OptionButton ）、復(fù)選按鈕（CheckBox ）、列表框（ListBox ）、組合框（ComboBox）、定時器（Timer）、滾動條（HscrollBar、VScrollBar ）重點難點 常用內(nèi)部控件的使用教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程一、圖片框、圖像框的常用屬性1、Picture屬性：顯示圖片 (1)在設(shè)計階段裝入圖片 改變屬性窗口中的 Picture屬性 (2)在運行期間裝入圖片對象名.Picture=LoadPicture(filename)如：Picture1.Pic

39、ture=LoadPicture("c:windowsBubbles.bmp") 刪除圖片框的圖形也同樣使用LoadPicture如：Picture1.Picture= LoadPicture()2、圖片框的Autosize屬性：決定控件是否自動適應(yīng)圖片的大小值為：true, false3、圖像框的Strech屬性：決定圖片是否自動適應(yīng)控件的大小 值為：true, false二、圖片框、圖像框的區(qū)別1、圖片框可以作為其它控件的容器2、圖片框可以通過Print方法接受文本3、圖像框比圖片框占用內(nèi)存少，顯示速度快 三、單選按鈕(OptionButton )1、事件Click事件

40、：當單擊單選按鈕時發(fā)生2、屬性(1) Value屬性：表示單選按鈕選中或不選中的狀態(tài)(2) Style屬性：設(shè)置控件的外觀說明：(1)要使某個單選按鈕成為缺省按鈕，只要設(shè)計時將其 Value屬性設(shè)置成True (2)要禁用單選按鈕，將Enabled屬性設(shè)置成False四、復(fù)選框 1、屬性(1) Value 屬性:復(fù)選框狀態(tài)：0-未選中，1-選中，2-變灰暗(2) Style 屬性： 設(shè)置控件的外觀。 2、事件 Click事件 五、列表框(ListBox) 主要用途：在于提供項目列表，用戶從其中可以選擇一項或多項。 1、屬性(1) List 屬性該屬性是一個字符串數(shù)組，用來保存列表框中的各個數(shù)據(jù)

41、項內(nèi)容。List數(shù)組下標從0開始,即List(0)是第一個數(shù)據(jù)項的內(nèi)容，List(列表框Name. ListCount-1)是最后一個數(shù)據(jù)項的內(nèi)容。用List屬性設(shè)置列表項中的數(shù)據(jù)項的方法： 屬性窗口 程序中設(shè)置 列表框Name. List(下標) 如：List1.list(3)= "Li Ning ” (2) ListCount屬性：該屬性記錄了列表框的數(shù)據(jù)項數(shù) (3) ListIndex屬性(設(shè)計時不可用)該屬性是被選中的列表項的下標值(任何時候都是一個值)。(4) Text屬性(只讀)用于存放選中列表項的文本內(nèi)容。(5) Selected屬性：該屬性值為一個邏輯數(shù)組(6) Se

42、lCount屬性：返回列表框中選中項的數(shù)量(7) 設(shè)置 MultiSelect 屬性(8) Style 屬性(9) 用方法(11) AddItem 方法語法：Listname.AddItem item ,index(2) RemoveItem 方法語法：ListName.RemoveItem index(3) Clear 方法語法：ListName.Clear六、組合框1、屬性：(1) Style 屬性(2) Text 屬性2、方法：同列表框七、框架(Frame)若要在同一窗體上建立幾組相互獨立的單選按鈕，通常用框架將每一組單選按鈕框起來(分組) 注意(1)只能在框架中畫控件的方法向框架中添加

43、控件，不能用雙擊的方式，也不能先畫出控件在添 加到框架中。(2)如果用框架將窗體上現(xiàn)有的控件進行分組，可先選定這些控件，將它們剪切、粘貼到框架中。1、屬性(1) Caption 屬性(2) Enabled 屬性2、由于框架的主要作用是對控件進行分組，所以沒有必要相應(yīng)它的事件本章小結(jié)：通過本章的學(xué)習(xí)，同學(xué)們應(yīng)該了解和掌握 VB內(nèi)部控件的使用方法，具有 方便使用的內(nèi)部控件是 VB的之所以受到廣大用戶歡迎的條件之一， 可以為同學(xué)們以后的 編程提供很大的方便。所以我們一定要牢記經(jīng)常使用的控件的基本屬性。作業(yè):1 .分別寫出命令按鈕、圖片框和定時器的常用屬性以及作用。2 .設(shè)計一個程序，每過一秒鐘則窗體

44、上的數(shù)字加1。課程VB可視化編程應(yīng)用授課時間第二十九一一三十四課時（講解二課，實驗四課）課題數(shù)組教學(xué)目的和要求3 .控件的公共屬性。4 . 窗體、命令按鈕（CommandButton ）、框架（Frame）、圖片框（Image）、選項按鈕（OptionButton ）、復(fù)選按鈕（CheckBox）、列表框（ListBox ）、組合框（ComboBox）、 定時器（Timer）、滾動條（HscrollBar、VScrollBar ）重點難點常用內(nèi)部控件的使用教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程一、數(shù)組的概念數(shù)組是一組具有相同名字、不同下標的變量的集合。需要注意它并不是一種數(shù)據(jù)類型，它是用來

45、存放或表示一組相關(guān)的數(shù)據(jù)。數(shù)組必須先聲明后使用，主要聲明數(shù)組名、類型、維數(shù)、數(shù)組大小。按聲明時下標的個數(shù)確定數(shù) 組的維數(shù)，VB中的數(shù)組有一維數(shù)組、二維數(shù)組最多60維；按聲明時數(shù)組的大小確定與否分為定長(靜態(tài))數(shù)組和可調(diào)(動態(tài))數(shù)組兩類數(shù)組。例 7. 1 中的語句：Dim C(1 to 50) As Integer聲明了一個一維定長數(shù)組，該數(shù)組的名字為C,類型為整型；共有50個元素，下標范圍為1到50;C數(shù)組的各元素是 C(1),C(2),C(3),，C;(5C)(i)表示由下標i值決定是哪一個元素。二、在對數(shù)組操作時，引用數(shù)組元素的形式是：數(shù)組名(下標1,下標2)注意：下標不能超出數(shù)組聲明時的

46、上、下界范圍。下標可以是整型的常數(shù)、變量、表達式，甚至 又是一個數(shù)組元素。如C(8) 、C(3+13)、C(i)都是正確的數(shù)組元素引用形式。數(shù)組元素的使用規(guī)則與同類型的簡單變量相同。三、一堆數(shù)組在聲明時，已明確給出了數(shù)組的下標上界、下界(下界也可隱含給出)時該數(shù)組稱為定長(靜態(tài)) 數(shù)組。定長(靜態(tài))數(shù)組分一維數(shù)組、二維數(shù)組及多維數(shù)組，VB中最多可達60維。在聲明時，數(shù)組只有一個下標，則該數(shù)組即為一維數(shù)組。四、數(shù)組的聲明：聲明一維數(shù)組形式如下：Dim數(shù)組名(下標)as類型其中：下標：必須為常數(shù)，不可以為表達式或變量。下標的形式：下界to 上界，下標下界最小可為-32768,最大上界為32767,

47、省略下界，其默認值 為0。一維數(shù)組的大小為：上界 一下界+1。As類型：如果默認，即不明確給出數(shù)組的類型，則數(shù)組與以前所述簡單變量的聲明一樣，是變體 數(shù)組。Dim語句聲明的數(shù)組，實際上就是為系統(tǒng)提供數(shù)組名、數(shù)組類型、數(shù)組的維數(shù)和各維大小等相關(guān) 信息。例如：Dim Y(100) As Integer聲明了 Y是數(shù)組名、整型、一維數(shù)組、有101個元素；下標的范圍0100。若在程序中使用 a(101), 則系統(tǒng)會顯示下標越界五、一維數(shù)組的使用編寫程序時，一維數(shù)組通常與For循環(huán)結(jié)合使用，F(xiàn)or語句中的循環(huán)變量作為數(shù)組元素的下標，通過循環(huán)變量的不斷改變，達到對每個數(shù)組元素依次進行處理的目的六、二維數(shù)組

48、：在聲明時，數(shù)組有兩個下標，則該數(shù)組即為二維數(shù)組。七、二維數(shù)組的使用：在利用二維數(shù)組編寫程序時，二維數(shù)組通常與雙重 For循環(huán)結(jié)合使用，每重For語句中的循環(huán)變量分別作為數(shù)組元素的兩個下標，通過循環(huán)變量的不斷改變，達到對二維數(shù)組中每個數(shù)組元素依次進行 處理的目的。八、控件數(shù)組：控件數(shù)組的概念控件數(shù)組是由一組相同類型的控件組成。它們共用一個控件名，絕大部分的屬性也相同，但有一 個屬性不同，即Index屬性的值不同。當建立控件數(shù)組時， 系統(tǒng)給每個元素賦一個唯一的索引號（Index）,通過屬性窗口的Index屬性，可以知道該控件的下標是多少，第 1個元素下標是 0。例如，控件數(shù)組 LblTm（6）表

49、示控件數(shù)組名為 LblTm的第7個元素?？丶?shù)組最大的特點是：控件數(shù)組共享同樣的事件過程。所以適用于若干個控件執(zhí)行的操作相似 的場合，例如，控件數(shù)組 cmdShuzi有10個命令按鈕，則不管單擊哪個命令按鈕，就會調(diào)用同一個單 擊事件過程。為了區(qū)分是控件數(shù)組中的哪個元素觸發(fā)了事件，在程序運行時，通過傳送給過程的索引 值（即下標值）來確定。一個控件數(shù)組至少包含一個元素，最多可達32768個。建立的步驟如下：窗體上畫出某控件，可進行控件名的屬性設(shè)置，這是建立的第一個元素。選中該控件，進行 復(fù)制”和 粘貼”操作，系統(tǒng)會提示（假設(shè)先畫了一個Commandl'命令按鈕）：已經(jīng)有一個控件為 Comm

50、and1 '。創(chuàng)建一個控件數(shù)組嗎？”單擊Yes按鈕后，就建立了一個控件數(shù)組元素，進行若干次粘貼”操作，就建立了所需個數(shù)的控 件數(shù)組元素。 進行事件過程的編程。本章小結(jié)：通過本章的學(xué)習(xí)，掌握數(shù)組特別是控件數(shù)組的使用方法。在實際編程中， 如果需要一次聲明多個變量的話，最好使用數(shù)組的方法。作業(yè)：按照書本上習(xí)題2的要求制作一個計算器。課程VB可視化編程應(yīng)用授課時間第三十五一一四十課時（講解三課，實驗三課）課題過程孝 與白 不 厚 >1 .系統(tǒng)提供的內(nèi)部函數(shù)過程和事件過程。2 .用戶自定義的過程（通用過程）：Function過程、Sub子過程。3 . Function過程：Function

51、過程的定義和調(diào)用。4 . Sub過程：Sub過程的定義和調(diào)用。5 .參數(shù)的傳遞：形參和實參，按值傳遞和按地址傳遞。6 .過程的作用域。1i建立函數(shù)過程和子過程調(diào)用過程的方法和參數(shù)傳遞 函數(shù)過程與子過程的區(qū)別教法講讀法、實踐法教具電腦教學(xué)內(nèi)容及過程一、過程的定義過程一一構(gòu)成程序的一個基本單位。實現(xiàn)某一特定功能或若干功能的代碼段。使用過程的兩大優(yōu)點：便于調(diào)試 代碼重用Sub過程：分為事件過程和通用過程。區(qū)別：過程的調(diào)用方式不同。1、事件過程：由對象的事件所觸發(fā)調(diào)用說明：窗體的事件過程名由Form_事件名 組合構(gòu)成控件的事件過程名由控件的Name_事件名組合構(gòu)成例如： Private Sub For

52、m_Load（）End SubPrivate Sub Command1_Click()End Sub2、通用過程：存放多個程序需要共同使用的一段代碼（公用代碼）創(chuàng)建：（1）直接輸入過程頭，按回車后將自動出現(xiàn)過程尾格式：Private|PublicStatic Sub 過程名（形式參數(shù)表）過程頭語句過程體End Sub過程尾說明：可以使用Exit Sub退出；不能嵌套定義，但可以調(diào)用其它過程。（2）利用 工具/添加過程”命令，設(shè)置對話框即可。 然后在代碼窗口中定義過程的參數(shù)Function過程（也稱為函數(shù)過程 ）與Sub過程區(qū)別：Function過程帶有返回值，定義時有返回值的類型說明。格式：P

53、rivate|PublicStatic Function 函數(shù)名（形式參數(shù)）As 類型函數(shù)名=表達式語句End Function 說明：函數(shù)的創(chuàng)建與通用過程的創(chuàng)建相似：用 Function代替Sub;可以在代碼窗口 ”直接定義或 工具/添加過程”對話框中定義。然后在代碼窗口中定義過程的參數(shù)，返回值類型為了使函數(shù)過程返回結(jié)果，一般在函數(shù)過程中應(yīng)有函數(shù)名=表達式”這樣的語句，如省略，則數(shù)值函數(shù)返回0,字符串返回空字符串?？梢杂肊xit Function退出；二、過程的調(diào)用1、在其它過程中調(diào)用通用過程使用Call語句：Call 過程名(實在參數(shù))使用過程名： 過程名實在參數(shù)(注意：實參不能有圓括號)

54、例題：見下頁2、函數(shù)過程的調(diào)用：變量名 =函數(shù)名(參數(shù)列表) 三、參數(shù)傳遞1、形參與實參如： 定義過程： sub testsub(r as integer,cc as string )調(diào)用過程：call testsub(18, rr)注：實參，形參變量名可不同，但個數(shù)必相同實參書寫順序必須與相應(yīng)形參的類型相符2、按值傳遞參數(shù)形式：參數(shù)前帶有關(guān)鍵字ByVal形參是實參的副本(形參的變動不影響實參)。3、按地址傳遞參數(shù)形式：參數(shù)前帶有關(guān)鍵字ByRef或缺省形參使用對應(yīng)的實參的存儲單元。顯然，形參的變動將影響實參。4、使用可選參數(shù)在參數(shù)前加optional指定參數(shù)可選若指定了可選參數(shù)，則其后的參數(shù)也

55、必是可選的，要加 optional5、使用不定數(shù)量的參數(shù)(可變參數(shù))一般，實參與形參個數(shù)相等，但可用ParamArray關(guān)鍵字使過程接受任意個數(shù)的參數(shù)。四、變量和過程的作用范圍1、過程的作用域(1)窗體/模塊級過程private(2)全局級過程public或缺省如果在窗體模塊 Form1中包含SomeSub過程，則可使用下面的語句調(diào)用Form1中的過程：Call Form1.SomeSub(arguments)若在 Module1中調(diào)用 Module2中的 CommonName過程，要用下面的語句：Module2.CommonName (arguments)2、變量的作用域過程級變量(局部變量)在其聲明的過程內(nèi)起作用用Dim聲明：變量值只在過程執(zhí)行期間存在。用Static聲明：靜態(tài)局部變量，在整個應(yīng)用程序運行時，其值一直存在。模塊級變量一一在該模塊的所有過程中起作用在模塊的 通用”聲明段用Private或Dim語句聲明。全局變量一一在該工程的所有模塊中起作用。例如，兩個窗