求vb高手看下这个程序哪里出错啊 毕设用的

ReDim nl(n, 24) As Single
   For k = 1 To n Step 1
    For i = 1 To 24 Step 1
    If SPLt(k, i) >= SPLa1(i) Then
    nl(k, i) = 10 ^ (Mc1(i) * (SPLt(k, i) - SPLc1(i)))
    ElseIf SPLt(k, i) >= SPLb1(i) And SPLt(k, i) < SPLa1(i) Then
    nl(k, i) = 10 ^ (Mb1(i) * (SPLt(k, i) - SPLb1(i)))
    ElseIf SPLt(k, i) >= SPLe1(i) And SPLt(k, i) < SPLb1(i) Then
    nl(k, i) = 0.28 * 10 ^ (Mee1(i) * (SPLt(k, i) - SPLe1(i)))
    ElseIf SPLt(k, i) >= SPLd1(i) And SPLt(k, i) < SPLe1(i) Then
    nl(k, i) = 0.1 * 10 ^ (Md1(i) * (SPLt(k, i) - SPLd1(i)))
    End If --------------------编程问答-------------------- 你单步调试一下，不就知道什么地方有问题了？
--------------------编程问答-------------------- 试了 貌似定义的问题 能给看看不

补充：VB ,  网络编程