vb6 费解的问题

deell

我用了vb6 有 n年了，今天才发现这个问题：

Dim a As Long

a = 20000 + 20000

error "Overflow" 会出现。
有谁知道是什么问题吗？

jangancari

试试 a=32768 + 2

如果一样的问题，那应该是 32bits limit for Long type

hooi1983

用

1. a = 20000 + 20000&

复制代码

or

1. a = 20000 + CLng(20000)

复制代码

就没问题

meemee

这好像是vb6的bug。。。

如果你的计算中，第一和第二或者之后的都是integer type（16 bits），那么计算结果也是integer type。。。所以，20000 + 20000 = 40000，就出现overflow。。。最后，vb 返回给 a 的答案就是 overflow。。。

1. Private Sub Form_Load()
   
2. 
   
3. On Error GoTo myerror
   
4. Dim a As Long
   
5. 
   
6. a = 32767 + 1 '= 32768 (+ve integer limit, overflow error)
   
7. 
   
8. a = 32768 + 1 '= 32769 (ok, because the 1st parameter already long type)
   
9. a = 32767& + 1 '= 32768 (ok, because we force the 1st parameter to long type)
   
10. a = 32767 + CLng(1) '= 32768 (ok, because we force the 2nd parameter to long type)
    
11. 
    
12. a = 32766 - 1 + 2  '(ok)
    
13. a = 32766 + 2 - 1  'Overflow error
    
14. 'Overflow, because 32766 + 2 > 32767, even
    
15. 'the above calculation also result in 32767
    
16. 
    
17. Exit Sub
    
18. myerror:
    
19. 
    
20. MsgBox "Runtime error!!!, " & Err.Description
    
21. Resume Next
    
22. 
    
23. End Sub

复制代码

asimo

应该java也是这样，
因为程式

１。A = B + C
    是重右边运行起，然后存到左边要符合
    Integer = Integer
    Long = Long

２。数字全部默认为Integer （如果少过32767）

３。当Integer ＋ Integer = Integer
    当Integer + Long = Long (或相反）