UC知道vb有关无数组或用户未定义类型
来源：百度知道 编辑：UC知道 时间：2024/06/03 06:37:23
亟待解决!拜托帮忙！
Click过程中调用的PowerSpectrum函数中 X()总是有无数组或用户未定义类型的毛病，怎么也改不好，希望业内人士赐教。程序中有关X()的定义应该是有毛病。
Private Sub Form_Click()
Dim X(49) As Single
Dim i As Integer
For i = 0 To 49
msg$ = InputBox("Enter data")
X(i) = msg$
Next i
Call PowerSpectrum(0.1, X(), 50)
MsgBox "系列平均值:" & AVEX
MsgBox "序列协方差函数值:" & R1(k)
MsgBox "FPE值:" & FPE(k)
MsgBox "最大时移:" & m
MsgBox "原始谱:" & S2(m, 0)
MsgBox "平滑谱:" & S3(m, k)
MsgBox "自由度:" & EDF
MsgBox "ShiSuanX2 r0, EDF, X2(m)"
MsgBox "结果:" & XX
End Sub
Sub PowerSpectrum(r0, X(), n)
Dim X() As Single
Dim r0 As Single
Dim n As Integer
Dim R1() As Single, R2() As Single, B() '存放序列协方差函数，相关函数及自回归系数
Dim S1() As Single, S2() As Single, S3() As Single, RS() As Single
Dim FPE(), S4(), X2(), FPE1()
ReDim B(n, n), FPE(n
Click过程中调用的PowerSpectrum函数中 X()总是有无数组或用户未定义类型的毛病，怎么也改不好，希望业内人士赐教。程序中有关X()的定义应该是有毛病。
Private Sub Form_Click()
Dim X(49) As Single
Dim i As Integer
For i = 0 To 49
msg$ = InputBox("Enter data")
X(i) = msg$
Next i
Call PowerSpectrum(0.1, X(), 50)
MsgBox "系列平均值:" & AVEX
MsgBox "序列协方差函数值:" & R1(k)
MsgBox "FPE值:" & FPE(k)
MsgBox "最大时移:" & m
MsgBox "原始谱:" & S2(m, 0)
MsgBox "平滑谱:" & S3(m, k)
MsgBox "自由度:" & EDF
MsgBox "ShiSuanX2 r0, EDF, X2(m)"
MsgBox "结果:" & XX
End Sub
Sub PowerSpectrum(r0, X(), n)
Dim X() As Single
Dim r0 As Single
Dim n As Integer
Dim R1() As Single, R2() As Single, B() '存放序列协方差函数，相关函数及自回归系数
Dim S1() As Single, S2() As Single, S3() As Single, RS() As Single
Dim FPE(), S4(), X2(), FPE1()
ReDim B(n, n), FPE(n
Dim x(49)
Sub PowerSpectrum(r0, X(), n) '参数最好定义数据类型
Dim X() As Single '这里定义是多余的,就没有报错?
Dim r0 As Single
Dim n As Integer '这里也一样,
Dim R1() As Single, R2() As Single, B() '存放序列协方差函数，相关函数及自回归系数
这个过程的n可以不需要,好像就是数组x()的大小吧
不知道会干嘛报错