为什么使用整数而不是长？

Question

为什么使用整数而不是长？

我经常看到Overflow与vba错误有关的问题。

我的问题是为什么使用integer变量声明而不是仅仅定义所有数值变量（不包括double等）long？

除非您正在执行类似for循环的操作，您可以保证该值不会超过32,767的限制，否则是否会对性能产生影响或其他会导致不使用long？

Answer 1

即使这篇文章已有四年历史了，我对此感到好奇并进行了一些测试。最重要的是要注意编码器应该始终将变量声明为SOMETHING。未申报的变量显然表现最差（技术上未申报Variant）Long确实表现最快，所以我不得不认为微软总是建议使用Long而不是Integer有意义。我猜测也是如此Byte，但大多数程序员都没有使用它。64位WINDOWS 10 LAPTOP的结果使用代码：Sub VariableOlymics()'Run this macro as many times as you'd like, with an activesheet ready for data'in cells B2 to D6Dim beginTIME As  Double, trials As Long, i As Long, p As Long     trials = 1000000000     p = 0     beginTIME = Now    For i = 1 To trials        Call boomBYTE    Next i    Call Finished(p, Now - beginTIME, CDbl(trials))     p = p + 1     beginTIME = Now    For i = 1 To trials        Call boomINTEGER    Next i    Call Finished(p, Now - beginTIME, CDbl(trials))     p = p + 1     beginTIME = Now    For i = 1 To trials        Call boomLONG    Next i    Call Finished(p, Now - beginTIME, CDbl(trials))     p = p + 1     beginTIME = Now    For i = 1 To trials        Call boomDOUBLE    Next i    Call Finished(p, Now - beginTIME, CDbl(trials))     p = p + 1     beginTIME = Now    For i = 1 To trials        Call boomUNDECLARED    Next i    Call Finished(p, Now - beginTIME, CDbl(trials))     p = p + 1End SubPrivate Sub boomBYTE()Dim a As Byte, b As Byte, c As Byte     a = 1     b = 1 + a     c = 1 + b     c = c + 1End SubPrivate Sub boomINTEGER()Dim a As Integer, b As Integer, c As Integer     a = 1     b = 1 + a     c = 1 + b     c = c + 1End SubPrivate Sub boomLONG()Dim a As Long, b As Long, c As Long     a = 1     b = 1 + a     c = 1 + b     c = c + 1End SubPrivate Sub boomDOUBLE()Dim a As Double, b As Double, c As Double     a = 1     b = 1 + a     c = 1 + b     c = c + 1End SubPrivate Sub boomUNDECLARED()     a = 1     b = 1 + a     c = 1 + b     c = c + 1End SubPrivate Sub Finished(i As Long, timeUSED As Double, trials As Double)     With Range("B2").Offset(i, 0)             .Value = .Value + trials            .Offset(0, 1).Value = .Offset(0, 1).Value + timeUSED                         .Offset(0, 2).FormulaR1C1 = "=ROUND(RC[-1]*3600*24,0)"     End WithEnd Sub