C# と VB.NET の質問掲示板

ストップウォッチクラスで計測してみるといいかな

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sw As New Stopwatch
        Dim a As Integer = 9
        Dim b As Integer = 0

        sw.Start()
        For i As Integer = 0 To 10000000
            If a = 9 Then
                b = 1
            End If

            'Select Case a
            '    Case 9 : b = 1
            'End Select
        Next
        sw.Stop()

        Dim sec As Double = sw.ElapsedTicks / Stopwatch.Frequency
        Console.WriteLine(sec)

    End Sub

こんにちは。私のサイトが参照されてたのですっ飛んできました。
わんくま同盟の人でなくても書き込んでいいん…ですよね？

■No28401 (Jitta さん)
> こちらには、「複数行形式の If...Then...Else では、ElseIf 句はいくつ指定してもかまいません。」とあります。
これが少し気になったのでやじゅさんのコードを改変して65536個の分岐にしてみました。

        'If
        sw.Start()
        For i As Integer = 0 To 1000
            If a = 65536 Then
                b = 0
            ElseIf a = 65535 Then
                b = 1
            (中略)
            ElseIf a = 1 Then
                b = 65535
            End If
        Next
        sw.Stop()

        'Select
        sw.Start()
        For i As Integer = 1 To 1
            Select Case a
            Case 65536
                b = 0
            Case 65535
                b = 1
            (中略)
            Case 1
                b = 65535
            End Select
        Next
        sw.Stop()

一応いずれもコンパイルは通りました。
最適化をなしにして実行してみたところ、いずれも朝の忙しい時間帯に終わる気配がなかったので
実行時間の計測はしていません。