怎样用数组作函数的参数

问题点数：22、回复次数：5Top

1 楼y1g1y1（袁飞☆VB诚可贵VB.Net价更高C#心中有二者皆可抛☆）回复于 2001-05-25 23:06:00 得分 10

 
  sub   form_load()  
          dim   a()  
          test   a  
          for   i=0   to   ubound(a)  
                  debug.print   a(i)  
          next  
  end   sub  
   
  function   test(a())  
          redim   a(9)  
          for   i=0   to   9  
                  a(i)=i*100  
          next  
  end   functionTop

2 楼unruledboy（六月飞霜！）回复于 2001-05-26 14:04:00 得分 0

上楼兄弟，你这样的隐式声明是不到科学的。不够还勉强可以吧。Top

3 楼Fallingstar（Fallingstar）回复于 2001-05-28 18:07:00 得分 0

to   y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆)  
        我的意思是已经有一个数组如class（1   to   100）   而且数组中已经有值了   我想在函数中把  
  这个数组作一个参数来调用Top

4 楼yangsaibing（）回复于 2001-05-28 18:34:00 得分 12

Private   Sub   Command1_Click()  
            Dim   a(3)   As   Integer  
            a(0)   =   1  
            a(1)   =   2  
            a(2)   =   3  
            a(3)   =   4  
            Total   =   sum(a)  
  End   Sub  
     
    Function   sum(arr()   As   Integer)  
          Total   =   0  
          For   i   =   LBound(arr)   To   UBound(arr)  
                  Total   =   Total   +   arr(i)  
          Next   i  
          sum   =   Total  
    End   FunctionTop

5 楼Fallingstar（Fallingstar）回复于 2001-06-02 15:46:00 得分 0

Top

相关问题

• 数组
• arr
• total
• sum
• sub
• function

• 帖主：Fallingstar
• y1g1y1
• yangsaibing

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