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

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

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

รูปแบบ

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

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

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

Loop

ตัวอย่าง

A = 0

Do Until  A = 5

            A = A + 1

Loop

ตัวอย่าง โปรแกรมนี้ใช้ในการแสดงผลสูตรคูณซึ่งกำหนดค่าคงที่ ของสูตรคูณคือแม่ 7 และให้วนรอบจำนวน 12 รอบ โดยใช้การทำซ้ำแบบ Do Until เมื่อ I มีค่ามากกว่า 12 จริง ก็จะหยุดจากการทำซ้ำนี้

จากนั้นทดลองเขียนโปรแกรมเพื่อให้สามารถรับค่าเลขแม่สูตรคูณและจำนวนรอบ จากแป้นพิมพ์ ซึ่งจะทำให้โปรแกรมมีความยืดหยุ่นมากยิ่งขึ้น

|1|     Module Module1

|2|    

|3|         Sub Main()

|4|             Dim num As Integer = 7

|5|            

|6|              Dim i As Integer = 1

|7|             Do Until i > 12

|8|                 Console.WriteLine("{0} x {1} = {2} ", i, num, num * i)

|9|                 i = i + 1

|10|            Loop

|11|   

|12|            Console.ReadLine()

|13|        End Sub

|14|   

|15|    End Module

การแสดงผล

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