UC知道VB 函数返回值（简单）
来源：百度知道 编辑：UC知道 时间：2024/07/14 04:36:39
Dim taskno As Integer
'调用以下函数
taskno = 1
ReadTaskNo (taskno)
Public Function ReadTaskNo(ByVal Num As Integer) As Integer
Dim Tasks As Long
tasks = 0
Num = Tasks
End Function
为什么最后变量 taskno 还是0呢
变量类型 留空或者改为ByRef就可以有返回了 一样不能返回结果啊 ，变量taskno还是1
有人帮我改正过来吗，急
'调用以下函数
taskno = 1
ReadTaskNo (taskno)
Public Function ReadTaskNo(ByVal Num As Integer) As Integer
Dim Tasks As Long
tasks = 0
Num = Tasks
End Function
为什么最后变量 taskno 还是0呢
变量类型 留空或者改为ByRef就可以有返回了 一样不能返回结果啊 ，变量taskno还是1
有人帮我改正过来吗，急
Public Function ReadTaskNo(ByVal Num As Integer) As Integer
改成
Public Function ReadTaskNo(ByRef Num As Integer) As Integer
或
Public Function ReadTaskNo(Num As Integer) As Integer
另外，调用时，用
call ReadTaskNo (taskno)
或者
ReadTaskNo taskno
你的写法 ReadTaskNo (taskno) 是强制传值
因为是ByVal（ByVal Num As Integer）
表示传值，不接收修改返回
留空或者改为ByRef就可以有返回了
ReadTaskNo (taskno)
Function定义的只是一个过程,而不是一个函数
如果你要的是一个结果,那可以是输出,或者是赋值