第八章子過程和函數(shù)-wenkub
2022-08-29 13:23:08 本頁面
【正文】 ）、標(biāo)準(zhǔn)模塊（ .bas）。 VB中提供的一些函數(shù)（比如上一章的 UBound）以及事件過程就是這層含義。 窗體模塊文件 *.frm 工程中的每個(gè)窗體都有一個(gè)與之相應(yīng)的窗體模塊文件 窗體文件中包含： ? 窗體本身及窗體上放置的所有控件的屬性設(shè)置 ? 窗體級(jí)變量、常量、類型聲明和外部過程 的聲明 ? 所有相關(guān)的事件過程及窗體級(jí)通用過程 說明： ? 同一窗體模塊內(nèi)的通用過程與事件過程可以相互調(diào)用 ? 若窗體模塊內(nèi)的通用過程被聲明為公有的，可以被其它窗體模塊或標(biāo)準(zhǔn)模塊中的過程調(diào)用。 ? 標(biāo)準(zhǔn)模塊中通用過程缺省為公有（ Public），即工程中的任一模塊均可共享、調(diào)用。 如 : Call cmdAdd_Click 函數(shù) 三、定義和調(diào)用函數(shù) ? 定義 [Private | Public] [Static] Function 過程名 (參數(shù)列表 ) ……. End Function ? 過程的區(qū)別： – 函數(shù)有數(shù)據(jù)類型，即返回值的類型，缺省為Variant – 給函數(shù)名本身賦值，即為返回值 – 如果象調(diào)用過程一樣調(diào)用函數(shù)，則放棄返回值 退出子過程和函數(shù) ? End Sub：退出子過程 ? End Function：退出函數(shù) ? 可以在子過程體內(nèi)或函數(shù)體內(nèi)任何位置使用上述語句，用來結(jié)束子過程或函數(shù) 子過程和函數(shù)的參數(shù) ? VB默認(rèn)的參數(shù)是按地址傳遞 (ByRef )，意味著如果過程內(nèi)的參數(shù)值改變了，則調(diào)用過程時(shí)使用的變量其值也隨之改變 Sub Main() Dim x As Integer x = 1 Call Test(x) ?x的值改變了 End Sub Private Sub Test (num As Integer) num = num+1 End Sub ? 按值傳遞，則用 ByVal關(guān)鍵字，如： 數(shù)組作為參數(shù)示例 【 例 】 編寫子程序，實(shí)現(xiàn)在所有學(xué)生名單數(shù)組中查找給定的名字，輸出查找結(jié)果。 完成查找 End If Next MsgBox 沒有找到 End Sub 函數(shù)的返回值 ? 退出函數(shù)之前必須完成返回值的確定，對(duì)函數(shù)名自身賦一個(gè)值，該值就是函數(shù)的返回值。 Function change(source As Integer, isCtoF As Boolean) As Integer If isCtoF Then change = (source * 9 / 5) + 32 Else change = (source 32) * 5 / 9 End If End Function 39。 Function isLeapYear(y As Integer) As Boolean If y Mod 40 or (y Mod 100=0 and y Mod 4000) Then isLeapYear = False Else isLeapYear = True End If End Function ?按下按鈕 Private Sub Command1_Click() Dim year As Integer year = CInt(text1) If isLeapYear(year) Then lblResult = year amp。 只有與該過程處于同一模塊文件中的其它過程才可以訪問
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1