Question

vb实时错误6 溢出 怎么解决

Private Sub Command4_Click()
Dim n1 As Integer, n2 As Integer
Dim W As Single, Ut As Double, Utabs As Double 'Ut为跳跃性检验时的检验项
Dim j As Integer, k As Integer, temp As Single
Dim zhi(52) As Integer
For i = 0 To 51 '去除趋势项的数列
y(i) = a * i + b
x(i) = x(i) - y(i)
Next i
'对所有数排序，并求得相应的秩
For i = 0 To 51
zhi(i) = 1
For j = 0 To 51
If x(j) < x(i) Then
zhi(i) = zhi(i) + 1
End If
Next j
'Print zhi(i)
Next i
For i = 10 To 40
n1 = i + 1: n2 = 52 - n1
'求W
W = 0
If n1 < n2 Then
For k = 0 To n1 - 1
W = W + zhi(k)
Next k
Else
For k = i To 51
W = W + zhi(k)
Next k
End If
'检验跳跃性
Ut = (W - n1 * 53 / 2) / (Sqr(n1 * n2 * 53 / 12))
Print Ut
Utabs = Abs(Ut)
If uabs > 1.96 Then
Print MsgBox("有跳跃性", vbInformation, "跳跃性检验结果")
Text7.Text = n1
End If
Next i
End Sub
Ut = (W - n1 * 53 / 2) / (Sqr(n1 * n2 * 53 / 12))
循环的时候前面都可以，到i=19的时候就溢出了。。。

Answer 1

建议：
将
Dim n1 As Integer, n2 As Integer
改为
Dim n1 As Long, n2 As Integer
应该就可以了。

当然如果数据还要大的话，可以采取一点小措施：
将
Ut = (W - n1 * 53 / 2) / (Sqr(n1 * n2 * 53 / 12))
改为
Ut = (W - n1 / 2 * 53) / (Sqr(n1 / 12 * n2 * 53))
可以稍微扩大一点范围。

Answer 2

程序用数组了吧？是不是运行一段时间后弹出对话框“实时溢出”?
这个原因是由于数组定义的时候问题，定义的数组里面有的没有用到，多余的。
定义好继续编程时必须用得到多少定义多少，不能有空。
还说不明白的话 在线聊

Answer 3

在程序前加 on error resume next 试一下

Answer 4

这个多半都是你的哪个被除数为0了