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