ASP定义数组方法的技巧(4)

日期：2020-05-13 栏目：程序人生浏览：次

一个更有效的简单的方法就是直接将一个数组赋给另外一个数组：

Sub ByteCopy(oldCopy() As Byte, newCopy() As Byte)

‘参数oldCopy()是源数组，newCopy()是目标数组

newCopy = oldCopy '利用数组直接进行赋值

End Sub

关于变量赋值有一些规则需要铭记。例如，虽然可以将一个声明为整型的变量赋给一个声明为长整型的变量而不会产生任何问题，但是将一个长整型变量赋给一个整型变量就很容易导致溢出错误。除了遵守有关数据类型变量之间赋值时的规则外，数组赋值还要遵从另外一些规则，包括数组维数，每一维的大小，以及数组是固定的还是动态的。

①维数、数据类型不同的数组赋值考虑的几个因素

1、赋值符左边的数组类型：固定数组 (Dim x(1 to 10) As Integer) 或者动态数组 (Dim x() As Integer)。

2、赋值符左边数组的维数是否和赋值符右边数组的维数匹配。

3、赋值符两边数组的每一维的数组元素个数是否匹配。即使数组的声明不同，维数也可能匹配。比如一个数组的每一维元素从 0 开始编号而另一个则从 1 开始，维数也可能匹配。

4、赋值符两边所有元素的数据类型必须是相容的。这些规则和变量赋值的规则是一致的。

数组赋值时的错误可能发生在编译时，也可能发生在运行时（例如，如果数据类型不能强制转换或赋值试图重新声明 (ReDim) 一个静态数组）。设计程序时要添加错误处理以确保数组在赋值之前是匹配的。

②编写返回数组的函数

从一个函数返回一组值是可能实现的。例如，从一个函数返回一组字节而不必将其先转换为一个字符串然后再转换回来。

下面是一个使用返回字节数组的函数的简单示例：

Private Sub Form_Load()

Dim b As Byte

Dim i As Integer

Dim ReturnArray() As Byte

b = Cbyte(54)

ReturnArray() = ArrayFunction(b) '调用函数

For i = Lbound(ReturnArray) To Ubound(ReturnArray)

Msgbox ReturnArray(i)　　'通过弹出消息框循环显示数组值 

Next

End Sub



Public Function ArrayFunction(b As Byte) As Byte()

Dim x(2) As Byte

x(0) = b

x(1) = b + CByte(200)

x(2) = b + b

ArrayFunction = x '返回结果为数组x

End Function

在运行以上示例后， ReturnArray() 是一个三元素数组，其中包含了分配给 ArrayFunction 中数组的值。ArrayFunction 语句将一个数组作为参数传递；且数组的数据类型必须和函数的数据类型相同（在本例中是字节）。因为这是一个函数调用，传递数组时不必带括号。

注意：

1、尽管可以通过赋值给另一个数组(ArrayFunction = x())来返回一个数组，但出于性能方面的考虑，并不推荐使用这种方法。

ASP定义数组方法的技巧(4)

相关推荐