vb6溢出 使用公式计算Dim a,b,c,d,e,f,g,h,i,j,k,l,m,n As LongText1.Tex

vb6溢出 使用公式计算
Dim a,b,c,d,e,f,g,h,i,j,k,l,m,n As Long
Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
Text5.Text = e
Text6.Text = f
g = a + 1
h = 1 / g
i = b / h
j = d + 1
k = 1 / j
l = e / k
m = i - l
n = c / m 高亮 提示溢出
f = n * i
If Text1.Text = "" Or Text2.Text = Not "" Or Text3.Text = Not "" Or Text4.Text = Not " " Or Text5.Text = "" Then
MsgBox "无法运算"
End If