第2章visualbasic60編程基礎(chǔ)第二部分-資料下載頁(yè)
2025-09-19 16:23本頁(yè)面
【導(dǎo)讀】控制結(jié)構(gòu)可控制程序執(zhí)行的流程。自頂向下地貫穿這些語(yǔ)句。順序一條一條地執(zhí)行。行語(yǔ)法和多行塊語(yǔ)法都可以使用。VisualBasic將這個(gè)值解釋為True或False。為零的數(shù)值為False，而任何非零數(shù)值都被看做True。Else塊定義幾個(gè)語(yǔ)句塊，執(zhí)行其中一個(gè)。當(dāng)它找到一個(gè)為True的條件時(shí)，Visual. 作為一個(gè)選擇，可以包含Else語(yǔ)句塊，如果前n-1個(gè)條。件都是False，則VisualBasicElse語(yǔ)句塊。件為假時(shí)的值”）。Else，從而可在多個(gè)語(yǔ)句塊中有選擇地執(zhí)行其中。但對(duì)多重選擇的情況，SelectCase語(yǔ)句使代碼更加易讀。Case的值進(jìn)行比較。如果相等，就執(zhí)行與該Case相關(guān)聯(lián)的
【正文】 Function過程 通常，調(diào)用自行編寫的函數(shù)過程的方法和調(diào)用Visual Basic （例如 Cos）的方法一樣，即在表達(dá)式中寫上它的名字。下面的語(yǔ)句都調(diào)用函數(shù) Txt。 Print 10 * Txt X = Txt If Txt = 10 Then Print Out of Range。 X = 。10 * Txt 像調(diào)用 Sub過程那樣，也能調(diào)用函數(shù)。下面的語(yǔ)句都調(diào)用同一個(gè)函數(shù)： Call Sin(x) Sin x 【 案例 218】 矩形面積計(jì)算 本案例使用 Function過程計(jì)算矩形面積。輸入矩形的長(zhǎng)和寬，輸出矩形的面積。 在窗體模塊中建立 Function過程，并編寫過程響應(yīng)代碼： Function recarea(rlen, rwid) As Single recarea = rlen * rwid End Function “確定”按鈕單擊事件中的代碼為 Private Sub Command1_Click() Dim a As Single, b As Single a = Val() b = Val() = Str(recarea(a, b)) End Sub “清空”按鈕單擊事件中的代碼為 Private Sub Command2_Click() = = = End Sub 參數(shù)使用 參數(shù)傳遞可以實(shí)現(xiàn)調(diào)用過程和被調(diào)過程之間的信息交換，在過程的調(diào)用中，調(diào)用其他過程的過程稱為主過程，被調(diào)用的過程稱為子過程。當(dāng)被調(diào)用的子過程要使用主過程中的數(shù)據(jù)時(shí)，就必須使用參數(shù)傳遞。參數(shù)分為形式參數(shù)和實(shí)際參數(shù)。 ?形式參數(shù)（簡(jiǎn)稱形參）：在子過程中的參數(shù)，出現(xiàn)在Sub過程和 Function過程中。形式參數(shù)可以是變量名和數(shù)組名。 ?實(shí)際參數(shù)（簡(jiǎn)稱實(shí)參）：在主過程中的參數(shù)，過程調(diào)用時(shí)實(shí)參數(shù)據(jù)會(huì)傳遞給形參。 在 Visual Basic ，實(shí)參與形參的結(jié)合有兩種方法，即傳址 (ByRef)和傳值 (ByVal)，其中傳址又稱為引用，是默認(rèn)的方法。 1．按值傳遞參數(shù) 用“ ByVal”關(guān)鍵字指出參數(shù)是按值來(lái)傳遞的。按值傳遞參數(shù)時(shí)，傳遞的只是變量的副本。當(dāng)調(diào)用一個(gè)過程時(shí)，系統(tǒng)將實(shí)參的值復(fù)制給形參，實(shí)參與形參斷開了聯(lián)系。被調(diào)過程中的操作是在形參自己的存儲(chǔ)單元中進(jìn)行的，當(dāng)過程調(diào)用結(jié)束時(shí)，形參所占用的存儲(chǔ)單元也同時(shí)被釋放。因此在過程體內(nèi)對(duì)形參的任何操作不會(huì)影響到實(shí)參。 2．按地址傳遞參數(shù) 按地址傳遞參數(shù)在 Visual Basic ，即不用“ ByVal”關(guān)鍵字。按傳址方式時(shí)，則是把變量在內(nèi)存中的地址傳遞給形參。這時(shí)，形參將與原變量使用內(nèi)存中的同一地址。也就是說，如果在過程中改變了這個(gè)形參的值，原變量也會(huì)隨之而改變。 3．選用傳值還是傳地址的使用規(guī)則 ? 形參是數(shù)組、自定義類型時(shí)只能用傳地址方式，若要將過程中的結(jié)果返回給主調(diào)程序，則形參必須是傳址方式。這時(shí)實(shí)參必須是同類型的變量名，不能是常量或表達(dá)式。 ? 若形參不是上述中的兩種情況，一般應(yīng)選用傳值方式。這樣可增加程序的可靠性和便于調(diào)試，減少各過程間的關(guān)聯(lián)。因?yàn)樵谶^程體內(nèi)對(duì)形參的改變不會(huì)影響實(shí)參。 【 案例 219】 參數(shù)傳遞 Private Sub Increase(x As Integer) x = x + 1 End Sub Private Sub Decrease(ByVal x As Integer) x = x 1 End Sub Private Sub Form_Click() Dim i As Integer, j As Integer i = 1000 Increase i Print i j = 1000 Decrease j Print j End Sub Visual Basic 為了讓程序代碼實(shí)現(xiàn)功能模塊化，便于程序的管理和開發(fā)，實(shí)際的程序代碼通常出現(xiàn)在模塊和過程中。在 Visual Basic ，一個(gè) Visual Basic 程序可以由若干個(gè)程序模塊組成，而每個(gè)程序模塊又以各自的文件存儲(chǔ)。 模塊（ Module） 模塊是一組聲明和過程的組合。Visual Basic 3種類型：窗體模塊、標(biāo)準(zhǔn)模塊（通用模塊）和類模塊。 工程 工程是一個(gè)應(yīng)用程序中所有相關(guān)模塊的集合。多個(gè)相關(guān)的工程在一起構(gòu)成工程組。工程管理器窗口用來(lái)顯示與 Visual Basic 組相關(guān)的文件列表及工程組中的引用。 當(dāng)創(chuàng)建一個(gè)應(yīng)用程序時(shí)，通常要?jiǎng)?chuàng)建一些新的窗體。利用工程管理器，可以調(diào)用以前所創(chuàng)建的窗體進(jìn)行修改或直接引用，這樣可以縮短應(yīng)用程序的開發(fā)時(shí)間。 綜合案例 在代碼窗口添加判斷素?cái)?shù)的代碼如下： Public Function Sushu(ByVal x As Integer) Dim k, i As Integer k = Int(Sqr(x)) i = 2 Sushu = 0 Do While i = k And Sushu = 0 If x Mod i = 0 Then Sushu = 1 Else i = i + 1 End If Loop End Function Dim a(0 To 20) As Integer Dim j, m, n As Integer Private Sub Command1_Click() = True FontSize = 24 39。設(shè)置文本顯示字體 Print 39。在窗體上打印換行 Print 產(chǎn)生的 20個(gè)隨機(jī)數(shù)為： For j = 1 To 20 a(j) = CInt(Rnd * 100) 39。產(chǎn)生 100以內(nèi)的隨機(jī)數(shù) Print a(j)。 39。在窗體上顯示每個(gè)隨機(jī)數(shù) If j Mod 5 = 0 Then 39。設(shè)置每 5個(gè)隨機(jī)數(shù)為一行 Print End If Next j End Sub Private Sub Command2_Click() n = 0 Print 其中素?cái)?shù)為： For j = 1 To 20 m = Sushu(a(j)) 39。引用函數(shù)判斷 a(j)這個(gè)隨機(jī)數(shù)是否為素?cái)?shù) If m = 0 Then 39。在窗體上打印素?cái)?shù) Print a(j)。 n = n + 1 End If If n Mod 5 = 0 And n 0 Then 39。設(shè)置每 5個(gè)素?cái)?shù)為一行 n = 0 Print End If Next j End Sub 實(shí)訓(xùn)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1