Select...Case Statement

์‹ ๊ฐ’์— ๋”ฐ๋ผ ํ•˜๋‚˜ ์ด์ƒ์˜ ๋ฌธ ๋ธ”๋ก์„ ์ง€์ •ํ•ฉ๋‹ˆ๋‹ค.


Select Case condition Case expression Statement Block[Case expression2 Statement Block][Case Else] Statement Block End Select

๋งค๊ฐœ ๋ณ€์ˆ˜:

Condition: ๊ฐ Case ์ ˆ ๋’ค์— ์˜ค๋Š” ๋ฌธ ๋ธ”๋ก์ด ์‹คํ–‰๋˜๋Š”์ง€ ์—ฌ๋ถ€๋ฅผ ์ œ์–ดํ•˜๋Š” ์ž„์˜์˜ ์‹์ž…๋‹ˆ๋‹ค.

Expression: Condition ์œ ํ˜• ์‹๊ณผ ํ˜ธํ™˜๋˜๋Š” ์ž„์˜์˜ ์‹์ž…๋‹ˆ๋‹ค. Case ์ ˆ ๋’ค์— ์˜ค๋Š” ๋ฌธ ๋ธ”๋ก์€ Condition์ด Expression๊ณผ ์ผ์น˜ํ•  ๊ฒฝ์šฐ์— ์‹คํ–‰๋ฉ๋‹ˆ๋‹ค.


Sub ExampleRandomSelect

Dim iVar As Integer

    iVar = Int((15 * Rnd) -2)

    Select Case iVar

        Case 1 To 5

            Print "Number from 1 to 5"

        Case 6, 7, 8

            Print "Number from 6 to 8"

        Case 8 To 10

            Print "Greater than 8"

        Case Else

            Print "Out of range 1 to 10"

    End Select

End Sub