小编Did*_*idy的帖子

我不知道为什么这个程序不起作用.我得到一个随机数,计算机选择什么类型的偶数或奇数？

Dim a As New Random()

    Dim b As Integer
    Dim ca As Integer
    b = a.Next(0, 10)
    Debug.Print(b)

    ca = b / 2

    If ca = 0 Then
        Debug.Print("Even")
    Else
        Debug.Print("Odd")
    End If