vb6溢出 使用公式计算Dim a,b,c,d,e,f,g,h,i,j,k,l,m,n As LongText1.Text = aText2.Text = bText3.Text = cText4.Text = dText5.Text = eText6.Text = fg = a + 1h = 1 / gi = b / hj = d + 1k = 1 / jl = e / km = i - ln = c / m 高亮 提示溢出f = n *
来源：学生作业帮助网 编辑：六六作业网 时间：2025/02/02 23:27:20
vb6溢出 使用公式计算Dim a,b,c,d,e,f,g,h,i,j,k,l,m,n As LongText1.Text = aText2.Text = bText3.Text = cText4.Text = dText5.Text = eText6.Text = fg = a + 1h = 1 / gi = b / hj = d + 1k = 1 / jl = e / km = i - ln = c / m 高亮 提示溢出f = n *
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
vb6溢出 使用公式计算Dim a,b,c,d,e,f,g,h,i,j,k,l,m,n As LongText1.Text = aText2.Text = bText3.Text = cText4.Text = dText5.Text = eText6.Text = fg = a + 1h = 1 / gi = b / hj = d + 1k = 1 / jl = e / km = i - ln = c / m 高亮 提示溢出f = n *
n的值超出范围 -2,147,483,648 到 2,147,483,647.导致溢出.可以讲n的值设为double类型
n = c / m '高亮 提示溢出
你的程序这里c是空值，m为0所以溢出，其实就是被0除。
1、Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n As Long这个定义只有n是long型的，其它全是variant型的，要一个一个的定义才对dim a as long, b as long,....,n as long
2、这一部分前后...
全部展开
n = c / m '高亮 提示溢出
你的程序这里c是空值，m为0所以溢出，其实就是被0除。
1、Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n As Long这个定义只有n是long型的，其它全是variant型的，要一个一个的定义才对dim a as long, b as long,....,n as long
2、这一部分前后是不是写反了，因为它没有任何意义。
Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
Text5.Text = e
Text6.Text = f
应该是这样a=text1.text ??
收起