网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,155贴子：1,166,129
  • 5回复贴，共1页

谁来解释一下这个 程序，还有单击命令按钮，窗体上为什么显示20 40

Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
Private Sub Command1_Click()
Static x As Integer
x = 10
y = 5
y = f(x)
Print x; y
End Sub


Private Sub Command1_Click()
Static x As Integer
x = 10
y = 5
y = f(x) '这一句调用了过程，在过程里 x = 20, f = 40, y = f = 40
Print x; y
End Sub


两个X是单独的，只是byref参数会把值传回给变量，改成byval就不会改变原变量值了。


byref参数在哪里？


Public Function f(ByVal x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
Private Sub Command1_Click()
Static x As Integer
x = 10
y = 5
y = f(x)
Print x; y
End Sub
试试！
过程声明：[可选：有多个的，第一个为缺省。]
[Public/Private] [Static] Sub/Function/(Property Get/Let/Set) 名称([ByRef/Byval] 必须参数[类型], Optional [ByRef/ByVal] 可选参数[类型][ = 缺省值], ParamArray 任意参数()[类型])
… …
[Let/Set] 名称 = 返回值 '仅Function和Property Get过程。
Exit Sub/Function/Property
… …
End Sub/Function/Property



大概懂了，谢谢


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 5回复贴，共1页
分享到: