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

看板Visual_Basic作者neorange (被罰跪主機板的)時間11年前 (2013/04/05 20:20)推噓0(1推 1噓 7→)

留言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

推

LPH66

04/05 20:29, , 1^F

04/05 20:29, 1^F

→

LPH66

04/05 20:30, , 2^F

04/05 20:30, 2^F

→

neorange

04/05 20:49, , 3^F

04/05 20:49, 3^F