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

[A1pha ([αλφα])]

※ 引述《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:Fuction和sub好像不一樣，fuction會傳回一個值sub是程序
→ A1pha:對喔～我笨  在測試一次～
→ A1pha:喔喔！  Case1 我耍笨XD  改成Function 就可以了XD
→ A1pha:剩下Case 3...囧
※ 編輯: A1pha           來自: 124.8.65.104         (11/12 17:11)
※ 編輯: A1pha           來自: 124.8.65.104         (11/12 17:12)
※ 編輯: A1pha           來自: 124.8.65.104         (11/12 17:13)
→ feying:要用 Call say(1, 2) 或 say 1, 2
→ A1pha:喔喔！  好怪喔＠＠   謝謝啦！！XDDD
→ gofin:say(1)跟say (1) ..case 1電腦判讀成say 1 case 2就需要=
→ A1pha:謝謝～XD   我回去試試看～XD