作者fumizuki (矇面加菲獅)
看板Visual_Basic
標題Re: [VB6 ] 關於程序的問題..
時間Sun Nov 12 14:19:07 2006
※ 引述《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