变量到动态数组的转换！急高分等待！

[qren25]

Dim dhy As Variant‘先声明了一个变量类型
dim cc() as double‘将其他地方的动态数组赋予它
dhy=cc
iGetOrder(dhy,5,5)’调用函数进行处理
‘下面的函数怎么可以将iAry由变量类型转换为double数组类型？
我是新手，先谢谢诸位赐教
Public Function iGetOrder(ByRef iAry As Variant, iOrder As Integer, iCount As Integer)
On Error GoTo ErrorHandler
Dim iBig As Double
Dim iOr As Integer
For iOr = 0 To iCount - 1
iBig = iAry(iOr)
Dim iCr As Integer
Dim iBigger As Double
For iCr = iOr + 1 To iCount - 1
iBigger = iAry(iCr)
If iBigger < iBig Then
iAry(iCr) = iBig
iAry(iOr) = iBigger
iBig = iBigger
End If
Next iCr
Next iOr
iGetOrderNumFromArray = iAry(iOrder)
Exit Function

[qren25]

斑竹救命啊！

[海牛]

ReDim Preserve iAry(iCount) As Double

[ryuginka]

up

[weaest]

可以直接把iAry（variant类型）数组赋给double类型数组

[James0001]

dim dblAry() as double
dblAry=iAry

iAry - variant变量类型
dblAry - double数组类型