[VB6 ] 不曉得蟲躲在那裡..囧
由於在下不才,用詞遣字不當及未事先說明,造成觀看者
與不才的原意有所出入,故一併加上說明。
說明: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
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
04/05 21:28, 4F
→
04/06 01:49, , 5F
04/06 01:49, 5F
→
04/06 16:00, , 6F
04/06 16:00, 6F
→
04/07 10:46, , 7F
04/07 10:46, 7F
噓
04/07 14:55, , 8F
04/07 14:55, 8F
→
04/07 14:55, , 9F
04/07 14:55, 9F
※ 編輯: neorange 來自: 218.173.166.48 (04/09 06:27)
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇):
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章