1樓：catia使用者
=getmin(min(a2:b2),min(c2:d2)) '這個寫在**裡面
下面的寫在模組裡面
public function getmin(n1 as integer, n2 as integer) as integer
if n1 > n2 then
getmin = n2
else
getmin = n1
end if
end function
2樓：
private function 函式a(inputarray, n)
中間陣列長度 = ubound(inputarray) - ndim 中間陣列()
redim 中間陣列(中間陣列長度)
for k = 0 to 中間陣列長度
中間陣列(k) = inputarray(k)next
函式a = 中間陣列
end function
private function 函式b(inputarray)dim 中間陣列()
for k = 0 to ubound(inputarray)if inputarray(k) > 0 thenn = n + 1
redim preserve 中間陣列(n)中間陣列(n) = inputarray(k)end if
next
函式b = 中間陣列
end function
sub 過程a()
dim arr()
dim 輸入陣列()
輸入陣列 = array(1, -2, 3, 4, 5)變數 = ubound(函式b(函式a(輸入陣列, 4)))msgbox (變數)
end sub
dim arr()是測試函式
vba自定義函式怎麼呼叫自定義物件做為引數
這個隨便定 來義個引數,引數型別可以自是變體型,bai或as object 型別,或du as a 不用管它是值傳遞還是地址傳遞,對 zhi 物件傳遞只dao 有一種方式,叫引用傳遞。然後把物件作為引數呼叫用函式b好了。不知道你是不是想知道這事。在類模組中用 public a as 具體看附件 vb...
vba如何將陣列帶入自定義的函式
窗體放一個label和一個command，如下 private sub command1 click dim i,a 19 max,min,sum,a1,a2,a3,a4,a5 as integer label1.caption randomize label1.caption 20名學生成績 vb...
python中怎麼呼叫自定義函式
網上的很多資料都是說 如果把my abs 的函式定義儲存為abstest.py檔案了，那麼，可以在該檔案的當前目錄下啟動python直譯器，用from abstest import my abs來匯入my abs 函式，注意abstest是檔名 不含.py副檔名 但是在嘗試這種方法後，發現仍然還是無...