實驗八? 函數
一、實驗目的
??? (1)掌握自定義函數的定義和調用方法。??
??? (2)掌握形參和實參的對應關系，分清值傳遞和地址傳遞的區別。
??? (3)掌握VB窗體模塊、標準模塊的創建和使用。
二、相關知識
??? Visual Basic包含內置的或內部的函數，還可用Function語句編寫自己的Function過程。
??? 函數過程的語法格式是：
? Private|Public)[Static]Function函數名(形式參數)? [As函數類型]
??? 語句
? End? Function
??? Function過程的特點是：
??? ●一般來說，語句或表達式的右邊包含函數過程名和參數(returnvalue = function)，這就調用了函數。
??? ●與變量完全一樣，函數過程有數據類型，其決定了返回值的類型。如果沒有As子句，缺省的數據類型為Variant。
??? ●給函數名自身賦一個值，就可返回這個值。
例如，下面是己知直角三角形兩直角邊的值，計算第三邊(斜邊)的函數：
Function Hypotenuse (A? As? Integer，? B? As? Integer)? As? Double
??? Hypotenuse = Sqr? (A^2+B^2)
End Function
三、實驗舉例
(實例1)不使用Str函數或CStr函數將數字483變換成為字符型“483”。
??? Private Sub Command1_click()??
???????? Dim a as Integer
???????? A = Text1．Text
??????? Text2．Text = itostr(a)
End Sub
Function? itostr(a As integer) as string
???????? Dim? t? As? String
if? a =? 0? Then
itostr =” “
else??? t=chr(( a mod 10 )+48)????? ‘______①_______
????????????? itostr = itostr(a\10) & t?? ‘_______②_________
end if
end function