SELECT CASE  متغير

CASE  محدوده 1

عمليات 1

CASE  محدوده 2

عمليات 2

CASE ELSE

عمليات

END SELECT

به طور مثال ساختاري طراحي كنيد كه عددي را از كاربر گرفته و سپس رده ي آنرا مشخص كند:

1-اگر عدد 1 يا 2 يا 3 باشد رده A

2- اگر عدد بزرگتر از 3 و كوچكتر از 7 باشد رده ي B

3-  اگر عدد بزرگتر از 7 باشد رده ي C

4- در غير اين صورت پيام خطا صادر كند.

نمايش داده شود:

SUB TEST()

DIM X!

X=INPUTBOX("X:")

SELECT CASE X

CASE 1,2,3

MSGBOX " A"

CASE 3 TO 7

MSGBOX " B"

CASE IS > 7

MSGBOX "C"

CASE ELSE

MSGBOX " ERROR"

END SELECT

END SUB

  RSS