شکل دیگری از دستور if   ، if تودرتو می باشد

If [condition] then

[commands1]

[commandsn]

Elseif [condition] then

[commands1]

[commandsn]

.

.

.

.

.

.

.

Else

[Command]

End if

شما با این دستور می توانید چندین شرط را برای یک عمل اعمال کنید

برای درک:

اگر بخواهیم موفق شویم پس

باید تلاش کنیم تا موفق شویم

مگرنه بخواهیم نمره خوبی بگیریم پس

باید درس بخوانیم

مگرنه

بیخیالش

پایان اگر

و اما می رسیم به دستور select case

از این هم می توانیم مانند دستور if  استفاده کنیم

بشکل زیر:

Select case [variable]

Case [value1]

[command]

Case [value2]

[command2]

.

.

.

.

.

End select

برای درک:

انتخاب مورد ]متغیر[

مورد ]مقدار1[

]دستور[

مورد ]مقدار2[

]دستور[

.

.

.

.

.

پایان انتخاب

مثال 1:

این مثال یک عدد را از ورودی می گیرد و می گوید تعداد ارقامش کمتر 3 است یا بیشتر

If Len(Text1.Text) > 3 Then

MsgBox "Its more than 3"

ElseIf Len(Text1.Text) = 3 Then

MsgBox "its =3"

Else

MsgBox "its less than 3"

End If

برای دانلود مثال آماده اینجا کلیک نمایید

مثال 2:

این مثال از ورود روز را گرفته و روز آن را بر می گرداند

Select case text1.text

Case 1

Msgbox “shanbe”

Case 2

 Msgbox “1shanbe”

Case 3

Msgbox “2shanbe”

Case 4

Msgbox “3shanbe”

Case 5

Msgbox “4shanbe”

Case 6

Msgbox “5shanbe”

Case 7

Msgbox “jome”

End select

برای دانلود مثال آماده اینجا کلیک نمایید