提示 Dim aa(92) as integer 出错，请指教

[zhouzbg168168168]

function qqq()
{
Dim aa(92) as integer
Dim cc(92) as integer
n = 2
i = 1
aa(1) = Sheet1.value("u2")
j = 1
Do While aa(j) <> "" 
       xi = Trim(Str(n))
       a1 = "u" + xi  
       n = n + 1
       j = j + 1
      aa(j) = Sheet1.value(a1)
loop
p=1
for i =1 to 92
    if aa(i)<=6 
         then cc(i)=100
    elseif aa(i)<=19
         then cc(i)=97
    elseif aa(i)<=38
         then cc(i)=94
    elseif aa(i)<=63
         then cc(i)=91
    elseif aa(i)<=95
         then cc(i)=88
    elseif aa(i)<=132
         then cc(i)=85
    elseif aa(i)<=19
         then cc(i)=82
    elseif aa(i)<=19
         then cc(i)=79
    elseif aa(i)<=19
         then cc(i)=76
    elseif aa(i)<=19
         then cc(i)=73
    else
         cc(i)=40
next i

n=2
for i =1 to 92
       xi = Trim(Str(n))
       a1 = "v" + xi  
       n = n + 1
      Sheet1.value(a1)=cc(i)
next i
}

[zhouzbg168168168]

excel中宏