VB程序設計ch031基礎(chǔ)和選擇結(jié)構(gòu)

1、 本章主要介紹程序代碼設計基礎(chǔ)知識：數(shù)據(jù)類型、變量、常量、運算符、表達式和基本語句。以程序代碼編寫為核心，介紹VB語言工具的高級用法：數(shù)組、過程與函數(shù)。學習重點：掌握VB的數(shù)據(jù)類型、變量、表達式以及運算符的優(yōu)先級。掌握VB的常用語句和結(jié)構(gòu)化程序設計的三種基本結(jié)構(gòu)。掌握VB中數(shù)組、過程與函數(shù)的定義及其用法。 第三章 程序設計基礎(chǔ)1 3.1 基本語法 3.2 結(jié)構(gòu)化程序設計的三種基本結(jié)構(gòu) 3.3 基本語句 3.4 數(shù)組 3.5 過程 3.6 內(nèi)部函數(shù)23.1 基本語法33.1.0 VB的編碼規(guī)則VB和任何程序設計語言一樣，編寫代碼有一定的書寫規(guī)則：1. VB代碼不區(qū)分字母的大小寫2. 語句書寫自由

2、 （1）同一行上可以書寫多條語句，語句間用“：”分隔； （2）續(xù)行符（空格下劃線）“ _”； （3）一行允許多達255個字符。3. 注釋有利于程序的維護和調(diào)試 注釋以Rem 開始，但一般用西文單引號“ ”引導注釋的內(nèi)容，可以直接出現(xiàn)在語句的后面。43.1.1 數(shù)據(jù)類型 數(shù)據(jù)具有數(shù)據(jù)類型，數(shù)據(jù)類型是數(shù)據(jù)的表示和存儲形式，在VB中，不僅提供了系統(tǒng)定義的基本數(shù)據(jù)類型，而且允許用戶自定義數(shù)據(jù)類型。1.基本數(shù)據(jù)類型 1） 數(shù)值數(shù)據(jù)類型 (P.40表3-1) 2） 字符串型數(shù)據(jù)（String） 字符串是一個用雙引號括起來的字符序列，由字母、數(shù)字和漢字組成。例：“Visual Basic 6.0程序設計”。

3、VB的字符串有兩種，即可變長度字符串和固定長度字符串。53）布爾型數(shù)據(jù)（Boolean） 布爾型數(shù)據(jù)是一個邏輯值，用2個字節(jié)存儲，只能取邏輯值True或 False。當把布爾型數(shù)據(jù)轉(zhuǎn)換為數(shù)值型數(shù)據(jù)時，F(xiàn)asle 轉(zhuǎn)換為0，True 轉(zhuǎn)換為-1。當把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為布爾型數(shù)據(jù)時，0 轉(zhuǎn)換為False，其它非0 值轉(zhuǎn)換為True。4）日期型數(shù)據(jù)（Date） 用于表示日期和時間，在內(nèi)存中占8個字節(jié)。 例：#05/21/03# 。5）對象型數(shù)據(jù)（Object） 對象型數(shù)據(jù)用于表示應用程序或某些其他應用程序中的對象，在內(nèi)存中占4個字節(jié)。6）變體類型（Variant） Variant 是一種特殊的數(shù)據(jù)類型

4、，是所有未定義的變量的默認數(shù)據(jù)類型。變體類型是可變的數(shù)據(jù)類型，可用于表示任何值，如數(shù)值、字符、日期等，并且占用的存儲空間隨類型的改變而改變。 6VB標準數(shù)據(jù)類型 72.用戶自定義類型 (P.41)用Type 語句自定義數(shù)據(jù)類型。格式： Private | Public Type 元素名 As 數(shù)據(jù)類型 元素名 As 數(shù)據(jù)類型 End Type其中，用戶類型名是用戶自定義的數(shù)據(jù)類型名 （例：student）,元素可以是任何基本數(shù)據(jù)類型，也可以是用戶自定義數(shù)據(jù)類型。例：描述學生的學籍情況，應有該學生學號、姓名、成績等。Private Type student num As String * 8 定

5、義num為字符串變量 name As String *8 score As Integer End Type83.1.2 常量與變量 1.常量 常量是指在程序運行過程中始終保持不變的量，在VB中有三種形式的常量，即直接常量、符號常量和系統(tǒng)提供的常量。1）直接常量 直接常量就是在程序代碼中，以直接明顯的形式給出的常數(shù)值。根據(jù)常量的數(shù)據(jù)類型，可分為字符串常量、數(shù)值常量、布爾常量和日期常量。 例：“Visual Basic”，234，True，#05/04/03#。2）符號常量 在程序中，可以定義符號常量，用來代替直接常量。必須先定義，再使用。符號名必須是以字母開頭，由字母、數(shù)字、下劃線組成的長度不

6、大于40的字符串。 9定義符號常量的格式為： Const 符號常量名 As 類型=表達式 省略 AS 類型，常量的類型由表達式值的類型決定 為使與變量名區(qū)分，一般常量名使用大寫字母 注意：符號常量一經(jīng)聲明，在其后的代碼中只能引用，不能改變。例：Const MAX=100 Const Birthday=#05/21/97# Const PI As Double=3.14159 聲明PI為雙精度常量103）系統(tǒng)提供的常量 系統(tǒng)定義的常量位于對象庫中,可通過“對象瀏覽器”查看. 例: 窗口狀態(tài)屬性WindowsState 可接受下列常量： 常量 值 描述 vbNormal 0 正常 vbMinimi

7、zed 1 最小化 vbmaximized 2 最大化 若要將窗口最大化，可以使用WindowsState 的常量，也可以使用WindowsState 的值： Form1. WindowsState= vbmaximized 或 Form1. WindowsState=2112.變量 變量，是內(nèi)存中保存信息（值）的內(nèi)存區(qū)域，它的內(nèi)容在程序運行過程中是可變的。 在程序運行過程中，可以改變的量稱為變量。1）變量的命名規(guī)則： 只能以字母開頭，由字母、數(shù)字和下劃線組成，長度不得超過255個字符。 VB中不區(qū)分變量名的大小寫。 不能使用VB的關(guān)鍵字作變量名。 為了增加程序的可讀性，可在變量名前加一個縮寫

8、的前綴來表明該變量的數(shù)據(jù)類型。例：intCount 例：變量x、abc、x2、c_d等都是合法變量；而2x、x+y等都是不合法變量。 122）變量的數(shù)據(jù)類型 在VB中數(shù)據(jù)類型決定了如何將變量存儲到內(nèi)存中，每種數(shù)據(jù)類型占用的內(nèi)存空間是不一樣的。 所有的變量都具有數(shù)據(jù)類型，數(shù)據(jù)類型決定了變量能夠存儲哪種數(shù)據(jù)（能夠處理哪種數(shù)據(jù)）。 在VB定義的各種數(shù)據(jù)類型中，按照處理數(shù)據(jù)種類的不同，可將起其分為如下幾類 數(shù)值型數(shù)據(jù)類型：專門處理數(shù)值型數(shù)據(jù)。 非數(shù)值型數(shù)據(jù)類型：如字符數(shù)據(jù)、邏輯數(shù)據(jù)、日期數(shù)據(jù) 變體數(shù)據(jù)類型：可以隨時改變數(shù)據(jù)類型的數(shù)據(jù)13用 Dim 語句顯式聲明變量格式 : Dim 變量名 AS 類型

9、或 Dim 變量名類型符 說明： 將給定的變量名聲明為指定類型的變量 如果 As 類型部分省略，所建立的變量類型默認為變體類型。 在一個Dim語句中可以定義多個變量，但每個變量必須有自己的類型聲明。 變量未進行上述的聲明而直接使用，其類型為 Variant 類型。即隱式聲明 在使用變量前，最好先聲明這個變量。所謂聲明變量就是事先將變量的有關(guān)信息通知程序。3）變量的聲明14例： Dim Age As Integer 或Dim Age% 定義Age為整型變量 Dim StrTemp As String 定義StrTemp為不定長字符型變量 Dim StrName As String * 10 定義

10、StrName 為定長(10)字符變量 Dim Number As Single, Count As Single 定義Number和Count都是單精度變量 Dim Number , Count As Single 定義Number為變體變量，Count為單精度變量 注意: 在通用聲明處加 Option Explicit 語句可強制顯式聲明變量。 在運行程序時，遇于到未經(jīng)明確聲明的變量名，VB就會發(fā)出警告。153.1.3 運算符和表達式1.運算符 VB的運算符可以分為四種： 算術(shù)運算符 字符串運算符 關(guān)系運算符 邏輯運算符1) 算術(shù)運算符 (P.43) 算術(shù)運算符用于對數(shù)值型數(shù)據(jù)執(zhí)行各種算術(shù)

11、運算。 在VB中按運算優(yōu)先級從高到低分別為： （乘方）、(負號)、*（乘法）、/（浮點除、 （整除）、mod（取模）、 +（加法）、-（減法）。16算術(shù)運算符 (P.43) 表中ia 初值為317 算術(shù)運算符兩邊的操作數(shù)應是數(shù)值型，若是數(shù)字字符或邏輯型，則自動轉(zhuǎn)換成數(shù)值類型后再運算。 例如： 72運算結(jié)果為49 7*2運算結(jié)果為14 7/2 （浮點除法） 運算結(jié)果為3.5 72 （整除） 運算結(jié)果為3 7 mod 2運算結(jié)果為1 MOD運算，含義是取得兩個整數(shù)相除后結(jié)果的余數(shù)。 7+2運算結(jié)果為9 7-2運算結(jié)果為5182)字符串運算符 字符串運算符： 、+ 用于字符串連接。區(qū)別: + 兩邊的

12、操作數(shù)均為字符型。若一個為數(shù)字字符型（如“123”），另一個為數(shù)值型，則自動將數(shù)字字符轉(zhuǎn)換為數(shù)值，再進行算術(shù)加；若一個為非數(shù)字字符型，另一個為數(shù)值型，則出錯。 & 兩邊的操作數(shù)不管是字符型還是數(shù)值型，先將操作數(shù)轉(zhuǎn)換成字符，然后再連接。例如: abcdef + 12345 出錯 abcdef & 12345 結(jié)果為 abcdef12345 123 & 456 結(jié)果為 123456 “123” + 456 結(jié)果為 579注意： “123 ” + True 結(jié)果為 122，這是由于 True轉(zhuǎn)換為數(shù)值-1，F(xiàn)alse轉(zhuǎn)換為數(shù)值0193)關(guān)系運算符 關(guān)系運算符用于對兩個表達式的值進行比較，運算結(jié)果是一

13、個邏輯值。 若兩個操作數(shù)是數(shù)值型，按其大小比較；若兩個操作數(shù)是字符型，則按字符的ASCII碼值從左到右一一比較,直到出現(xiàn)不同的字符為止。關(guān)系運算符的優(yōu)先級相同。 例如： 3 9 結(jié)果為 False 20 4) 邏輯運算符 (P.43表3-3) 其作用是對表達式進行邏輯運算，結(jié)果是邏輯值。 和關(guān)系運算符一樣，邏輯運算通常也用來判斷程序流程。例如： If Num=60 And Num=100 Then 最常用的邏輯運算是：Not (非) ：由真變假或由假變真，進行“取反”運算。And (與)： 如果兩個表達式的值均為True，結(jié)果才為True，否則為False。Or (或)： 如果兩個表達式中某一

14、個表達式的值為True，結(jié)果為True， 只有兩個表達式的值均為False時，結(jié)果才為False。21Xor (異或)： 如果兩個表達式同時為True或同時為False，則結(jié)果為False否則為True（即一真一假時為True ）。Eqv (等價)： 如果兩個表達式同時為True或同時為False，則結(jié)果為True否則為False。Imp (蘊含)： 當?shù)谝粋€表達式為True，且第二個表達式為False時，結(jié)果為False。按優(yōu)先級從高到低分別是： Not（取反） And（與） Or（或） Xor（異或） Eqv (等價) Imp (蘊含)22 若邏輯運算符對數(shù)值進行運算，則以數(shù)字的二進制值按

15、位進行邏輯運算。例：12 And 7 , 二進制數(shù)1100與0111進行And運算，得二進制數(shù)100，結(jié)果為4。例： Not (27)運算結(jié)果為False (P.43) (27) And (65)運算結(jié)果為False (27) Or (65) 運算結(jié)果為True 利用邏輯運算符對數(shù)值進行運算的表達式： 例1：表示10=x20 并且1y=5 表達式：(10=x And x20) And (1y And y=5) 例2：x，y 中有一個小于0 表達式：(x0) Or (x0 And y=“A” And ch=“a” And ch=“z”)232.表達式 1）組成 由變量、常量、函數(shù)、運算符和圓括號

16、按一定的規(guī)則組成。 2）書寫規(guī)則 (1) 運算符不能相鄰。例a+ -b是錯誤的。 (2) 乘號不能省略。 例x 乘以y 應寫成：x*y； 2x 應寫成：2*x (3) 括號必須成對出現(xiàn)，均使用圓括號。 (4) 表達式從左到右在同一基準上書寫，無高低、大小。 243）算術(shù)表達式中數(shù)據(jù)類型的轉(zhuǎn)換 在算術(shù)運算中，如果操作數(shù)采用不同的數(shù)據(jù)精度，則VB規(guī)定，運算結(jié)果的數(shù)據(jù)類型采用向精度高的數(shù)據(jù)類型靠。 IntegerLongSingleDoubleCurrency 整型 長整型 單精度 雙精度 字符運算符關(guān)系運算符邏輯運算符 對于同種運算符則按優(yōu)先級處理。25例：表達式 書寫為： a*b*c*d/e/f

17、/g 或 a*b *c*d/（e*f*g） 例：設a=3，b=5，c= -1，d=7 計算表達式 (P.43) 263.2 結(jié)構(gòu)化程序設計的三種基本結(jié)構(gòu)27程序控制語句Visual Basic語言作為結(jié)構(gòu)化程序設計語言，提供了三種控制流來控制程序的流程：順序，條件分支和循環(huán)語句。283.2.1 順序結(jié)構(gòu) 整個程序按書寫順序依次執(zhí)行。語句塊1語句塊2293.2.2 選擇結(jié)構(gòu) 如圖3-2所示，當條件成立時執(zhí)行A程序塊，否則執(zhí)行B程序塊，即A與B只能執(zhí)行其中一個。 圖3-2選擇結(jié)構(gòu)語句塊A語句塊B條件假 真 303.2.3 循環(huán)結(jié)構(gòu)在VB中有2種循環(huán)結(jié)構(gòu)：1.圖3-3為 當型循環(huán)結(jié)構(gòu)，當條件成立時，

18、重復執(zhí)行循環(huán)體語句，直到條件為假，停止循環(huán)。2. 圖3-4為直到型循環(huán)結(jié)構(gòu)，先執(zhí)行循環(huán)體語句，再判斷條件是否為真，若為真，再執(zhí)行循環(huán)體，直到條件為假。 循環(huán)體條件假 真 (1) 當型循環(huán)結(jié)構(gòu)(2) 直到型循環(huán)結(jié)構(gòu)循環(huán)體條件假 真 313.3 基本語句323.3.1賦值語句1.語句格式： = 或：.=2.語句功能 計算表達式的值，并將該值賦給賦值號（=）左邊的變量或?qū)ο髮傩浴?.使用賦值語句時，應注意以下幾點：1)賦值號左邊只能是變量或?qū)ο蟮膶傩?，不能是表達式、常量、函數(shù)。2) 賦值號兩邊必須類型一致，若“”兩邊同是數(shù)值型，而且有不同精度，系統(tǒng)自動強制轉(zhuǎn)換成左邊的精度。 例： a % = 4.7

19、 a是整型變量，a 中的結(jié)果是4。強制轉(zhuǎn)換3) 賦值語句中的“=”與關(guān)系運算符中的“=”的作用截然不同。4. 實例： Form1.caption = 輸入框333.3.2 注釋語句1. 語句格式 注釋內(nèi)容 或 Rem 2.語句功能 注釋語句給程序中的語句或程序段加上注釋內(nèi)容，以提高程序的可讀性。注釋語句是非執(zhí)行語句，僅對程序的有關(guān)內(nèi)容起注釋作用，不被解釋和編譯。注釋語句不能放在續(xù)行符后。例：c=b：b=a：b=c 交換A、B的值 或?qū)懗桑?Rem 交換A、B的值 c=b：b=a：b=c343.3.3 Stop語句格式：Stop功能：暫時停止程序的執(zhí)行。說明： Stop語句可以放在程序的任何地方

20、，它的作用相當于在程序代碼中設置的斷點。類似于執(zhí)行“運行”菜單中的“中斷”命令，當執(zhí)行Stop語句時，系統(tǒng)將自動打開立即窗口，方便用戶調(diào)試跟蹤程序。 當程序調(diào)試結(jié)束后，生成可執(zhí)行文件（.ExE）之前，應刪去代碼中的所有Stop語句。3.3.4 結(jié)束語句格式： End功能： End語句用于結(jié)束程序的運行。為了保持程序的完整性，應當在程序中含有End語句。35 3.2.5 加載對象語句Load 語法格式：Load 對象名 功能：把對象名代表的窗體對象、控件數(shù)組元素等加載到內(nèi)存中。 說明：使用Load語句可以加載窗體，但不顯示窗體。當VB加載窗體對象時，先把窗體屬性設置為初始值，再執(zhí)行Load事件過

21、程。 例如： Load Forml 加載窗體Forml Load Option(2) 加載控件數(shù)組中的一個元素36 3.2.6 卸載語句Unload 格式：Unload 對象名 功能：從內(nèi)存中卸載指定窗體或控件。 如果卸載的對象是程序唯一的窗體，則將終止程序的執(zhí)行。 例如： Private Sub Command1_Click() Unload Me 卸載當前窗體 End Sub Me是系統(tǒng)關(guān)鍵字，用來代表當前窗體371. InputBox 函數(shù)使用InputBox函數(shù)獲取輸入,調(diào)用方式：3.3.7 人機交互函數(shù)(P.117) 函數(shù)名稱變量名參數(shù)Fullname= InputBox (prom

22、pt, title)38InputBox 功能 打開一個對話框，等待用戶輸入內(nèi)容，當用戶單擊“確定”按鈕或按回車鍵時，函數(shù)返回輸入的值，其值的類型為字符串。說明： 實現(xiàn)數(shù)據(jù)的輸入， 最常用的方法是InputBox()函數(shù)和使用文本框控件。 文本框控件用于接收輸入的文本信息（字符型），它將接收的字符串保存在文本框的Text屬性中。例: Dim x% %是整型的類型符 x=InputBox(“x=“) 系統(tǒng)將輸入的字符串自動轉(zhuǎn)換數(shù)值-x或 x=Val(Text1.Text) 將數(shù)字字符用Val函數(shù)轉(zhuǎn)換為數(shù)值數(shù)據(jù)-x39x=InputBox(“x = InputBox(輸入X的值：, 輸入框) 或

23、x=Val(InputBox(“x = InputBox(輸入X的值：, 輸入框) )x=Val(Text1.Text)40例：當鍵盤輸入“王曉明” 后，變量strName獲得鍵盤輸入的值.Dim strName As String * 40， strS1 As String * 40 聲明定長字符串變量可存放40個字strS1 = “請輸入你的姓名” + Chr(13) + Chr(10) + “然后單擊確定” strName= InputBox(strS1， “輸入框”) 輸入對話框變量strS1中的內(nèi)容作為對話框的提示信息。41可在需換行處加chr(13)回車符或chr(10)換行符:P

24、rivate Sub Command1_Click() Dim prompt, fullname prompt = 請輸入 + Chr(13) + 你 + Chr(10) + 的 + Chr(10) + 姓 + Chr(10) + 名 fullname = InputBox(prompt) Label1.Caption = fullnameEnd Sub42請輸入 + Chr(13) + 你 + Chr(10) + 的 + Chr(10) + 姓 + Chr(10) + 名chr(13)回車符或chr(10)換行符效果：43 2. MsgBox 函數(shù) 使用MsgBox 函數(shù)輸出信息,調(diào)用方式：

25、MsgBox 函數(shù)的最簡形式為: MsgBox （ prompt）變量名要顯示的信息對話框上顯示的按鈕數(shù)量對話框的標題變量% = MsgBox (prompt, Button, title)44MsgBox 功能: 打開一個消息框，等待用戶選擇一個按鈕。MsgBox函數(shù)返回所選按鈕對應的整數(shù)值，以便告訴用戶單擊哪一個按鈕。若不需要返回值，則可作為MsgBox過程使用。說明： prompt和title的含義與InputBox()函數(shù)中對應的參數(shù)相同。 buttons（按鈕）：可選項，為整型參數(shù)。用來設定要顯示的按鈕的數(shù)目、類型和出現(xiàn)在消息框中的圖標類型。45函數(shù)調(diào)用示例:Private Sub

26、Command1_Click() Dim prompt, fullname prompt = 請輸入你的姓名 fullname = InputBox(prompt) MsgBox (fullname), , 輸出結(jié)果End Sub46按鈕buttons值如下： 函數(shù)返回所選按鈕整數(shù)值：47示例-按鈕buttons的 設置值變化效果：MsgBox (fullname), vbOKCancel+vbQuestion, 輸出結(jié)果MsgBox (fullname), vbOKCancel+vbInformation, 輸出結(jié)果函數(shù)返回所選按鈕整數(shù)值變化：vbOKCancel483.3.8 分支語句 （

27、P.46）用于Visual Basic 選擇結(jié)構(gòu)的程序設計，語句有： IfThen If.ThenElse Select Case491. 單分支結(jié)構(gòu)條件語句1) 語句格式有兩種，第一種是單行格式，定義為： If Then 第二種是多行格式，定義為： If Then End If 條件：關(guān)系、邏輯或算術(shù)表達式。 表達式的值按 非0：True; 0：False進行判斷。 TF 語句塊表達式單分支結(jié)構(gòu)50例：已知兩個數(shù)x和y，比較它們的大小，使得x中的值 大于y中的值。 If xy Then t=x：x=y：y=t t為中間變量 End If將存放在兩個變量中的數(shù)進行交換，必須借助于第三個變量才能

28、實現(xiàn)。學會兩個數(shù)的交換很重要。512. 雙分支結(jié)構(gòu)條件語句1)語句格式If Then Else End If 2)語句功能 如果成立，則執(zhí)行，否則執(zhí)行。這種結(jié)構(gòu)為典型的選擇結(jié)構(gòu)。3）示例 計算分段函數(shù) 【例3-1】 （P.47）52【例3-1】輸入x，計算y的值。其中：分析： 該題是數(shù)學中的一個分段函數(shù)，它表示當x=0時，用公式y(tǒng)=1+x來計算y的值；當x=0 作為條件，也可選擇 x=0作為If 條件。程序中當x =0為真時，執(zhí)行y=1+x，為假時，執(zhí)行y=1-2x 。 53程序界面如圖3-5：54程序代碼如下：Private Sub Command1_Click() Dim x As Sin

29、gle Dim y As Single x = Val(Text1.Text) Val函數(shù)是把字符型的Text1.Text轉(zhuǎn)換成數(shù)值型。 If x = 0 Then 當x=0時 y = 1 + x Else 當x0時 y = 1 - 2 * x End If Text2.Text = yEnd Sub55【例3-1:】輸入x,y,z 三個整數(shù)，將它們按從大到小順序排列。（程序ex03-01.frm）56Private Sub Form_Click() Dim x%, y%, z%, t% x = InputBox(x=) 輸入x,y,z y = InputBox(y=) z = InputBo

30、x(z=) If x y t = x: x = y: y = t 兩個變量的內(nèi)容要交換，必須用中間變量t End If If x z t = x: x = z: z = t End If If y z End If Print Print x; y; z 輸出End Sub57 3. 多分支結(jié)構(gòu)條件語句 (P.47) 1) 語句格式 If Then ElseIf Then ElseIf Then Else End If 582) 語句功能 先判斷是否成立，若成立則執(zhí)行，否則判斷是否成立，若成立，則執(zhí)行，否則繼續(xù)判斷，依次類推，如果所有條件都不成立，則執(zhí)行。注意：(1) 不管有幾個分支,依次判斷

31、，當某條件滿足，執(zhí)行相應的語句塊，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。 (2) ElseIf 不能寫成Else If。59 If結(jié)構(gòu)的嵌套 塊結(jié)構(gòu)的條件語句可以嵌套，即把一個If Then Else 塊放在另一個If Then Else 塊內(nèi)。嵌套必須完全嵌套，也就是內(nèi)層條件語句必須完全包含在外層條件語句之中。 格式： If Then Else End IfIf Then Else End If If Then Else End If 603) 舉例 (P.48)【例3-2】在平面直角坐標系中不同的象限內(nèi),點的坐標的符號有以下4種情況: (P.

32、48) 在第一象限內(nèi)x0,y0 在第二象限內(nèi)x0 在第三象限內(nèi)x0,y0,y 0 And y 0 Then Text3.Text = 該點在第一象限內(nèi) ElseIf x 0 Then Text3.Text = 該點在第二象限內(nèi) ElseIf x 0 And y 0 And y max Then max = b End If If c max Then max = c End If Avg = (a + b + c) / 3 Print “Max=”; max，Avg=; Avg，Max-Avg=; max - Avg 634. Select Case語句(情況語句) 1）格式： Select

33、Case 測試表達式 （數(shù)值型或字符串表達式） Case 表達式列表1 語句塊1 Case 表達式列表2 語句塊2 Case Else 語句塊n+1 End Select 注意：“測試表達式”與“表達式列表”的類型必須相同。 Select Case 后不能出現(xiàn)多個變量；Case子句后不能出現(xiàn)變量64 Select Case 測試表達式FTFF表達式表n語句塊n+1語句塊nT表達式表2語句塊2T表達式表1語句塊1Select Case 結(jié)構(gòu)652）語句功能 Select Case語句是多分支結(jié)構(gòu)的另一種表示形式。求出的值，按順序依次與Case后的相匹配，若匹配成功，則執(zhí)行該Case下的語句，然后

34、跳出Select Case語句，即轉(zhuǎn)到End Select之后繼續(xù)執(zhí)行。若的值與各表達式值都不匹配，則執(zhí)行。 其中： “測試表達式” 可以是數(shù)值型或字符串表達式“表達式列表” 可以是下面四種形式之一： 表達式 例: A“，x 一組枚舉表達式(用逗號分隔) 例: 2,4,6,8 表達式1 To 表達式2 例: 60 To 100 Is 關(guān)系運算符表達式(必須使用關(guān)系運算符) 例：Is = 90 Label2.Caption = 優(yōu) Case Is = 80 或 Case 80 To 89 Label2.Caption = 良 Case 70 To 79 Label2.Caption = 中 Ca

35、se 60 To 69 Label2.Caption = 及格 Case Else Label2.Caption = 不及格 End SelectEnd Sub68例：補充題3 列表框中Select Case 語句的應用。根據(jù)List1.ListIndex 屬性值的不同，顯示不同的解釋。單擊列表框的列表項后， ListIndex 屬性返回一個對應于列表框中列表項位置的編號（第一個列表項的編號為0，第二個列表項的編號為1，依次類推。）（程序：變量聲明.frm）69代碼如下：Private Sub List1_Click() Select Case List1.ListIndex Case 0 Label4.Caption = 用Dim聲明局部變量 Case 1 Label4.Caption = 用Static聲明的是靜態(tài)變量 Case 2 Label4.Caption = 用Private聲明的是窗體變量。 Case 3 Label4.Caption = Public聲明的是公共變量。 End SelectEnd Sub703) 實例【例3-3】某運輸公司對用戶計算運費，公式為： 運費=基本運費*貨物重量*距離*（1-折扣），距離越遠，每公里運費越低，計算標準如下： (ex03-03.frm) 0 距離 = 250 km 沒有折