※ 引述《m9556 (紫色天平Boy)》之銘言：
: 最近因為逼不得已，由VB6 及 VBA 回到古董的Quick Basic，
: 少了很多函式可以用，尤其是Split這一個，
: 想要寫一個Split function來用，但是有些地方真的不太懂，
: 1. 當宣告Function時，function裡有陣列，我要怎要回傳到主程式，
: 主程式裡，應該要怎樣承接這個陣列?不要使用全域變數的陣列...
: 因為VB6裡，可以用一個空陣列去收Split回傳的字串陣列，
: 但是現在要寫一個 function 卻不知道該怎樣下手。
: 2. 動態陣列=> 有可能一開始不定義大小，而在程式中直接給值，
: 而自動新增嗎???
: 麻煩各位高手幫一下囉~~~~~
: 可以給我VB6的做法，我自己在想辦法~~~
: 謝謝啦~~~~

如果你用的是 Quick Basic 4.5, 這些功能應該可以做.

動態陣列與函數傳值在 Help > Index 都有談到.

動態陣列,宣告時用變數當索引值即是; 如果用常數就是靜態陣列.
而函數傳回陣列的想法, C/C++ 都還沒能這樣做, QB應該也不行吧.

不過,函數的參數列都是傳參考,只要把把陣列丟進 function 或 sub,
陣列內容就會被function或sub改掉.

DECLARE FUNCTION F (b())
n = 3
DIM a(n), c(n) 'two dynamic arrays

CLS
FOR i = 0 TO 3
a(i) = i
PRINT a(i)
NEXT i
PRINT

REDIM a(5)
FOR i = 0 TO 5
a(i) = 0
PRINT a(i),
NEXT i
PRINT

c = f(a()) 'function call

FOR i = 0 TO 4 'print array which has been an argument in
PRINT a(i), 'function call
NEXT i
PRINT

FOR i = 0 TO 3 'try to print returned array
PRINT c(i)
NEXT i
PRINT

FUNCTION f (b())
REDIM b(4)
FOR i = 0 TO 4
b(i) = 10 + i
NEXT i
f = b 'try to return an arry; but b may be not
END FUNCTION

你的問題:
第一想要傳陣列進函數再取出,要先定義函數 FUNCTION f(x()),
其中參數要是陣列樣式;呼叫時要給陣列參數 f(a())

不過在此,我寫成如下的程式碼,執行都有問題; 都不知道為什麼:

f(a()) 'message: expression expected

CALL f(a()) 'message: duplicate definition

請參考 Help > Index >> <Function Statement> >> <Detail>

第二,使用動態陣列,只要用變數宣告陣列,再使用REDIM即可:

DIM a(n): REDIM a(5)

請參考 Help > Index >> <DIM Statement> >> <Details> 的
"Static and Dynamic Arrays" 一段.




--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.160.212.86