第2章visualbasic60編程基礎(chǔ)第二部分(參考版)
2024-10-02 16:23本頁(yè)面
【正文】 設(shè)置每 5個(gè)素?cái)?shù)為一行 n = 0 Print End If Next j End Sub 實(shí)訓(xùn) 。在窗體上打印素?cái)?shù) Print a(j)。設(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。 39。在窗體上打印換行 Print 產(chǎn)生的 20個(gè)隨機(jī)數(shù)為： For j = 1 To 20 a(j) = CInt(Rnd * 100) 39。 綜合案例 在代碼窗口添加判斷素?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。 當(dāng)創(chuàng)建一個(gè)應(yīng)用程序時(shí)，通常要?jiǎng)?chuàng)建一些新的窗體。多個(gè)相關(guān)的工程在一起構(gòu)成工程組。Visual Basic 3種類型：窗體模塊、標(biāo)準(zhǔn)模塊（通用模塊）和類模塊。在 Visual Basic ，一個(gè) Visual Basic 程序可以由若干個(gè)程序模塊組成，而每個(gè)程序模塊又以各自的文件存儲(chǔ)。因?yàn)樵谶^程體內(nèi)對(duì)形參的改變不會(huì)影響實(shí)參。 ? 若形參不是上述中的兩種情況，一般應(yīng)選用傳值方式。 3．選用傳值還是傳地址的使用規(guī)則 ? 形參是數(shù)組、自定義類型時(shí)只能用傳地址方式，若要將過程中的結(jié)果返回給主調(diào)程序，則形參必須是傳址方式。這時(shí)，形參將與原變量使用內(nèi)存中的同一地址。 2．按地址傳遞參數(shù) 按地址傳遞參數(shù)在 Visual Basic ，即不用“ ByVal”關(guān)鍵字。被調(diào)過程中的操作是在形參自己的存儲(chǔ)單元中進(jìn)行的，當(dāng)過程調(diào)用結(jié)束時(shí)，形參所占用的存儲(chǔ)單元也同時(shí)被釋放。按值傳遞參數(shù)時(shí)，傳遞的只是變量的副本。 在 Visual Basic ，實(shí)參與形參的結(jié)合有兩種方法，即傳址 (ByRef)和傳值 (ByVal)，其中傳址又稱為引用，是默認(rèn)的方法。形式參數(shù)可以是變量名和數(shù)組名。參數(shù)分為形式參數(shù)和實(shí)際參數(shù)。 在窗體模塊中建立 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)用的過程稱為子過程。下面的語(yǔ)句都調(diào)用同一個(gè)函數(shù)： Call Sin(x) Sin x 【 案例 218】 矩形面積計(jì)算 本案例使用 Function過程計(jì)算矩形面積。 X = 。下面的語(yǔ)句都調(diào)用函數(shù) Txt。 2．建立 Function過程 前一節(jié)提到建立 Sub過程的兩種方法也可以建立 Function過程，只是當(dāng)用第一種方法建立時(shí)，在 【 添加過程 】 對(duì)話框的【 類型 】 欄內(nèi)應(yīng)選擇 【 函數(shù) 】 單選按鈕；另外，兩種方法中的 Sub應(yīng)換成 Function。 ? 參數(shù)列表形式同 Sub過程。與子過程不同， Function過程可返回一個(gè)值到調(diào)用的過程。此外，還可用 Function語(yǔ)句編寫自己的 Function函數(shù)過程。 For j = 1 To 2 * i 1 Print Str。Call recarea(a, b) = area End Sub “清除”按鈕單擊事件中的代碼為 Private Sub Command2_Click() = = = End Sub 【 案例 217】 打印等腰三角形 在同一窗體建立兩個(gè)過程， Triangle是通用過程， Form_Click是窗體事件過程，執(zhí)行程序時(shí)，單擊窗體將在窗體顯示兩個(gè)等腰三角形，如圖所示。 控件事件的語(yǔ)法： Private Sub 控件名 _事件名 (參數(shù)列表 ) 語(yǔ)句塊 End Sub 窗體事件的語(yǔ)法： Private Sub Form_事件名 (參數(shù)列表 ) 語(yǔ)句塊 End Sub Sub過程 1．定義子過程 子過程的語(yǔ)法是： [Private | Public][Static] Sub 過程名 （ [形參表 ]） 語(yǔ)句序列 [Exit Sub] End Sub 2．建立 Sub子過程 【 案例 216】 矩形面積計(jì)算 使用 Sub過程計(jì)算矩形的面積，輸入矩形的長(zhǎng)和寬，輸出矩形的面積。事件過程是附加在窗體和控件上的。事件過程就是在響應(yīng)事件時(shí)執(zhí)行的程序段。通用過程可以存儲(chǔ)在窗體或標(biāo)準(zhǔn)模塊中。 1．通用過程 在 Visual Basic ，通用過程分為兩類，即子程序過程（ Sub過程）和函數(shù)過程（ Function過程）。 （ 2）一個(gè)程序中的過程，往往不必修改或只需稍做改動(dòng)，便可成為另一個(gè)程序的構(gòu)件。 用過程編程有兩大好處。 Next End Sub 過程 將公用的、能完成某一特定功能的程序設(shè)計(jì)成可供其他程序調(diào)用的、獨(dú)立的程序段，這種程序段就稱為子程序（也稱為過程）。 Next i Print Print 使用 For Each…Next 輸出： For Each x In abc 39。數(shù)組賦初值為 0~100內(nèi)的整數(shù) abc(i) = Int(Rnd * 100) Next i Print 使用普通循環(huán)輸出： For i
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1