مشکلی با فرمان select case؟

با عرض سلام
من تازه دارم ویژال یاد می گیرم ببخشید دیگه، وقت با ارزش شمارو با این سوال که فکر کنم ساده باشه میگیرم:11:
این select case چیکار می تونیم باهاش بکونیم لطفا سوالو کامل اگه لطف کنید با مثال جواب بدید ؟:10:

سلام
این دستور بسیار سریع الاجرا است و روی یک مقدار قفل میکند و آن را با مقادیر مختلف تست میکند و اجازه میدهد برای هر شرطی دستوراتی بنویسید، چیزی شبیه IF که فقط میتواند یک مقدار را بررسی کند.

مثلاً به مثال الکی زیر دقت کنید.!

کد:

---

SelectCase i
  Case 1, 5, 7
      'Any code1
      '...
  CaseIs > 0
      'Any Code2
      '...
  CaseIs >77, 50
      'Any Code3
      '...
  CaseElse
      '...
EndSelect


---

مثلاً دستورات بخش اول در صورتی اجرا میشودکه i یا 1 باشد یا 5 و یا 7
دستورات بخش دوم وقتی اجرا میشود که بخش اول درست نباشد و i از صفر بزرگتر باشد.
دستورات بخش سوم وقتی اجرا میشود که Case های بالایی مچ نشده باشند و i از 77 بزرگتر باشد یا 50 باشد
...
...
دستورات بخش else در صورتی اجرا میشوند که هیچ یک از Case ها مچ نشده باشند.

با عرض سلام و خسته نباشید
دستت درست واقعا دست شما درد نکنه _H2_ به من کمک بزرگی کردی آقا معلم:11:
من می خواهم هر مشکلی که دارم درباره ویژال اینجا بپرسم
لطفا به ابن سوال هم جواب بدید.
این حلقه های Do..while وDo…until برام توضیح بدید با مثال
ببخشید سوال های متعددی می کنم آخه من یه سی دی گرفتم دارم از اون یاد می گیرم
ولی این سی دی طرز نوشتن رو به من یاد می دهد ولی تو عمل که همون مثال باشه رو یاد نمیده.
شایده من یکم IQ ضعیفه!!!:13::31:

با تشکر از دوست عزیز _H2_
.... کلا ساختارهای تکرار این امکان را به برنامه نویس میدهند که با برقرار بودن یا نبودن مقداری در یک بلوک شرط یک عمل را چندین بار و به تکرار انجام دهد.
در ساختار تکرار Do While تا زمانیکه شرط برقرار باشد عمل داخل حلقه انجام میشود.
در ساختار Do Until ساختار تکرار شرط را برای برقرار نبودن تست میکند تا عمل داخل حلقه تکرار شود. این عمل تا زمانی انجام میگیرد که شرط بصورت False ارزیابی شود. هر گاه شرط True شود حلقه به پایان میرسد.
مثال : می خواهیم با استفاده از مفاهیم بالا اولین توان 2 بزرگتر از 1000 را بدست اوریم : البته من با استفاده از vb.net نوشتم(شرمنده به vb6 دسترسی ندارم ولی کلیات یکیه)
Do While

کد:

---

Dim nums As integer=2
Do While nums<=1000
Consol.Write("{0}",nums)
nums=nums*2
Loop
Consol.writeline("{0}", nums)

---

در مثال بالا تا زمانیکه مقدار متغیر nums کوچکتر یا مساوی 1000 باشد شرط True میشود و حلقه (کد داخل حلقه) بصورت مکرر اجرا میشود اما به محض اینکه مقدار آن بیشتر از 1000 شد شرط False میشود و حلقه به پایان میرسد.
Do Until

کد:

---

Dim nums As integer=2
Do Until nums>1000
Consol.Write("{0}",nums)
nums=nums*2
Loop
Consol.writeline("{0}", nums)

---

در این مثال حلقه تا زمانی که شرط (بزرگتر از 1000 بودن)False باشد تکرار میشود و هنگامیکه مقدار شرط True شود حلقه به پایان میرسد.