09/01/05 18:24:45
>>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がショートサーキットだって知らなかったんじゃないの？
なんなら実証してみせるが、やり方くらい知ってるよな。