2

ちょっと興味がありますが、これをより少ない数のコード行に減らす方法はありますか?

For k = 1 To 12
    Select Case k
        Case 1
            col = 9
        Case 2
            col = 10
        Case 3
            col = 11
        Case 4
            col = 12
        Case 5
            col = 13
        Case 6
            col = 14
        Case 7
            col = 15
        Case 8
            col = 16
        Case 9
            col = 17
        Case 10
            col = 18
        Case 11
            col = 19
        Case 12
            col = 20
    End Select
Next

ありがとう！

4

1 に答える 1

2

どうですか：

For k = 1 to 12
   col = k + 8
Next

または、おそらく探していたもの：

For k = 1 To 12
    Select Case k
        Case 1 To 12
            col = k + 8
    End Select
Next

関連する MSDNは次のとおりです。下にスクロールして例を確認できます。

于 2012-10-26T00:46:02.457 に答える