>>369 IfやELseIfのネストより遅いのは確かだが、Orより遅いわけねーって。 実測してみろよ。 Private Declare Function timeGetTime Lib "winmm.dll" () As Long Sub foo1() Dim i&, t1&, t2& t1 = timeGetTime For i = 1 To 5000000 Select Case i Mod 10 Case 5, 6, 9 Case Else End Select Next t2 = timeGetTime MsgBox t2 - t1 End Sub Sub foo2() Dim i&, j&, t1&, t2& t1 = timeGetTime For i = 1 To 5000000 j = i Mod 10 If j = 5 Or j = 6 Or j = 9 Then Else End If Next t2 = timeGetTime MsgBox t2 - t1 End Sub foo1がショートサーキットだって知らなかったんじゃないの？ なんなら実証してみせるが、やり方くらい知ってるよな。
