如何實現VBA中函式的可變引數傳遞

2021-03-03 21:01:23 字數 507 閱讀 9578

1樓:匿名使用者

'使用 paramarray 關鍵字可以使函式接收數目可變的引數function calcsum(byval firstarg as integer, paramarray otherargs())

dim i as integer

calcsum = firstarg

for i = 0 to ubound(otherargs)calcsum = calcsum + otherargs(i)next

end function

'如果用如下**呼叫該函式:

sub example1()

dim returnvalue

'區域性變數賦予以下值:firstarg = 4,'otherargs(0) = 3,otherargs(1) = 2,otherargs(2) = 1,等等。

returnvalue = calcsum(4, 3, 2, 1)msgbox returnvalue

end sub

怎樣獲得可變引數函式中的引數的個數

這個看你是怎麼呼叫的 一般都是約定個數 或者根據第一個引數,決定個數。你這個寫法,看起來是兩個引數呼叫,然後都是char 如果是這樣要改成 include include void print char value,怎麼將可變引數的函式的引數傳遞給另一個可變引數的函式 無辦法直接做到這一點,不過可以...

如何在matlab中實現函式間的引數傳遞

檔案test.m的源 如下 function test 測試函式 disp 按值傳遞引數,呼叫函式後,應有p 1 p 1 parameter by value p disp p p 1 disp 按引用傳遞引數,呼叫函式後,應有p 2 p parameter by reference p disp ...

ecel中vba如何在模組中自定義函式定義好了之後

在模組裡定義 function aa a aa a end function 窗體裡呼叫 x aa 1 msgbox x vb函式分 baisub 無返回值 以及dufunction 有返回值 簡單範例 public function ss as stringss 我是 zhi end functi...