relevantcodes.com
的《passing multiple values from functions
》這篇文章介紹了如何從函式（function
）中返回多個值：
第一種方法是利用全域性變數，因此根本不用返回，只要直接給全域性變數賦值即可。 例：
dim intnumber_1: intnumber_1 = 40
dim intnumber_2: intnumber_2 = 80
public sub passvalues
intnumber_1 = intnumber_1/4
intnumber_2 = intnumber_2/4
end sub
passvalues
msgbox "intnumber_1 = " & intnumber_1 &_
vblf & "intnumber_2 = " & intnumber_2
第二種方法是用返回乙個dictionary
集合的方式來返回多個值。 例：
public function passvalues(byval num_1, byval num_2)
set odict = createobject( "scripting.dictionary" )
with odict
.add "num_1", num_1/4
.add "num_2", num_2/2
end with
set passvalues = odict
end function
set colnumbers = passvalues(40,80)
msgbox "intnumber_1 = " & colnumbers.item("num_1") &_
vblf & "intnumber_2 = " & colnumbers.item("num_2")
第三種方法是用返回乙個陣列的方式來返回多個值。 例：
public function passvalues(byval num_1, byval num_2)
dim arrarray: redim arrarray(2)
arrarray(0) = num_1/4
arrarray(1) = num_2/2
passvalues = arrarray
end function
arrnew = passvalues(40,80)
msgbox "intnumber_1 = " & arrnew(0) &_
vblf & "intnumber_2 = " & arrnew(1)
第四種方法是將需要返回的值連線到乙個字串來返回，這種方法要求接收資料的呼叫者需要用split
來切割出乙個個資料。 例：
public function passvalues(byval num_1, byval num_2)
num_1 = num_1/4
num_2 = num_2/2
passvalues = num_1 & "," & num_2
end function
snum = passvalues(40,80)
msgbox "intnumber_1 = " & split(snum, ",")(0) &_
vblf & "intnumber_2 = " & split(snum, ",")(1)
第五種方法是通過byref
關鍵字指定引數為引用，這種方法與用全域性變數的方法類似，也是直接修改值，不同返回。 例：
dim intnumber_1: intnumber_1 = 40
dim intnumber_2: intnumber_2 = 80
public sub passvalues(byref num_1, byref num_2)
num_1 = num_1/4
num_2 = num_2/2
end sub
passvalues intnumber_1, intnumber_2
msgbox "intnumber_1 = " & intnumber_1 &_
vblf & "intnumber_2 = " & intnumber_2
python 從函式中返回函式
其實並不需要在乙個函式裡去執行另乙個函式，我們也可以將其作為輸出返回出來 def hi name yasoob def greet return now you are in the greet function def welcome return now you are in the welco...
從函式中返回值
1.從函式中返回值 如果你的函式要返回乙個結果，那麼你就需要用return把那個結果交給呼叫它的地方 例一 素數求和 int isprime int i idprime有乙個返回的型別，是int型別，這個isprime會返回乙個int的結果 所以要安排乙個return語句，讓它去返回乙個int re...
從函式中返回TstringList物件 摘
from 如果乙個函式返回的物件不是我們經常使用的integer,string.而是tstringlist tbutton等object那怎麼辦呢？為什麼會有這個問題，因為函式的result是乙個object，按照object pascal要求，是需要其owner釋放 free 舉例 functio...