作者neorange (被罰跪主機板的)
看板Visual_Basic
標題[VB6 ] 不曉得蟲躲在那裡..囧
時間Fri Apr 5 20:20:39 2013
由於在下不才，用詞遣字不當及未事先說明，造成觀看者
與不才的原意有所出入，故一併加上說明。
說明：1.文中並非使用正統語法。
2.文中每個"."，代表一行或多行程式碼。
3.文中以"return 值"代表以下程式碼:
func=true
exit function
or
func=false
exit function
4.第2、3點為廢話，第1點中已概括。
5.不才大可把整篇程式碼直接貼上來，還能名正言順的
多騙些P幣，若不是為了自我提升,何必費功夫簡化及
保留在下認為有問題的部份，況且還得花時間編輯。
程式片段
if func(參數) then
.
.
else
messagebox("失敗")
end if
function func(參數)
.
.
if 條件成立 then
.
.
[messagebox "OK"+參數值]
return TRUE
elseif 參數 > 0 then
[messagebox "囧"+參數值]
func(參數-1)
else [elseif 參數 <= 0] //也試過更改成[]中判斷
return False
end if
end function
單就function部份，用測試資料來RUN是可以正常運作的，但
放上主程式的if式中就出問題了。
EX:if func(10) 後略
messagebox跳出的訊息如下:
囧10 -> 囧9 -> OK8 -> 失敗
雖然後來把function改寫了一下就一切正常了，如下
function func(參數)
do while 參數 > 0
.
.
if 條件成立 then
.
.
[messagebox "OK"+參數值]
return TRUE
exit do
elseif 參數 > 0 then
[messagebox "囧"+參數值]
參數 = 參數 - 1
else
return False
end if
loop
end function
但是不把原來的問題找出來，總覺得有所不甘，所以來此
向版上的前輩請教，希望能解心中之惑。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.161.242
1F：推 LPH66:func(參數-1) -> return func(參數-1) 04/05 20:29
2F：→ LPH66:要記得在遞迴呼叫時如果有回傳值要跟著傳回去 04/05 20:30
3F：→ neorange:原來如此..馬上試試... 04/05 20:49
4F：→ neorange:問題解決了 :) 由衷感謝LPH66大的指導 04/05 21:28
5F：→ MOONRAKER:VB6怎麼會有return好用 你標題選錯 04/06 01:49
6F：→ neorange:呃..M大好認真XD return只是個代表性用法..@@ 04/06 16:00
7F：→ yauhh:不過vb6這個詞並不是個代表性用法唷,熟vb6的人都會覺得奇怪. 04/07 10:46
8F：噓 MOONRAKER:代表性咧 VB6的return和BASICA一樣 知道這是什麼意思嗎 04/07 14:55
9F：→ MOONRAKER:亂扯一氣 04/07 14:55
※ 編輯: neorange 來自: 218.173.166.48 (04/09 06:27)