vb定义Function时如何定义输出参数，如何使用？

function   a(a1   as   long)   as   long  
   
  end   function  
  '如何把a1变成输出参数？  
  如何引用？ 问题点数：20、回复次数：7Top

1 楼yufenfeila（雨纷飞啦）回复于 2002-07-09 13:46:58 得分 0

a   =   a1  
  函数名在前，值在后边Top

2 楼yufenfeila（雨纷飞啦）回复于 2002-07-09 13:48:05 得分 0

忘了说引用方法  
  x   =   a(参数）Top

3 楼fleshboy（信息怪杰）回复于 2002-07-09 13:49:41 得分 0

让   a=a1   就行了!  
  如下:  
  Private(or   Public)   Function   a(a1   As   Long)   As   Long  
        '其它语句  
        a=a1  
        '其它语句  
  End   FunctionTop

4 楼fleshboy（信息怪杰）回复于 2002-07-09 13:51:05 得分 0

楼上的师兄说的对!Top

5 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-07-09 13:52:12 得分 0

a=a1Top

6 楼microyzy（人不在牛，分高就行；分不在高，人牛也行）回复于 2002-07-09 13:52:48 得分 0

我的意思是在函数体里直接a1=1  
  函数返回以后就能接收Top

7 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-07-09 13:57:44 得分 0

function   a(ByRef   a1   as   long)   as   long  
   
  end   function  
  Top

8 楼griefforyou（为你伤心）回复于 2002-07-09 13:59:21 得分 15

VB中参数传递默认就是ByRef(按地址传递),所以只要在程序中修改了参数的值  
  调用结束后仍能保留,如果是以ByVal方法传递的话,函数内部就不可以修改参数值  
   
  function   a(byref   a1   as   long)   as   long  
        a1=xxx  
  end   functionTop

9 楼ayusay（阿于）回复于 2002-07-09 14:09:57 得分 5

 
  function   a(ax   as   long)   as   long  
  ..........  
  end   function  
   
  '---------------------  
   
  dim   b   as   long  
  dim   c   as   long  
   
  b=a(c)  
   
  这样，b为函数的返回值，而C则保留(前提为ByRef）在函数内部处理后的结果Top

相关问题

• 函数
• 参数
• byref
• 传递
• as long
• function

• 帖主：microyzy
• griefforyou
• ayusay

• Visual Basic类图书
• Visual Basic类源码下载