第八章子過程和函數(shù)-文庫吧
2025-07-17 13:23 本頁面
【正文】 ，即為返回值 – 如果象調(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é)果。 Sub Find(one As String, all() As String) Dim i As Integer, max As Integer max = Ubound(all) 39。 取數(shù)組上界 For i = LBound(all) To max If Trim(one) = Trim(all(i)) Then 39。 去兩端空格 MsgBox 找到啦 Exit Sub 39。 完成查找 End If Next MsgBox 沒有找到 End Sub 函數(shù)的返回值 ? 退出函數(shù)之前必須完成返回值的確定，對(duì)函數(shù)名自身賦一個(gè)值，該值就是函數(shù)的返回值。 ? 函數(shù)賦值語句可以出現(xiàn)函數(shù)的任意位置，該語句并不代表退出函數(shù)。 ? 如果沒有給定返回值，函數(shù)會(huì)根據(jù)返回值的數(shù)據(jù)類型自動(dòng)返回一個(gè)缺省值，如數(shù)值函數(shù)會(huì)返回 0，字符串函數(shù)返回一個(gè)零長(zhǎng)度字符串 (“”)。 函數(shù)示例 1 【 例 】 編寫函數(shù)可以實(shí)現(xiàn)溫度值從華氏轉(zhuǎn)換為攝氏和從攝氏轉(zhuǎn)換為華氏。 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。 按下 【 攝氏 華氏 】 按鈕 Private Sub Command1_Click() = 華氏溫度 = amp。 change(CInt(), True) End Sub ? 按下 【 華氏 攝氏 】 按鈕 Private Sub Command2_Click() = 攝氏溫度 = amp。 change(CInt(), False) End Sub 函數(shù)示例 2 【 例 】 寫一個(gè)函數(shù) ， 用來確定某年是否是閏年 。 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
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1