Ex.18 คำสั่งควบคุมแบบทำซ้ำ (Do Loop Until)

5.  คำสั่งทำซ้ำแบบ Do  Loop Until 

เป็นคำสั่งทำซ้ำที่จะมีทำการเพิ่มค่าให้กับตัวแปรก่อนจากนั้นจึงตรวจสอบเงื่อนไขทีหลัง หากเงื่อนไขเป็น เท็จ คำสั่งจะทำซ้ำไปจนกว่า การตรวจสอบเงื่อนไขเป็น จริง จึงออกจากการวนรอบ

รูปแบบ

(1)นิพจน์กำหนดค่าเริ่มต้น 

Do

      (2)นิพจน์เพิ่มค่า 

Loop Until  (3)นิพจน์ตรวจสอบเงื่อนไข 

ตัวอย่าง

A = 0

Do 

          A = A + 1

Loop Until  A > 5 

ตัวอย่าง ความแตกต่างจากตัวอย่างที่ผ่านมาคือ ค่าเริ่มต้นจะมีค่าเท่ากับ 10 และจะลดลงทีละ 1 ทุกครั้งที่มีการวนรอบจนกว่า i จะมีค่าเท่ากับ 1 นั้นคือเงื่อนไขเป็น จริง จึงหยุดจากคำสั่งการทำซ้ำนี้    

          จากนั้นทดลองลบการเพิ่มค่าออก( i= i+1 ) จะพบกว่าการทำงานผิดพลาดและการวนรอบจะไม่สิ้นสุด เรียกกว่า “ลูปตาย”

|1|     Module Module1

|2|    

|3|         Sub Main()

|4|             Dim i As Integer = 10

|5|             Do

|6|                 Console.WriteLine(i)

|7|                 i = i - 1

|8|             Loop Until i < 1

|9|    

|10|            Console.ReadLine()

|11|        End Sub

|12|   

|13|    End Module

การแสดงผล

*********************************************