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

2. คำสั่งทำซ้ำแบบ Do While  Loop  

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

รูปแบบ

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

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

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

Loop

ตัวอย่าง

A = 0

Do While  A < 5

            A = A + 1

Loop

ตัวอย่าง เป็นโปรแกรมตรวจสอบเลขคู่ (Even number) โดยใช้ตำดำเนินการเพื่อหารเก็บเศษ (MOD) และใช้คำสั่ง if มาตรวจสอบเงื่อนไขหากเศษนั้นมีค่าเท่ากับ 0 จะแสดงผลตัวเลขคู่ออกมา ซึ่งในทุกๆ รอบตัวแปร i จะเพิ่มค่าที่ละ 1 จนกว่าตัวแปร i จะมีค่าเท่ากับ 10 ซึ่งจะทำให้เงื่อนไขเป็นเท็จ เพราะ i จะต้องน้อยกว่า 10 เท่านั้น จากนั้นทดลอง 

             - ทดลองเปลี่ยนเงื่อนไข     จาก 10  เป็น 100

             - ทดลองเปลี่ยนเงื่อนไข  จาก 2  เป็น 3 

|1|     Module Module1

|2|    

|3|         Sub Main()

|4|             Dim i As Integer

|5|    

|6|             i = 0

|7|             Do While i < 10

|8|                 i = i + 1

|9|                 If i Mod 2 = 0 Then

|10|                    Console.WriteLine("Even number  is : " & i)

|11|                End If

|12|            Loop

|13|   

|14|            Console.ReadLine()

|15|        End Sub

|16|    End Module

การแสดงผล

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