vbscript 参数问题

[qubo_528]

一个函数接受字符数组的指针，和字符数组的长度，如何定义，传递
例如：
c++的例子
void GetString(char* a, int len)
{
;
}
可以这样定义，传递
char a[16];
GetString(a, 16);
如何用vbscript的方式定义和传递呢

[neo_yoho]

pp="000"
ii = 10
function GetString(ByRef p ,ByVal i)
p ="111"
i=9
End function

GetString pp,ii

MsgBox pp
MsgBox ii

ByRef 按引用
ByVal 按值

[qubo_528]

函数是封装好的（不是自己设计），就是传参数的问题
我是这样写的
dim a
GetString(a,len(a))
得不到结果，为什么呢？？？？？？？
第一个参数接受数组地址，第二个是数组的长度

[neo_yoho]

VB数组长度用UBound函数来取
UBound(a)

[qubo_528]

试了，总是得不到值
HRESULT
GenRandom(
[in] long lFlags,
[in,out] unsigned char* pBuffer,
[in] long lSizeOfBuffer
);
函数是封装的
函数原型，第一参数为0，第三个参数为第二个参数的长度
怎么定义变量，传值呢？？

[neo_yoho]

这 想不到方法测试啊。。。 呵呵
也不知道要干什么 自己写一个得了

[qubo_528]

呵呵，谢了！！
自己不可以写的