module1.bas

vc++的部分比较经典的源码

Attribute VB_Name = "Module1"


Function test_ByRef(ByRef BR)
BR = BR + 10
test_ByRef = (BR)
End Function


Function test_ByVal(ByVal BV As Integer)

BV = BV + 10
test_ByVal = (BV)

End Function