1樓：匿名使用者
option explicit
dim t as integer
private sub command1_click()
dim x as integer, y as integer
x = 1: y = 1
for t = 1 to 5
if t mod 2 = 0 then
y = fun(t, x) + x
else
x = fun(t, y) + y
end if
next t
debug.print t; x; y
end sub
private function fun(n as integer, m as integer) as integer
m = n - 1 + t 'a語句
n = m + n – t 'b語句
fun = m * n
end function
'函式fun採用預設傳址方式傳遞引數，在函式內對引數的修改會直接修改源資料
't=1 時，計算x=fun(t,y)+y，即x=fun(1,1)+1=2，所以此時t=1,x=2,y=1
't=2 時，計算y=fun(t,x)+x，即y=fun(2,2)+2=12，此時t=3,x=3,y=12
't=3 時，計算x=fun(t,y)+y，即x=fun(3,12)+12=56，此時t=7,x=7,y=56
'此時執行 next t 時自動增加1，即t=8，已經超出迴圈終值5，此時t=8,x=7,y=56
2樓：匿名使用者
這個問題太費解了，你把fun函式引數改成值傳遞方式，估計就是你想要的結果
private function fun(byval n as integer, byval m as integer) as integer
vb預設方式是地址傳遞，在函式內對引數的賦值也就是對外部傳遞給它的那個變數的賦值。所以就搞混亂了。
奶塊坐騎怎麼得怎麼捕捉坐騎攻略詳解
你得有鞍,然後餵它愛吃的食物,興奮值滿後,用鞍捕捉,列如羊 40小麥合成內一捆小麥,然後可以喂一容次,頭頂出現粉色愛心,當所有愛心滿後,介時用鞍就可以了,需要大量食物才行,起碼10幾個吧牛羊豬吃一捆小麥 初級鞍捕捉 狼吃一捆骨頭 中級鞍捕捉 熊貓吃一捆竹子 中級鞍 奶塊坐騎系統怎麼玩 騎捕捉及餵養技...
夢幻誅仙手遊翅膀怎麼得羽翼玩法詳解
羽翼任務 玩家等級達到45級後，系統會提示你去獲取羽翼任務。就算沒去接也沒關係。點選功能介面的羽翼也能自動尋找任務nnpc.玩家會被要求去收集羽翼，類似跑環任務殺殺怪找找人，只要一直點任務就行。羽翼獲取方法 1 任務獲得 完成任務後解鎖會送一個初始羽翼，比如天音的是清曉初露，一對漂亮的蝴蝶翅膀。2 ...
泰拉瑞亞妖刀村正怎麼得妖刀村正屬性詳解
獲得難度6分 由地牢寶箱開出。因為地牢寶箱必須的金鑰匙難獲得，所以也算四神劍中比較稀有的了。不過這個機率由rp決定.輸出能力6分 輸出跟light s bane和草稚劍都 相差不多。不多評價了 手感評分8分 村正攻速很快，尺寸也不錯，足夠第一時間打到敵人。主要是耍起來突出一個帥字！實用性評分 大概就...