作者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