函數(shù) VB實驗

實驗八? 函數(shù)
一、實驗?zāi)康?br>??? (1)掌握自定義函數(shù)的定義和調(diào)用方法。??
??? (2)掌握形參和實參的對應(yīng)關(guān)系，分清值傳遞和地址傳遞的區(qū)別。
??? (3)掌握VB窗體模塊、標(biāo)準(zhǔn)模塊的創(chuàng)建和使用。
二、相關(guān)知識
??? Visual Basic包含內(nèi)置的或內(nèi)部的函數(shù)，還可用Function語句編寫自己的Function過程。
??? 函數(shù)過程的語法格式是：
? Private|Public)[Static]Function函數(shù)名(形式參數(shù))? [As函數(shù)類型]
??? 語句
? End? Function
??? Function過程的特點是：
??? ●一般來說，語句或表達式的右邊包含函數(shù)過程名和參數(shù)(returnvalue = function)，這就調(diào)用了函數(shù)。
??? ●與變量完全一樣，函數(shù)過程有數(shù)據(jù)類型，其決定了返回值的類型。如果沒有As子句，缺省的數(shù)據(jù)類型為Variant。
??? ●給函數(shù)名自身賦一個值，就可返回這個值。
例如，下面是己知直角三角形兩直角邊的值，計算第三邊(斜邊)的函數(shù)：
Function Hypotenuse (A? As? Integer，? B? As? Integer)? As? Double
??? Hypotenuse = Sqr? (A^2+B^2)
End Function
三、實驗舉例
(實例1)不使用Str函數(shù)或CStr函數(shù)將數(shù)字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