如果i能被2整除，则a=i，用select case 语句怎么写

bingzi10

自己能用if语句写，想知道select语句该怎么写

abc123281

if i mod 2=0  

bingzi10

abc123281 发表于 2018-8-22 18:37
if i mod 2=0

自己会写if的，想知道咋的用select case写

xiangbaoan

Sub test()
i = 1234
Select Case i Mod 2
    Case Is = 0
        a = i
    Case Is = 1
        a = "???"
End Select
MsgBox a
End Sub