VB中提示溢出什么意思,我已经定义i,j,k为double,怎么还是提示溢出

VB中提示溢出什么意思,我已经定义i,j,k为double,怎么还是提示溢出
Private Sub Command1_Click()
n = a + b + c
p = d + e + f
q = h - g
u = (q - n) * (-1) * 1000
i = u * d / p
j = u * e / p
k = u * f / p
x = CInt(i)
y = CInt(j)
z = CInt(k)
l = d + x / 1000
m = e + y / 1000
o = f + z / 1000
r = h + l
s = r + m
Text7.Text = Str(x)
Text8.Text = Str(y)
Text9.Text = Str(z)
Text10.Text = Str(l)
Text11.Text = Str(m)
Text12.Text = Str(o)
Text14.Text = Str(r)
Text15.Text = Str(s)