Question

VBA子函数输入是数组该怎么写？提示错误（编译错误：类型不匹配，缺少数组或用户定义类型）

n1 = 149
Dim Arr(149) As Double
u = 3.7
x0 = 0.8467
Arr(0) = x0
For i = 0 To n1 - 2
Arr(i + 1) = u * Arr(i) * (1 - Arr(i))
Next i
BubbleSort (Arr) 提示错误（编译错误：类型不匹配，缺少数组或用户定义类型）
End Sub

Public Sub BubbleSort(Arr() As Double)
Dim iOuter As Long
Dim iInner As Long
Dim iLBound As Long
Dim iUBound As Long
Dim iTemp As Long

iLBound = LBound(Arr)
iUBound = UBound(Arr)

'冒泡排序
For iOuter = iLBound To iUBound - 1
For iInner = iLBound To iUBound - iOuter - 1 + iLBound

'比较相邻项
If Arr(iInner) > Arr(iInner + 1) Then
'交换值
iTemp = Arr(iInner)
Arr(iInner) = Arr(iInner + 1)
Arr(iInner + 1) = iTemp
End If

Next iInner
Next iOuter
End Sub

Answer 1

把LUDCMP的定义贴出来看看。
——————————
你还是没有把LUDCMP的定义贴出来啊。

我估计是你的LUDCMP过程参数写得有问题。
Sub LUDCMP(A(), N, INDX(), D)
如果你像上面那么写就肯定有问题
你要把类型指定清楚：
Sub LUDCMP(A() as Double, N as Integer, INDX() as Integer, D as Integer)
－－－－－－－－－－－－－－－－－－－－－－－－－－
哦，你那样定义的啊。

我发现貌似是你的一个输入错误：
Call LUDCMP(al#(), N, INDX%(), p)
这里的al#没有定义。。。综观你的整个函数，没找到al的定义，是你不小心把a#()打成al#()了吗？

－－
另外建议楼主以后所有变量在定义时都明确指明类型以减少出错的几率。
还有就是INDX%()这种写法已经不推荐了，应该用INDX() As Integer。其它的依此类推。。

Answer 2

在前面加个CALL

追问

谢谢您了！