如果i mod 2，i最大可以是多少

爱疯

Sub test()
    Dim n, p, q, i

    n = 9
    p = 10 ^ n
    q = 10 ^ (n + 1)

    For i = p To q
        n = i Mod 2
    Next i
End Sub


请问如题？谢谢

fxl447098457

long的上限(2^31)-1吧。约21亿。

爱疯

fxl447098457 发表于 2019-4-18 11:02
long的上限(2^31)-1吧。约21亿。

谢谢 fxl447098457！

从本地窗口的数据类型看，不影响 mod 运算吧？

wj2368

爱疯 发表于 2019-4-18 11:13
谢谢 fxl447098457！

从本地窗口的数据类型看，不影响 mod 运算吧？

你在类型中不是已经看到了吗？因此你要精确定义类型

fxl447098457

64位office中可以定义longlong类型。也可以计算比较大的值。

DevilW

Double 类型最大值
1.79769313486231E+308
即 1.79769313486231 * 10 ^ 308

爱疯

wj2368 发表于 2019-4-18 11:28
你在类型中不是已经看到了吗？因此你要精确定义类型

谢谢 wj2368！

不知是否我的理解不对？
我觉得如果用方式1，实际上就是方式2的效果




Sub test2()

    '方式1
    'Dim n, p, q, i

    '方式2
    Dim n As Integer
    Dim p As Double
    Dim q As Double
    Dim i As Double

    n = 9
    p = 10 ^ n
    q = 10 ^ (n + 1)
    For i = p To q
        n = i Mod 2
    Next i

End Sub

爱疯

DevilW 发表于 2019-4-18 11:32
Double 类型最大值
1.79769313486231E+308
即 1.79769313486231 * 10 ^ 308

谢谢 DevilW！

不知你的意思是，我在哪儿搞错了？

maditate

1. Sub test()
   
2. On Error Resume Next
   
3. i = 100000
   
4. Do
   
5. s = i Mod 2
   
6. If Error <> Empty Then
   
7.   Stop
   
8.   Exit Do
   
9. End If
   
10.   i = i + 10
    
11. Loop
    
12. End Sub
    

复制代码

爱疯

maditate 发表于 2019-4-18 11:43

谢谢 maditate ！


学习了，我想过这么去试

Sub test()
    On Error Resume Next
    i = 10 ^ 9
    Do
        s = i Mod 2
        i = i + 10000
    Loop Until Error <> Empty
    MsgBox i
End Sub


Sub dd()
    Dim i
    i = 2 ^ 31 - 1
    MsgBox i Mod 2
End Sub