[VB6 ] 關於程序的問題..

看板Visual_Basic作者 ([αλφα])時間19年前 (2006/11/12 03:39), 編輯推噓3(302)
留言5則, 3人參與, 最新討論串1/3 (看更多)
我在寫程序的時候, 發現, 電腦會自動「切割」程序... 像是,我原本要寫個程序: Private Sub Command1_Click() x = val(txt1) y = val(txt2) z = 5 Function add(a as single, b as single) as single add = a + b + z End Function print add(x,y) end sub 像這樣之類的, 但是電腦硬是把他變成: Private Sub Command1_Click() x = val(txt1) y = val(txt2) z = 5 ---------------------------------------------------------- Function add(a as single, b as single) as single add = a + b + z End Function print add(x,y) end sub 這樣~ 切成兩個程序...... 有辦法讓他不要這樣自動切嗎? 後來,我想說,好吧, 你要切就切吧, 我從外面呼叫應該可以吧。 然後面成這樣: Private Sub Command1_Click() x = val(txt1) y = val(txt2) z = 5 print add(x,y) end sub ------------------------------------------------ Function add(a as single, b as single) as single add = a + b + z End Function 結果會出現對話框:add必須是函數或變數。 add明明就是函數啊..... 後來改成: Private Sub Command1_Click() x = val(txt1) y = val(txt2) z = 5 add(x,y) end sub ------------------------------------------------ Function add(a as single, b as single) as single add = a + b + z Print add End Function 結果則會出現對話框:必須是: = 沒頭沒腦的...什麼叫做必須是 =...... 回去翻書,看不出個所以然...裡面只說「不論有無引數,都可以不必加()」 寫個程序搞的我暈頭轉向的@@" 希望板友能不吝解答! 感謝~ -- 從睡夢中蘇醒的少女       發現自己被一群身上長有翅膀       頭上有光環的少女們圍繞著    這裡…  不是天國        她們…  不是天使      身上長著灰色的翅膀,卻無法飛翔    這是個         被遺忘的國度... 她們是誰 她們自已也不知道…… 找尋著記憶,也找尋著自己… 《灰羽連盟》 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 124.8.85.6

11/12 04:17, , 1F
忘記說了~x y z 的宣告都是Global的。
11/12 04:17, 1F

11/12 04:22, , 2F
你把add放在Command1_Click的上面試試
11/12 04:22, 2F

11/12 04:31, , 3F
可惜還是不行O_Q 會出現同樣的訊息>"<
11/12 04:31, 3F

11/12 07:34, , 4F
試著把add(x,y)指定給一各變數...例如x=add(x,y)
11/12 07:34, 4F

11/12 07:34, , 5F
然後在print x看看...
11/12 07:34, 5F
文章代碼(AID): #15LYS7fF (Visual_Basic)
討論串 (同標題文章)
文章代碼(AID): #15LYS7fF (Visual_Basic)