[已解决]把下面这sub改成function

laoau138

把下面这sub改成function

Sub Val(ByVal x As Integer)..........把这个sub改成function
x = x + 1
End Sub

Sub 调用()
Dim x As Integer
x = 1
Debug.Print x

'调用传值子过程
Val x
Debug.Print x
Val x
Debug.Print x

End Sub

最佳答案

月排行榜 / 总排行榜

raymanrrr

2017-4-3 21:42

Function Val(ByVal x As Integer) As Integer
    Val = x + 1
End Function

Sub 调用()
    Dim x As Integer
    x = 1
    Debug.Print x
   
    '调用传值子过程
    x = Val(x)
    Debug.Print x
    x = Val(x)
    Debug.Print x
End Sub

跳转到最佳答案楼层

raymanrrr

Function Val(ByVal x As Integer) As Integer
    Val = x + 1
End Function

Sub 调用()
    Dim x As Integer
    x = 1
    Debug.Print x
   
    '调用传值子过程
    x = Val(x)
    Debug.Print x
    x = Val(x)
    Debug.Print x
End Sub