حلقه تکرار For را می توان به صورت متداخل به کار برد.در این صورت حلقه تو در تو بوجود می آید. دستورات زیر دو حلقه تو در تو را نشان می دهد. که اندیس حلقه داخلی با I و اندیس حلقه خارجی با J نشان داده شده است.
For I=1 To 10
For J=1 To 10
.
.
.
Next J
Next I
نکاتی در مورد حلقه For تو در تو:
چنانچه حلقه های متداخل دارای نقطه یکسانی باشند(دستوری بین Next حلقه داخلی و خارجی نباشد) در این صورت یک حلقه Next به همراه کلیه متغیرهای شمارنده برای تمامی حلقه ها کافی می باشد.(مثل Next I,J )
دستور Next حلقه داخلی باید قبل از دستور Next حلقه خارجی قرار گیرد. به عبارت دیگر حلقه ها نباید یکدیگر را قطع کنند. به عنوان مثال حلقه متداخل زیر غیر مجاز است، زیرا Next مربوط به حلقه خارجی قبل از Next حلقه داخلی قرار گرفته است:
For I=1 To 15
For J=1 To 15
.
.
.
Next I
Next J
دستور Select Case
علاوه بر دستور if از دستور Select Case نیز برای تصمیم گیری می توان استفاده کرد. وقتی بخواهیم بر اساس مقادیر مختلف یک متغیر یا یک عبارت، تصمیم گیریهای مختلفی داشته باشیم، از دستور Select Case استفاده می کنیم.
ساختار Select Case به صورت زیر است:
Select case
Case
مجموعه دستورات 1
Case
مجموعه دستورات 2
.
.
.
Case Else
مجموعه دستورات n
End Select
مثال: برنامه ای که روزهای هفته را با استفاده از دکمه های Option نمایش می دهد. با انتخاب یک دکمه از Option نام روز هفته و شماره روز هفته را نمایش می دهد و با ورود یک عدد (شماره روز هفته) نام روز هفته را نمایش و دکمه Option آن فعال شود.
(هدف از این برنامه آشنایی با عنصر Option Buttom و دستور Select Case می باشد.)
مراحل طراحی و اجرای برنامه:
1-با گزینه File / New Project پروژه جدیدی ایجاد کنید. خاصیت Control Box فرم را به False تغییر دهید.(تنظیم این خاصیت به False از نمایش دکمه های حداقل، حداکثر و منو در Form جلوکیری می کند)
2-هفت عنصر Option Buttom به فرم اضافه کنید.
3-یک عنصر Label، یک عنصر TextBox ، و سه عنصر CommandButtom به فرم اضافه کنید و خاصیت Name و Caption دکمه ها را به ترتیب به Number، Select و Exit تغییر دهید.
4-ناحیه خالی فرم را دو بار کلیک کنید و دستورات رویداد Form_Load را به صورت زیر تایپ کنید.
Text1.text= “1”
Label1.caption= “Saturday”
Option1.Caption= “Saturday”
Option2.Caption= “Sunday”
Option3.Caption= “Monday”
Option4.Caption= “Tuesday”
Option5.Caption= “Wednesday”
Option6.Caption= “Thursday”
Option7.Caption= “Friday”
5-دکمه Number را دو بار کلیک کرده دستورات رویداد Number_Click را به صورت زیر تایپ کنید.
Num= val(text1.text)
Select Case Num
Case 1
Label1.caption= “Saturday”
Option1.value= True
Case 2
Label1.caption= “Sunday”
Option2.value= True
Case 3
Label1.caption= “Monday”
Option3.value= True
Case 4
Label1.caption= “Tuesday”
Option4.value= True
Case 5
Label1.caption= “Wednesday”
Option5.value= True
Case 6
Label1.caption= “Thursday”
Option6.value= True
Case 7
Label1.caption= “Friday”
Option7.value= True
End Select
6-دکمه Select را دو بار کلیک کرده دستورات رویداد Select_Click را به صورت زیر تایپ کنید.
If Option1.value= True Then Label1.caption= “Saturday” : Text1.text= “1”
If Option1.value= True Then Label1.caption= “Sunday” : Text1.text= “2”
If Option1.value= True Then Label1.caption= “Monday” : Text1.text= “3”
If Option1.value= True Then Label1.caption= “Tuesday” : Text1.text= “4”
If Option1.value= True Then Label1.caption= “Wednesday” : Text1.text= “5”
If Option1.value= True Then Label1.caption= “Thursday” : Text1.text= “6”
If Option1.value= True Then Label1.caption= “Friday” : Text1.text= “7”
7-دکمه End را دو بار کلیک کرده دستور END را در رویداد End_Click تایپ کنید.
8-پروژه را با کلید F5 اجرا کنید.
امتیاز: 0.00
وزارت آموزش و پرورش > سازمان پژوهش و برنامهريزی آموزشی
شبکه ملی مدارس ایران رشد
شما باید یک عنوان و متن وارد کنید!