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

看板Visual_Basic作者fumizuki (矇面加菲獅)時間19年前 (2006/11/12 14:01)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/3 (看更多)

※ 引述《A1pha ([αλφα])》之銘言： : 我在寫程序的時候， : 發現， : 電腦會自動「切割」程序... : 像是，我原本要寫個程序： : 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 第一，語法錯誤，sub 或 function 中不可包含 sub 或 function : 後來，我想說，好吧， : 你要切就切吧， : 我從外面呼叫應該可以吧。 : 然後面成這樣：第二，參數 a as single ，預設使用 by reference，資料型態必須相同 : Private Sub Command1_Click() Dim x As Single, y As Single : 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 : 結果則會出現對話框：必須是: = 應該叫做「必須有 =」 : 沒頭沒腦的...什麼叫做必須是 =...... : 回去翻書，看不出個所以然...裡面只說「不論有無引數，都可以不必加()」 : 寫個程序搞的我暈頭轉向的@@" : 希望板友能不吝解答！感謝～正確寫法： Option Explicit '要求變數必須宣告，加了這行如果沒有下一行的話， Command1_Click() 和 add() 裡面的 z 皆會出現警告訊息：變數未定義。 Private z As Single '沒有這行的話， Command1_Click() 和 add() 裡面的 z 是不同的變數。 Private Sub Command1_Click() Dim x As Single, y As Single 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 -- ▃▅▇▆▄ ▆▂▃ ` 逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄* ◢ ▂█▄▇▅▂▌. 我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.58.156.20