VB程序設(shè)計(jì)第三章課件

1、第三章程序設(shè)計(jì)基礎(chǔ)第2頁(yè)本章目標(biāo)初步了解Visual Basic程序設(shè)計(jì)語(yǔ)言；掌握程序語(yǔ)言的基本要素：關(guān)鍵字和標(biāo)識(shí)符、數(shù)據(jù)類(lèi)型、常量和變量、運(yùn)算符和表達(dá)式；能夠使用程序控制結(jié)構(gòu)中的If語(yǔ)句、Selset Case語(yǔ)句、ForNext語(yǔ)句、WhileWend語(yǔ)句和DoLoop語(yǔ)句進(jìn)行編程。第3頁(yè)任務(wù)1演示表達(dá)式運(yùn)算應(yīng)用程序在文本框輸入兩個(gè)數(shù)字，按下“演示”命令按鈕，接收數(shù)據(jù)后，轉(zhuǎn)換成“數(shù)值型數(shù)據(jù)”進(jìn)行算術(shù)運(yùn)算、關(guān)系運(yùn)算和邏輯運(yùn)算，然后將結(jié)果顯示在窗體上。 圖3-1 演示表達(dá)式運(yùn)算第4頁(yè)任務(wù)分析該任務(wù)我們要研究以下幾項(xiàng)內(nèi)容:VB語(yǔ)言的基本語(yǔ)法 關(guān)鍵字和標(biāo)識(shí)符、數(shù)據(jù)類(lèi)型、常量和變量、運(yùn)算符和表達(dá)式

2、數(shù)據(jù)類(lèi)型的轉(zhuǎn)換框架控件 圖3-2 框架（Frame）控件第5頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法 1)數(shù)據(jù)類(lèi)型數(shù)據(jù)類(lèi)型用來(lái)描述數(shù)據(jù)存儲(chǔ)的內(nèi)存空間的大小和數(shù)據(jù)值的范圍。Visual Basic 6.O提供的基本數(shù)據(jù)類(lèi)型主要有字符串型數(shù)據(jù)和數(shù)值型數(shù)據(jù)，此外還提供了字節(jié)、貨幣、對(duì)象、日期、布爾和變體數(shù)據(jù)類(lèi)型。字符型(String)數(shù)據(jù)：字符型是一個(gè)字符序列，由ASCII字符組成，包括標(biāo)準(zhǔn)的ASCII字符和擴(kuò)展的ASCII字符。在VB中，字符型是放在雙引號(hào)內(nèi)的若干個(gè)字符，其中長(zhǎng)度為0(即不含任可字符)的字符串稱為空字符串。如：“Visual Basic程序設(shè)計(jì)” “控件” “123456” “L” “”第6頁(yè)

3、任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 1)數(shù)據(jù)類(lèi)型數(shù)值型數(shù)據(jù)：Visual Basic的數(shù)值型數(shù)據(jù)分為整數(shù)和浮點(diǎn)數(shù)兩類(lèi)。其中整數(shù)又分為整型(Integer)和長(zhǎng)整型(Long)，浮點(diǎn)數(shù)分為單精度浮點(diǎn)數(shù)(Single)和雙精度浮點(diǎn)數(shù)(Double)。如：1234 54321 123.45 1.2345e2 1.2e-127第7頁(yè)任務(wù)分析貨幣型(Currency)數(shù)據(jù)：貨幣數(shù)據(jù)類(lèi)型是為表示錢(qián)款而設(shè)置的。貨幣型數(shù)據(jù)小數(shù)點(diǎn)前最多有15位數(shù)，小數(shù)點(diǎn)后只保留4位數(shù)，超過(guò)4位的小數(shù)，系統(tǒng)按四舍五入自動(dòng)截取。如：1234704345 13258.3962日期型（Date）數(shù)據(jù)：日期型數(shù)據(jù)表示法有兩種：一種是以數(shù)字

4、符號(hào) (#)擴(kuò)起來(lái)的格式化表示法，例如，#January 1, 1993# 或 #1 Jan 93#。另一種是以數(shù)字序列表示，小數(shù)點(diǎn)左邊是日期，右邊是時(shí)間，例如，2.5表示1900-1-1 12：00：00 VB語(yǔ)言的基本語(yǔ)法(續(xù)) 1)數(shù)據(jù)類(lèi)型第8頁(yè)任務(wù)分析布爾型（Boolean）數(shù)據(jù)：布爾型數(shù)據(jù)是表示真假的數(shù)據(jù)，用于表示邏輯判斷的結(jié)果。取值只有真（True）和假（False）兩個(gè)值。變體型(Variant)數(shù)據(jù)：變體數(shù)據(jù)類(lèi)型是一種可變的數(shù)據(jù)類(lèi)型，可以表示任何值，包括數(shù)值、字符串、日期時(shí)間等。VB語(yǔ)言的基本語(yǔ)法(續(xù)) 1)數(shù)據(jù)類(lèi)型第9頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 2) 常量和變量.常量

5、：常量是程序運(yùn)行中不可改變的量。Visual Basic系統(tǒng)中常量分為直接常量，用戶聲明的符號(hào)常量，系統(tǒng)預(yù)定義常量。1）直接常量直接常量也稱為常數(shù)，如：-78.9 “程序設(shè)計(jì)” #04/12/2008# True等2）符號(hào)常量符號(hào)常量是用戶命名的數(shù)據(jù)項(xiàng)，其值和類(lèi)型由由定義時(shí)確定一般格式為：Const 常量名表達(dá)式,常量名表達(dá)式.3）系統(tǒng)常量VB系統(tǒng)提供了應(yīng)用程序和控件的預(yù)定義常量，用戶可以直接引用。如系統(tǒng)的顏色常量：vbBlack、vbRed、vbGreen等第10頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 2) 常量和變量變量：Visual Basic用變量來(lái)儲(chǔ)存數(shù)據(jù)值。每個(gè)變量都有一個(gè)名字和相應(yīng)的

6、數(shù)據(jù)類(lèi)型，通過(guò)名字來(lái)引用一個(gè)變量，而數(shù)據(jù)類(lèi)型則決定了該變量的儲(chǔ)存方式。變量是程序中數(shù)據(jù)的臨時(shí)存放場(chǎng)所，可以保存程序運(yùn)行時(shí)用戶輸入的數(shù)據(jù)、特定運(yùn)算的結(jié)果以及要在窗體上顯示的一段數(shù)據(jù)等。變量的值在程序運(yùn)行中是可以變化的。第11頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 2)常量和變量變量：1）變量的聲明變量的聲明就是定義變量名和變量的數(shù)據(jù)類(lèi)型。（1）顯式聲明聲明局部變量的格式：Dim|Static 變量名 As 類(lèi)型,變量名 As 類(lèi)型如： Dim x As Integer 定義x為整型變量Dim str As String 定義str為變長(zhǎng)字符串變量Dim a Integer,b Double 定義a為

7、整型變量，b為雙精度浮點(diǎn)型變量第12頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 2) 常量和變量變量：1）變量的聲明（2）隱式聲明如果不進(jìn)行顯式聲明而通過(guò)賦值語(yǔ)句直接使用的變量，或省略了As類(lèi)型短語(yǔ)的變量，其類(lèi)型為變體類(lèi)型(Variant)。（3）強(qiáng)制聲明在程序的開(kāi)始處，如果寫(xiě)入如下語(yǔ)句：Opting Explicit則程序中所有變量必須進(jìn)行顯式聲明。當(dāng)有未定義的變量出現(xiàn)或已定義的變量名發(fā)生拼寫(xiě)錯(cuò)誤時(shí)，系統(tǒng)都會(huì)提出警告，建議初學(xué)者采用強(qiáng)制聲明。第13頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 2) 常量和變量變量的作用域變量的作用域就是引用變量的有效范圍。在Visual Basic中，通常分為局部級(jí)變量、窗體

8、、模塊級(jí)變量和全局變量。（1）局部變量（過(guò)程級(jí)變量）在Sub過(guò)程中使用Dim或Static定義的變量屬于局部變量，其有效范圍在其所聲明的過(guò)程內(nèi)部。使用static定義的變量與Dim定義的變量不同之處在于：在執(zhí)行一個(gè)過(guò)程結(jié)束時(shí)，其所用到的static變量的值會(huì)保留，下次再調(diào)用此過(guò)程時(shí)，變量的初值是上次調(diào)用結(jié)束時(shí)被保留的值；而Dim定義的變量在過(guò)程結(jié)束時(shí)不保留，每次調(diào)用時(shí)需要重新初始化。第14頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 2) 常量和變量變量的作用域（2）窗體變量和模塊變量Visual Basic程序由窗體模塊、標(biāo)準(zhǔn)模塊和類(lèi)模塊等3種模塊組成。模塊包括過(guò)程和聲明兩部分，在模塊的聲明部分使用p

9、rivate和Dim聲明的變量的有效作用范圍是模塊內(nèi)部的任何過(guò)程，稱為模塊級(jí)變量。（3）全局變量全局變量可以在整個(gè)程序的任何模塊、任何過(guò)程中使用的變量。在模塊的聲明部分使用public聲明的變量，是全局變量。第15頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 3) 表達(dá)式和運(yùn)算符表達(dá)式是把常量、變量、函數(shù)以及關(guān)鍵字通過(guò)運(yùn)算符按照一定規(guī)則組合起來(lái)生成新值的式子。運(yùn)算符包括算術(shù)運(yùn)算符關(guān)系運(yùn)算符字符串運(yùn)算符邏輯運(yùn)算符。第16頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 3) 表達(dá)式和運(yùn)算符算術(shù)運(yùn)算符和表達(dá)式運(yùn)算符含義表達(dá)式結(jié)果+加2+35-減5-32*乘6*318/除7/32.333333整除832Mod求余數(shù)25 m

10、od 31冪238第17頁(yè)任務(wù)分析字符串運(yùn)算符和表達(dá)式Visual Basic有兩個(gè)字符串連接符：“&”和“+”，用于將兩個(gè)字符串連接成一個(gè)字符串?！?”連接符不論兩個(gè)操作數(shù)是字符串還是數(shù)值，都可以連接；“+”運(yùn)算符只有兩個(gè)操作數(shù)都是字符串時(shí)才起連接作用，當(dāng)兩個(gè)操作數(shù)是數(shù)值或數(shù)字字符串時(shí)進(jìn)行求和運(yùn)算，其中一個(gè)是非數(shù)字字符串，另一個(gè)是數(shù)值時(shí)出錯(cuò)。 VB語(yǔ)言的基本語(yǔ)法(續(xù)) 3)表達(dá)式和運(yùn)算符第18頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 3)表達(dá)式和運(yùn)算符關(guān)系運(yùn)算符和表達(dá)式 運(yùn)算符含義表達(dá)式結(jié)果大于2+38False=大于等于5-3=2True小于“3wad”“3wbf”True=小于等于7/3=3T

11、rue=等于“abc”=”ABC”False不等于“abc”ABC”True第19頁(yè)任務(wù)分析VB語(yǔ)言的基本語(yǔ)法(續(xù)) 3) 表達(dá)式和運(yùn)算符邏輯運(yùn)算符和表達(dá)式邏輯運(yùn)算符用于兩個(gè)邏輯量的比較，結(jié)果只有True和False。 運(yùn)算符含義表達(dá)式結(jié)果Not非運(yùn)算Not(35)TrueAnd與運(yùn)算32 and 52 Or 52 Xor 52TrueEqv等價(jià)運(yùn)算32 Eqv 52TrueImp蘊(yùn)含運(yùn)算32 Imp 5字符串運(yùn)算符關(guān)系運(yùn)算符邏輯運(yùn)算符第21頁(yè)任務(wù)分析數(shù)據(jù)類(lèi)型的轉(zhuǎn)換（下一任務(wù)中講解）框架控件的使用功能是為控件提供可標(biāo)識(shí)的分組。使用方法是首先需要繪制框架控件，然后再添加框架里面的控件。這樣就可以

12、把框架和里面的控件同時(shí)移動(dòng)，通過(guò)框架控件的Caption屬性可以設(shè)置框架的標(biāo)題。第22頁(yè)任務(wù)分析本任務(wù)通過(guò)文本框輸入的數(shù)據(jù)為字符串類(lèi)型本程序中的算術(shù)表達(dá)式、關(guān)系表達(dá)式處理的數(shù)據(jù)要求是數(shù)值類(lèi)型，邏輯表達(dá)式處理的數(shù)據(jù)要求是布爾類(lèi)型，因此需要數(shù)據(jù)類(lèi)型轉(zhuǎn)換輸出由標(biāo)簽控件實(shí)現(xiàn)，為顯示多行內(nèi)容，在標(biāo)簽控件的Caption屬性里加入了字符Chr(13)，表示換行。第23頁(yè)任務(wù)實(shí)施創(chuàng)建新工程從工具箱中選擇控件拖入窗體第24頁(yè)任務(wù)實(shí)施設(shè)置窗體及控件的屬性對(duì)象屬性名稱屬性值窗體Form1Caption演示表達(dá)式運(yùn)算標(biāo)簽Label1Caption空Label2Caption空Label3Caption空Label4

13、Caption空Label5Caption空文本框TextBox1Text空TextBox2Text空框架Frame1Caption算術(shù)表達(dá)式Frame2Caption關(guān)系表達(dá)式Frame3Caption邏輯表達(dá)式Frame4Caption輸入數(shù)據(jù)按鈕Commend1Caption演 示Commend2Caption退 出第25頁(yè)任務(wù)實(shí)施在代碼窗口編寫(xiě)事件代碼并保存、運(yùn)行源代碼 Label2.Caption = Label2.Caption & Chr(13) & x * y 的值是： & x * y Label3.Caption = x = y 的值是： & CStr(x = y) Labe

14、l3.Caption = Label3.Caption & Chr(13) & x y 的值是： & CStr(x y) Label5.Caption = Label5.Caption & Chr(13) & a And b 的值是： & CStr(a And b) 部分代碼：第26頁(yè)任務(wù)設(shè)計(jì)完成效果 第27頁(yè)任務(wù)2猜數(shù)游戲應(yīng)用程序隨機(jī)生成一個(gè)100以內(nèi)的整數(shù)，由用戶猜一猜這個(gè)數(shù)有多大。窗體提示用戶按下“開(kāi)始”按鈕進(jìn)入游戲，窗體提示用戶輸入一個(gè)100以內(nèi)的正整數(shù)。程序給出猜想的結(jié)果和猜想的次數(shù)；如果沒(méi)有猜中，程序?qū)⒔o出猜想的數(shù)與隨機(jī)數(shù)相比較的大小關(guān)系，允許用戶繼續(xù)猜數(shù)。 圖3-4程序啟動(dòng)后窗體

15、的狀態(tài) 圖3-5單擊“開(kāi)始”按鈕后窗體的狀態(tài) 第28頁(yè)任務(wù)分析該任務(wù)我們要研究以下幾項(xiàng)內(nèi)容:VB語(yǔ)言的分支語(yǔ)句 隨機(jī)函數(shù)數(shù)據(jù)類(lèi)型的轉(zhuǎn)換第29頁(yè)任務(wù)分析數(shù)據(jù)類(lèi)型的轉(zhuǎn)換常用的字符串轉(zhuǎn)換函數(shù)通過(guò)文本框控件輸入的數(shù)據(jù)是字符串類(lèi)的，而應(yīng)用程序需要各種類(lèi)型的數(shù)據(jù)，VB提供了各種函數(shù)對(duì)數(shù)據(jù)進(jìn)行轉(zhuǎn)換，以滿足各種需求。第30頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句Select Case語(yǔ)句中的表達(dá)式寫(xiě)法有：Case 1表示測(cè)試表達(dá)式的取值為1Case a+5 表示測(cè)試表達(dá)式的取值為a+5，a的值必須是確定的Case 1,3,5 表示測(cè)試表達(dá)式在1，3，5中的取值Case 20 To 30 表示測(cè)試表達(dá)式的取值在20至30之

16、間Case Is5 表示測(cè)試表達(dá)式取值在小于5的范圍，Is代表表達(dá)式值第31頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句If Then ElseIf Then ElseIf Then Else End If多分支If-Then-Elseif語(yǔ)句為真時(shí)，執(zhí)行 第32頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句VB中If-Then-Elseif語(yǔ)句的條件表達(dá)式和語(yǔ)句塊的個(gè)數(shù)沒(méi)有限制。 第33頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句Select Case Case Case Case Case Else End Select為真時(shí)，執(zhí)行 第34頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句第35頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句執(zhí)行過(guò)程說(shuō)明：1）首先計(jì)算測(cè)試表達(dá)式的

17、值；2）然后用這個(gè)值與表達(dá)式1、表達(dá)式2、表達(dá)式n的值相比較；3）若與表達(dá)式i的值相匹配，則執(zhí)行語(yǔ)句塊i；執(zhí)行完語(yǔ)句塊i后，則結(jié)束Select Case語(yǔ)句，不再與后面的表達(dá)式進(jìn)行比較，開(kāi)始執(zhí)行End Select語(yǔ)句后面的語(yǔ)句，。 第36頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句執(zhí)行過(guò)程說(shuō)明：4）當(dāng)測(cè)試表達(dá)式的值與后面所有的表達(dá)式都不匹配時(shí)，若有Case Else語(yǔ)句，則執(zhí)行Case Else語(yǔ)句后面的語(yǔ)句塊n+1,然后則結(jié)束Select Case語(yǔ)句；若沒(méi)有Case Else語(yǔ)句，則直接結(jié)束Select Case語(yǔ)句。第37頁(yè)任務(wù)分析VB語(yǔ)言的分支語(yǔ)句例:Case 1表示測(cè)試表達(dá)式的取值為1Case a

18、+5 表示測(cè)試表達(dá)式的取值為a+5，a的值必須是確定的Case 1,3,5 表示測(cè)試表達(dá)式在1，3，5中的取值Case 20 To 30 表示測(cè)試表達(dá)式的取值在20至30之間Case Is r Then Val函數(shù)將數(shù)字字符串轉(zhuǎn)換成數(shù)字 Label1.Caption = Text1.Text & 大了，已猜了 & s & 次 s = s + 1 Text1.Text = ElseIf Val(Text1.Text) r Then Label1.Caption = Text1.Text & 小了，已猜了 & s & 次 s = s + 1 Text1.Text = Else Label1.Cap

19、tion = 恭喜您答對(duì)了！共猜了 & s & 次 Text1.Locked = True Cmd1.Enabled = True Cmd2.Enabled = False End If第45頁(yè)任務(wù)設(shè)計(jì)完成效果 第46頁(yè)任務(wù)3九九乘法表在窗體顯示九九乘法表。九九乘法表用下三角格式顯示，要求每個(gè)乘法表達(dá)式的乘積個(gè)位數(shù)對(duì)齊。 圖3-12 九九乘法表第47頁(yè)任務(wù)分析本任務(wù)由多個(gè)乘法表達(dá)式運(yùn)算得到，而不是使用print方法顯示字符串常數(shù)使用循環(huán)嵌套，分別控制九九乘法表的行和列，利用循環(huán)變量實(shí)現(xiàn)表達(dá)式的計(jì)算，即第i行第j列的表達(dá)式的值為“j*i”。要求下三角格式，而第i行的列的個(gè)數(shù)只有i列，因此控制列循

20、環(huán)的變量j的上限等于當(dāng)前行的循環(huán)變量i。 第48頁(yè)任務(wù)分析所謂循環(huán)，就是重復(fù)地執(zhí)行某些操作。在程序設(shè)計(jì)中，表現(xiàn)為從某處開(kāi)始規(guī)律地反復(fù)執(zhí)行某一程序塊，重復(fù)執(zhí)行的程序塊稱為“循環(huán)體”。VB的循環(huán)結(jié)構(gòu)及相應(yīng)語(yǔ)句表示如下: 計(jì)數(shù)型循環(huán) ForNext語(yǔ)句循環(huán)結(jié)構(gòu) WhileWend語(yǔ)句 條件型循環(huán) DoLoop語(yǔ)句第49頁(yè)任務(wù)分析計(jì)數(shù)型循環(huán)（ForNext）在知道要執(zhí)行多少次時(shí)最好用For Next偱環(huán)結(jié)構(gòu)。1.格式：For = To Step Next 第50頁(yè)任務(wù)分析其中：1)“循環(huán)變量”用作循環(huán)計(jì)數(shù)器的數(shù)值型變量，“初值”、“終值”均是數(shù)值表達(dá)式，用于表示循環(huán)變量的變動(dòng)范圍。2)“步長(zhǎng)”也是一個(gè)

21、數(shù)值表達(dá)式，其值可以是正數(shù)（遞增循環(huán)），也可以是負(fù)數(shù)（遞減循環(huán)），但不能為0。若步長(zhǎng)為1，可略去不寫(xiě)。3)循環(huán)次數(shù)=INT(終值-初值)/步長(zhǎng))+1。4)“Exit For”是中途退出循環(huán)，一般與If語(yǔ)句聯(lián)用。第51頁(yè)任務(wù)分析2.功能：重復(fù)執(zhí)行FOR和NEXT之間的循環(huán)體，重復(fù)執(zhí)行的次數(shù)由循環(huán)變量來(lái)控制。該語(yǔ)句主要用于已知循環(huán)次數(shù)的循環(huán)控制。3.執(zhí)行過(guò)程：設(shè)有以下循環(huán)結(jié)構(gòu)：For i=a To b Step cNext i第52頁(yè)任務(wù)分析圖3-15 步長(zhǎng)為正數(shù)的ForNext循環(huán)控制流程圖第53頁(yè)任務(wù)分析例3-1：輸出如圖所示的圖形。程序代碼為：Private Sub Form_Click()

22、For i = 1 To 6Print Tab(10 - i); String(i, );Next iEnd Sub第54頁(yè)任務(wù)分析條件型循環(huán)在很多情況下并不知道循環(huán)的次數(shù)，VB提供了條件控制的循環(huán)結(jié)構(gòu)，相應(yīng)語(yǔ)句為WhileWend和DOLOOP。1.當(dāng)循環(huán)語(yǔ)句(WhileWend)1)格式：While Wend第55頁(yè)任務(wù)分析2)功能：當(dāng)條件表達(dá)式的值為“true”時(shí)，重復(fù)執(zhí)行循環(huán)體；為“false”時(shí)，跳出循環(huán)，執(zhí)行Wend語(yǔ)句的下一條語(yǔ)句。3) 必須先給While條件中的變量賦值即初始化，在循環(huán)體中要有能改變循環(huán)條件值的語(yǔ)句，讓循環(huán)條件表達(dá)式最終取“false”值，結(jié)束循環(huán)，否則有可能造

23、成死循環(huán)。 第56頁(yè)任務(wù)分析循環(huán)控制流程圖 圖3-17 WhileWend第57頁(yè)任務(wù)分析例3-2 用WhileWend語(yǔ)句求1+2+3+100的值。 程序代碼為：Private Sub Form_Click()Dim s, i As Integers = 0: i = 1 循環(huán)初始化While i = 100 s = s + i 累加器 i = i + 1 改變條件中的變量i的值WendPrint Tab(20); s= & sEnd Sub 第58頁(yè)任務(wù)分析2.DO循環(huán)語(yǔ)句（DoLoop）DoLoop循環(huán)結(jié)構(gòu)較為靈活，有當(dāng)型（即While型）和直到型（即Until）兩種結(jié)構(gòu),當(dāng)型結(jié)構(gòu)是條件

24、為真時(shí)，執(zhí)行循環(huán)體，直到型結(jié)構(gòu)是條件為真時(shí)，結(jié)束循環(huán)體；根據(jù)測(cè)試條件在循環(huán)體的先后，又分為先判斷后執(zhí)行型和先執(zhí)行后判斷型，二者的區(qū)別在于前者循環(huán)體有可能一次也不執(zhí)行，而后者循環(huán)體至少執(zhí)行一次。第59頁(yè)任務(wù)分析格式：1）Do WhileLoopDo While Loop 圖3-18 Do WhileLoop循環(huán)控制流程圖第60頁(yè)任務(wù)分析Do While n max Then max = r 新的隨機(jī)數(shù)r大于max，則r替換max ElseIf r min Then min = r 新的隨機(jī)數(shù)r小于min，則r替換min End If sum = sum + r 求和 Print Spc(2);

25、r; n = n + 1 計(jì)算已產(chǎn)生的隨機(jī)數(shù)總數(shù)Loop例3-3 由系統(tǒng)產(chǎn)生m個(gè)1100之間隨機(jī)數(shù)，求出其中的最大值、最小值和平均值,m是210以內(nèi)的隨機(jī)數(shù)。第61頁(yè)任務(wù)分析2）DoLoop WhileDo Loop While 圖3-19 DoLoop While循環(huán)控制流程圖第62頁(yè)任務(wù)分析i = 2Do If n Mod i = 0 Then Exit Do i = i + 1Loop While i = Int(Sqr(n)例3-4 產(chǎn)生一個(gè)1100之間的隨機(jī)整數(shù)，編程判斷是否為素?cái)?shù)。第63頁(yè)任務(wù)分析3）Do UntilLoop Do Until Loop 圖3-20 Do Until

26、Loop循環(huán)控制流程圖第64頁(yè)任務(wù)分析r = m Mod nDo Until r = 0 m = n n = r r = m Mod nLoop例3-5用歐幾里德輾轉(zhuǎn)法求正整數(shù)m、n(m、n不為0)的最大公約數(shù)。第65頁(yè)任務(wù)分析4）DoLoop UntilDo Loop Until 圖3-21 DoLoop Until循環(huán)控制流程圖第66頁(yè)任務(wù)分析 i = 1 Do n = Int(Rnd * 100) + 1 Print n; Spc(2); If n Mod 3 = 0 And n Mod 2 0 Then Exit Do i = i + 1 Loop Until i 10例3-6 產(chǎn)生1

27、0個(gè)隨機(jī)數(shù)，用Do UntilLoop語(yǔ)句找出第一個(gè)能被3整除的奇數(shù)，如果沒(méi)有一個(gè)滿足要求，則輸出“沒(méi)有找到”。 第67頁(yè)任務(wù)分析多重循環(huán)多重循環(huán)就是指循環(huán)嵌套，即在一個(gè)循環(huán)體內(nèi)有包含另一個(gè)或多個(gè)完整的循環(huán)結(jié)構(gòu)。例如可以在For循環(huán)中包含While循環(huán)、Do循環(huán)或For循環(huán)。在多重循環(huán)中，外面的大循環(huán)稱為外層循環(huán)，里面的小循環(huán)稱為內(nèi)層循環(huán)。第68頁(yè)任務(wù)分析循環(huán)嵌套，應(yīng)注意以下問(wèn)題：1內(nèi)層循環(huán)一定要包含在外層循環(huán)內(nèi)2內(nèi)外層循環(huán)不能交叉使用3各層循環(huán)的控制變量名應(yīng)不相同，以免造成混亂4外層循環(huán)變量取值一次，內(nèi)層循環(huán)變量取值一遍。5內(nèi)層循環(huán)體內(nèi)的變量取初值，一般應(yīng)放在內(nèi)循環(huán)之前，外層循環(huán)之內(nèi)，如下例

28、的i。第69頁(yè)任務(wù)實(shí)施1新建一個(gè)工程2在屬性窗口中設(shè)置窗體的下列屬性：表3-8 在屬性窗口中設(shè)置窗體屬性屬性名稱屬性值Caption九九乘法表第70頁(yè)任務(wù)實(shí)施在代碼窗口編寫(xiě)事件代碼并保存、運(yùn)行源代碼 For j = 1 To i Form1.Print i & * & j & =; If i * j 10 Then Form1.Print ;為了使結(jié)果對(duì)齊，當(dāng)乘積為一位數(shù)時(shí)加一空格 End If Form1.Print i * j & ; Next j第71頁(yè)任務(wù)實(shí)施在原有代碼的基礎(chǔ)上改進(jìn)獲得帶有邊框的九九乘法表改進(jìn)源代碼 For j = 1 To i Form1.Print j & x &

29、i & =; If i * j 10 Then Form1.Print ; 為了使結(jié)果對(duì)齊，當(dāng)積為一位數(shù)時(shí)加一空格 End If Form1.Print i * j & ; Next j If i 9 Then If j = i + 1 Then 該if-else塊輸出表格的第二行到第九行橫線 Form1.Print ; Else Form1.Print ; End If第72頁(yè)任務(wù)設(shè)計(jì)完成效果 第73頁(yè)任務(wù)4排序本任務(wù)利用數(shù)組和循環(huán)控制結(jié)構(gòu)對(duì)一組數(shù)據(jù)進(jìn)行排序。啟動(dòng)程序后，窗體屏幕顯示出10個(gè)隨機(jī)數(shù)據(jù)，按下“排序”命令按鈕，窗體屏幕顯示出排序后的數(shù)據(jù)。 圖3-22窗體啟動(dòng)后屏幕顯示的信息 圖3

30、-23單擊窗體后屏幕顯示的信息第74頁(yè)任務(wù)分析一組無(wú)序的數(shù)據(jù)集合，查詢過(guò)程需要耗費(fèi)大量的人力物力，而在有序的數(shù)據(jù)集合中查詢特定的數(shù)據(jù)，效率就會(huì)大大提高。因此在需要對(duì)數(shù)據(jù)集合進(jìn)行查詢時(shí)，往往需要對(duì)數(shù)據(jù)集合進(jìn)行排序，以便快速準(zhǔn)確地查詢。第75頁(yè)任務(wù)分析“冒泡排序”涉及到的知識(shí)點(diǎn)有：1.用數(shù)組表示一組在位置上有順序的數(shù)，因?yàn)閿?shù)組元素的下標(biāo)就是表示元素位置上的順序；2.用循環(huán)控制結(jié)構(gòu)掃描前n-1個(gè)數(shù)；3.當(dāng)掃描到第i個(gè)數(shù)時(shí)，在從i開(kāi)始到n結(jié)束的剩余數(shù)中，用內(nèi)層循環(huán)進(jìn)行查找最小數(shù)的操作；4.數(shù)據(jù)交換 b=x: x=y: y=b第76頁(yè)任務(wù)分析一組具有相同名字、不同下標(biāo)的下標(biāo)變量來(lái)代表一組具有相同性質(zhì)的數(shù)

31、據(jù)，可以更為方便，更能清楚地表示它們之間的關(guān)系，同時(shí)更便于計(jì)算機(jī)處理和編程。 第77頁(yè)任務(wù)分析1.數(shù)組與數(shù)組元素我們把具有同一個(gè)名字、相同數(shù)據(jù)類(lèi)型、不同下標(biāo)的一組變量稱為數(shù)組。數(shù)組中的每一個(gè)元素稱為數(shù)組元素，它是由數(shù)組名和帶圓括號(hào)的下標(biāo)組成的。數(shù)組用于保存大量的、邏輯上有聯(lián)系的、相同數(shù)據(jù)類(lèi)型的數(shù)據(jù)。第78頁(yè)任務(wù)分析1)數(shù)組名的取名規(guī)則：和簡(jiǎn)單變量相同。2)數(shù)組下標(biāo)：在VB中必須把下標(biāo)放在一對(duì)緊跟在數(shù)組名后的圓括號(hào)中，下標(biāo)必須為等于或大于零的整數(shù)，否則舍去小數(shù)部分自動(dòng)取整。 下標(biāo)的作用是指出某個(gè)數(shù)組元素在數(shù)組中的位置，Stu(7)代表了Stu數(shù)組中的第七個(gè)數(shù)組元素。下標(biāo)的最小值稱為下標(biāo)下界最大值

32、稱為下標(biāo)上界由下標(biāo)的上下界可以確定數(shù)組中元素的個(gè)數(shù)數(shù)組元素的個(gè)數(shù)稱為數(shù)組的大小。3)數(shù)組的特點(diǎn)：數(shù)據(jù)中的元素在類(lèi)型上是一致的；數(shù)組元素在內(nèi)存空間上是連續(xù)存放的。第79頁(yè)任務(wù)分析 2.數(shù)組的數(shù)據(jù)類(lèi)型數(shù)組類(lèi)型：與一般變量類(lèi)型一樣，如單精度、雙精度、整數(shù)、字符串等。數(shù)組中的所有數(shù)組元素應(yīng)具有相同的數(shù)據(jù)類(lèi)型但如果數(shù)組類(lèi)型是variant時(shí)，則數(shù)組元素能夠?yàn)椴煌臄?shù)據(jù)類(lèi)型。3.數(shù)組的維數(shù)只有一個(gè)下標(biāo)的數(shù)組稱為一維數(shù)組，其數(shù)組元素稱為單下標(biāo)變量，其下標(biāo)又稱為索引。有兩個(gè)下標(biāo)的數(shù)組稱為二維數(shù)組，其數(shù)組元素稱為雙下標(biāo)變量。VB中至多可以使用16維的數(shù)組。第80頁(yè)任務(wù)分析4.數(shù)組的形式VB中有兩種類(lèi)型的數(shù)組：靜

33、態(tài)數(shù)組動(dòng)態(tài)數(shù)組數(shù)組必須先聲明才使用。聲明時(shí)要指定數(shù)組的類(lèi)型與數(shù)組名。如果數(shù)組在聲明時(shí)指定了下標(biāo)的上下界，稱為靜態(tài)數(shù)組，如DIM B(1 to 5)，這樣的數(shù)組一旦定義，它的大小是不能改變的。第81頁(yè)任務(wù)分析1) 靜態(tài)數(shù)組的定義數(shù)組也分為全局的（應(yīng)用程序級(jí)）、模塊級(jí)的或局部的（過(guò)程級(jí)），聲明方法如下。（l）全局?jǐn)?shù)組。在標(biāo)準(zhǔn)模塊的聲明部分使用Public語(yǔ)句聲明，可在所有模塊中的對(duì)其元素進(jìn)行存取的數(shù)組。Public 數(shù)組名（下界to上界） As類(lèi)型名注意，不能在窗體模塊與類(lèi)模塊中聲明全局?jǐn)?shù)組。第82頁(yè)任務(wù)分析1) 靜態(tài)數(shù)組的定義（2）模塊級(jí)數(shù)組。在模塊的聲明部分使用Private或Dim語(yǔ)句（二者

34、等價(jià)）聲明，模塊級(jí)數(shù)組只在聲明它的模塊中可用。Private|Dim數(shù)組名（下界to上界） As類(lèi)型名（3）過(guò)程級(jí)數(shù)組。在過(guò)程中使用Dim或Static語(yǔ)句聲明，只能在本過(guò)程中使用。Dim|Static數(shù)組名（n） As 類(lèi)型名使用Static聲明的是靜態(tài)數(shù)組，在過(guò)程的兩次執(zhí)行之間，它的所有元素的值均被保留。第83頁(yè)任務(wù)分析定義一維數(shù)組的格式為：PublicPrivateDimStatic () AS 定義二維數(shù)組的格式為：PublicPrivateDimStatic (,) AS 示例：Dim a(10) AS Integer 定義了a(0)a(10)共11個(gè)數(shù)組元素Dim b(2,3) A

35、S String 定義了b(0,0)b(2,3)共12個(gè)數(shù)組元素第84頁(yè)任務(wù)分析排序程序的設(shè)計(jì)有許多經(jīng)典的算法“冒泡排序”算法在程序設(shè)計(jì)的思路和程序結(jié)構(gòu)上是其中最具典型的算法。該算法的基本思路是： n個(gè)數(shù)，從第一個(gè)數(shù)開(kāi)始，對(duì)所有的數(shù)進(jìn)行掃描；掃描到某個(gè)數(shù)時(shí)，找出其后面的所有數(shù)中最小的數(shù)，然后將這個(gè)最小的數(shù)與其交換位置；由于最后一個(gè)數(shù)后面沒(méi)有數(shù)，因此掃描的次數(shù)是n-1；每次掃描都會(huì)把剩余數(shù)中的最小數(shù)交換到前面，就像水中的“氣泡”一樣，“輕”的上升，“重”的下降，故稱為“冒泡排序”。第85頁(yè)任務(wù)分析1625990231625909923169016232590第86頁(yè)任務(wù)分析將最少的數(shù)排在最上面，

36、就像冒泡一樣第87頁(yè)任務(wù)分析2) 靜態(tài)數(shù)組的使用要訪問(wèn)數(shù)組元素，其格式為：數(shù)組名（下標(biāo)） 例3-7將某班級(jí)30名學(xué)生的姓名用數(shù)組存儲(chǔ)，并輸出顯示，其中下界為1 For i = 1 To 10 names(i) = InputBox(請(qǐng)輸入第 & i & 個(gè)學(xué)生姓名：, 輸入框) Next i For i = 1 To 10 Print i & : & names(i) Next i第88頁(yè)任務(wù)分析3)動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組是指數(shù)組的維數(shù)和類(lèi)型是固定的，但聲明時(shí)不指定下標(biāo)上下界(每維的上下界可以變化)的數(shù)組稱為動(dòng)態(tài)數(shù)組。動(dòng)態(tài)數(shù)組是在程序運(yùn)行過(guò)程中定義的，其大小可以由用戶指定，也可以由用戶在程序中添加的

37、邏輯根據(jù)特定條件來(lái)決定。 第89頁(yè)任務(wù)分析（1）在設(shè)計(jì)階段，在程序中規(guī)定數(shù)組的名稱和類(lèi)型，但不能指定數(shù)組元素的個(gè)數(shù)。Public Names( ) as String（2）在程序運(yùn)行過(guò)程中添加代碼以確定數(shù)組應(yīng)包含的元素個(gè)數(shù)。ReDim Names(r)第90頁(yè)任務(wù)分析例3-8 使用數(shù)組，產(chǎn)生一個(gè)10到1000000之間的隨機(jī)數(shù)，統(tǒng)計(jì)其中包含數(shù)字5的個(gè)數(shù)。 Dim n As Long Dim a(), i, m As Integer Randomize n = Int(999991 * Rnd) + 10) 10-1000000之間的隨機(jī)數(shù) Print Tab(10); n; i = 0 Do

38、ReDim a(i) 重新定義a數(shù)組的大小 i = i + 1 Loop While n 0 經(jīng)過(guò)降位后的n是否為0第91頁(yè)任務(wù)實(shí)施1新建一個(gè)工程2.在窗體上添加兩個(gè)框架（Frame）控件，分別在每個(gè)框架控件中添加一個(gè)標(biāo)簽控件Label，最后添加兩個(gè)命令按鈕控件Command 表3-9 在屬性窗口中設(shè)置屬性對(duì)象屬性名稱屬性值標(biāo)簽Label1Caption空 Label2Caption空 框架Frame1Caption排序前Frame2Caption排序后按鈕Command1Caption排 序Command2Caption退 出第92頁(yè)任務(wù)實(shí)施在代碼窗口編寫(xiě)事件代碼并保存、運(yùn)行源代碼 Rand

39、omize 對(duì)隨機(jī)數(shù)生成器做初始化的動(dòng)作 For i = 1 To 10 a(i) = Int(100 * Rnd) + 1) s = s & & a(i) Next i Label1.Caption = s For i = 1 To 9 min = i For j = i + 1 To 10 If a(j) a(min) Then min = j Next j t = a(i): a(i) = a(min): a(min) = t Next i s = 第93頁(yè)任務(wù)設(shè)計(jì)完成效果 第94頁(yè)任務(wù)5簡(jiǎn)易計(jì)算器本任務(wù)設(shè)計(jì)了一個(gè)簡(jiǎn)易計(jì)算器，能夠進(jìn)行簡(jiǎn)單的有理數(shù)加減乘除運(yùn)算，在輸入和運(yùn)算過(guò)程中發(fā)生意外和

40、錯(cuò)誤時(shí)，具有清除功能。 圖3-24簡(jiǎn)易計(jì)算器第95頁(yè)任務(wù)分析將按鈕按照功能進(jìn)行分類(lèi)，有數(shù)字按鈕、運(yùn)算符按鈕（加減乘除鍵）、運(yùn)算按鈕（=）、符號(hào)按鈕和清除按鈕。在數(shù)字按鈕的Click事件中完成這些操作：Text1.Text = Text1.Text + Command(Index).Caption算術(shù)運(yùn)算都是雙目運(yùn)算，運(yùn)算符按鈕的功能是記錄第一個(gè)數(shù)和記錄要進(jìn)行的運(yùn)算。4個(gè)運(yùn)算符按鈕的具有相同的操作，故處理成控件數(shù)組。第96頁(yè)任務(wù)分析運(yùn)算按鈕（=）是計(jì)算器的核心控件。當(dāng)按下運(yùn)算按鈕后，根據(jù)已記錄的運(yùn)算符進(jìn)入不同的分支，將已記錄的第一個(gè)運(yùn)算量與文本框當(dāng)前的內(nèi)容進(jìn)行轉(zhuǎn)換和運(yùn)算，并將結(jié)果顯示在文本框中。

41、把運(yùn)算過(guò)程設(shè)計(jì)成函數(shù)，在運(yùn)算按鈕的Click事件中調(diào)用該函數(shù)。符號(hào)按鈕，其作用是輸入負(fù)數(shù)。操作過(guò)程分三種情形：從負(fù)號(hào)開(kāi)始輸入數(shù)字；在文本框當(dāng)前的正數(shù)前加負(fù)號(hào)（正變負(fù)）；去掉文本框當(dāng)前的負(fù)數(shù)的負(fù)號(hào)（負(fù)變正）。第97頁(yè)任務(wù)分析1.控件數(shù)組控件數(shù)組是由具有相同名稱和類(lèi)型并具有相同事件過(guò)程的一組控件構(gòu)成。每個(gè)控件數(shù)組至少有1個(gè)元素，最多可有32767個(gè)元素。第一個(gè)下標(biāo)也是0。（1）控件數(shù)組的應(yīng)用在程序設(shè)計(jì)中，使用控件數(shù)組添加控件所消耗的資源比直接向窗體添加多個(gè)相同類(lèi)型的控件消耗的資源少，而且如果希望若干個(gè)控件共享代碼時(shí)，控件數(shù)組也很有用。第98頁(yè)任務(wù)分析（2）控件數(shù)組的創(chuàng)建一般采用在設(shè)計(jì)時(shí)通過(guò)復(fù)制現(xiàn)有

42、的控件來(lái)創(chuàng)建控件數(shù)組。注意一是在復(fù)制前，應(yīng)把被復(fù)制的控件公共屬性設(shè)置好，如：名稱、大小等；二是在粘貼第一個(gè)控件是會(huì)彈出對(duì)話框要求確認(rèn)，按下“確認(rèn)”按鈕即可。另一種在設(shè)計(jì)時(shí)創(chuàng)建控件數(shù)組的辦法是在添加好一組同種控件后，將其“名稱”屬性改成相同的名稱即可。第99頁(yè)任務(wù)分析2.過(guò)程VB中有兩類(lèi)過(guò)程：事件過(guò)程通用過(guò)程。事件過(guò)程是對(duì)發(fā)生的事件進(jìn)行處理的代碼。在VB中可使用下列幾種過(guò)程：Function過(guò)程 （返回值）Sub過(guò)程 （不返回值）第100頁(yè)任務(wù)分析1）函數(shù)過(guò)程(Function過(guò)程）函數(shù)過(guò)程是標(biāo)準(zhǔn)模塊中位于Function語(yǔ)句與End Function語(yǔ)句之間的一系列語(yǔ)句。使用函數(shù)過(guò)程與使用內(nèi)置

43、函數(shù),比如Time、Int或Str等的方法完全相同。提示：在標(biāo)準(zhǔn)模塊中聲明的函數(shù)在缺省狀態(tài)下是公用函數(shù)，它們可在任何事件過(guò)程中使用。函數(shù)的基本語(yǔ)法為：Function 函數(shù)名（參數(shù)列表）As 數(shù)據(jù)類(lèi)型 函數(shù)體End Function函數(shù)體End Function第101頁(yè)任務(wù)分析其中：“函數(shù)名”是在模塊中要?jiǎng)?chuàng)建函數(shù)的函數(shù)名稱?！皡?shù)列表”為可選項(xiàng)，由函數(shù)中用到的一系列參數(shù)組成（參數(shù)之間用逗號(hào)隔開(kāi)）。 “As 數(shù)據(jù)類(lèi)型” 為可選項(xiàng)，用于指定函數(shù)返回值的數(shù)據(jù)類(lèi)型（缺省類(lèi)型為變體類(lèi)型）?！昂瘮?shù)體”是完成函數(shù)功能的一組語(yǔ)句第102頁(yè)任務(wù)分析Function add(a As Integer, b As

44、 Integer) As Integer Dim c As Integer c = a + b add = cEnd FunctionPrivate Sub Command1_Click() Dim sum As Integer sum = add(18, 23) Label1.Caption = CStr(sum)End Sub例3-9，使用函數(shù)過(guò)程Add計(jì)算兩個(gè)參數(shù)的和，然后將結(jié)果返回。 第103頁(yè)任務(wù)分析2）sub過(guò)程子過(guò)程類(lèi)似于用戶自定義函數(shù)，不同之處是子過(guò)程不返回與其名稱相關(guān)聯(lián)的值，而是采用參數(shù)的辦法返回多個(gè)值。子過(guò)程一般用來(lái)從用戶那里得到輸入數(shù)據(jù)、顯示或打印信息，或者操縱與某一條件相關(guān)的幾種屬性。子過(guò)程也用來(lái)在過(guò)程調(diào)用中處理和返回?cái)?shù)個(gè)變量。大多數(shù)函數(shù)只能返回唯一一個(gè)值，但子過(guò)程卻能夠返回多個(gè)值。子過(guò)程的基本語(yǔ)法為：Sub 過(guò)程名（參數(shù)列表）過(guò)程體End Sub第104頁(yè)任務(wù)分析其中：“過(guò)程名”是定義子過(guò)程的名稱。“參數(shù)列表”是一系列可選的、可在該子過(guò)程中使用的參數(shù)（如果不止一個(gè)參數(shù)，則由逗號(hào)分開(kāi)）?！斑^(guò)程體”是完成該過(guò)程工作的一組語(yǔ)句。第105頁(yè)任務(wù)分析3）參數(shù)傳遞參數(shù)是指?jìng)鬟f到過(guò)程中的數(shù)據(jù)。在調(diào)用過(guò)程時(shí)，需要將過(guò)程運(yùn)行時(shí)的環(huán)境