不支持字节数据类型的 VBA for...下一个循环？

Question

为什么我会收到错误 6“溢出”的代码？我很困惑..

Sub test()
    Dim i as byte
    For i = 3 To 2 step - 1
        Debug.Print i
    Next
End Sub

与整数类型相同。

Answer 1

在这种情况下，step也是 Byte 类型和字节只能是 0 ... 255，因此溢出。如果您只是这样做，也会发生同样的情况

dim i as byte
i = -1

甚至与

For i = 200 To 255
    Debug.Print i
Next

在最后一个循环结束时，i在 next 中递增进行比较之前的语句 ( <=255 )，这种递增会导致溢出错误。