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

看板Visual_Basic作者A1pha ([αλφα])時間19年前 (2006/11/12 16:24)推噓0(0推 0噓 8→)

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

※ 引述《fumizuki (矇面加菲獅)》之銘言： : ※ 引述《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 感謝板大！！領悟到了很多東西XD 不過有兩個問題我一直解決不了@@" 我寫了幾個超簡單程序來測試，如下： ===================== Case 2. Option Explicit Private Sub Command1_Click() say (1) End Sub Sub say(a As Single) Print a End Sub 正常執行，會印出 "1"。 ===================== Case 3. Option Explicit Private Sub Command1_Click() say (1,2) End Sub Sub say(a As Single, b As Single) Print a Print b End Sub 會出現，編譯錯誤：必須是：= ====================== 還是搞不懂Case 1 和 3到底問題出在哪.....O_Q 還煩請大大們勞心解答@@" Case 1解決了XD 我耍笨把Sub、Function 寫錯了 -- 伊蝶爾：「接受命運的人，可以得到幸福違抗命運的人，可以得到榮耀」你的選擇呢.....？ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 124.8.65.104 ※ 編輯: A1pha 來自: 124.8.65.104 (11/12 16:48)

→

mojamoja

11/12 16:59, , 1^F

11/12 16:59, 1^F

→

A1pha

11/12 17:05, , 2^F

11/12 17:05, 2^F

→

A1pha

11/12 17:10, , 3^F

11/12 17:10, 3^F