动态数组按值传递的引用

 

对于数组的引用问题，我们在实际使用中不是很多，但是如果你做好的引用准备，你必须考虑好如何地进行初始化操作，如下

主程序

private sub  exam1()

     dim  S() as byte

     .....

     redim s(5)

     ReadA(s)              '调用

.....

end sub

子程序

 

private sub ReadA(byval  ms() as byte)

‘这个时候不需要，在重新进行 redim 工作，只要检测到数组的长度或维数即可。

dim n as integer

n=ms.length     '

for i as integer=0 to n-1

    console.writeline(ms(i))

             next

end   sub

以上是新手经常出现的小毛病。