如何用数组给函数做参数?(在线等)

Question

谢了

Answer 1

这有什么难的：
Dim a(100)as byte
Function abc(byval a as string)as integer
...
...
end Function
ret=abc(a)
题外话：参数全部都是以Long型传递的，字符串将传入串的地址！

Answer 2

数组赋值
正如可以将一个变量的值赋给另一个变量，例如 strA = strB ，也可以将一个数组的内容赋给另一个数组。试想，例如，要将一组字节从一个位置复制到另一个位置。可以通过每次复制一个字节来实现，象这样：Sub ByteCopy(oldCopy() As Byte, newCopy() As Byte)
   Dim i As Integer
   ReDim newCopy (Lbound(oldCopy) To UBound(oldCopy)   For i – Lbound(oldCopy) To Ubound(oldCopy)
      newCopy(i) = oldCopy(i) 
   Next
End Sub一个更有效的方法就是将一个数组赋给另外一个数组：Sub ByteCopy(oldCopy() As Byte, newCopy() As Byte)
   newCopy = oldCopy
End Sub这就是一个典型的例子！！

Answer 3

一个函数定义为
public sub a(b())
...
end sub
使用时
a(c(4))出错！！！！为什么？如何解决？
谢谢

Answer 4

如果我事先定义array(3)
调用时使用a(array())那vb就是以array(3)做参数吗？

Answer 5

'Define 
private function SubA (paszTemp() as string) as string
end function
'Call
dim aszTemp() as string
dim szTemp as string
sztemp = suba(asztemp)