[VB6 ] 不曉得蟲躲在那裡..囧

看板Visual_Basic作者 (被罰跪主機板的)時間11年前 (2013/04/05 20:20), 編輯推噓0(117)
留言9則, 4人參與, 最新討論串1/2 (看更多)
  由於在下不才,用詞遣字不當及未事先說明,造成觀看者 與不才的原意有所出入,故一併加上說明。 說明: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

04/05 20:29, , 1F
func(參數-1) -> return func(參數-1)
04/05 20:29, 1F

04/05 20:30, , 2F
要記得在遞迴呼叫時如果有回傳值要跟著傳回去
04/05 20:30, 2F

04/05 20:49, , 3F
原來如此..馬上試試...
04/05 20:49, 3F

04/05 21:28, , 4F
問題解決了 :) 由衷感謝LPH66大的指導
04/05 21:28, 4F

04/06 01:49, , 5F
VB6怎麼會有return好用 你標題選錯
04/06 01:49, 5F

04/06 16:00, , 6F
呃..M大好認真XD return只是個代表性用法..@@
04/06 16:00, 6F

04/07 10:46, , 7F
不過vb6這個詞並不是個代表性用法唷,熟vb6的人都會覺得奇怪.
04/07 10:46, 7F

04/07 14:55, , 8F
代表性咧 VB6的return和BASICA一樣 知道這是什麼意思嗎
04/07 14:55, 8F

04/07 14:55, , 9F
亂扯一氣
04/07 14:55, 9F
※ 編輯: neorange 來自: 218.173.166.48 (04/09 06:27)
文章代碼(AID): #1HNi6QAx (Visual_Basic)
文章代碼(AID): #1HNi6QAx (Visual_Basic)