求解为什么代码会溢出

题目是有100个0-999的整数，已经加到数组a（）里面了。然后求里面的所有水仙数的平均值的去尾整数放到text1里面（水仙数就是数的各个位数的立方和等于这个数，例如：153=1^3+5^3+3^3,这样的数）
然后我的代码是
for i = 1 to 100
t=len(a(i))
for j = 1 to t
x=val(a(i),j,1)
h=h+x^3
next j
if h=a(i) then
s=s+h
k=k+1
end if
text1.text=fix（s/k）