Ex.14 คำสั่งควบคุมแบบทำซ้ำ (While End)

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

รูปแบบ

(1) นิพจน์กำหนดค่าเริ่มต้น
While (2) นิพจน์ตรวจสอบเงื่อนไข
            (3) นิพจน์เพิ่มค่า
End While

ตัวอย่าง
A = 0
While A < 5
            A = A + 1
End While

ตัวอย่าง เป็นโปรแกรมทำซ้ำโดยการแสดงจำนวนรอบพร้อมกับข้อความ “LRU” ในทุกๆ รอบตัวแปร count จะเพิ่มค่าที่ละ 1 จนกว่าตัวแปร count จะมีค่าเท่ากับ 5 ซึ่งจะทำให้เงื่อนไขเป็นเท็จ เพราะ count จะต้องน้อยกว่า 5 เท่านั้น จากนั้นทดลอง
                 - เปลี่ยนค่าเริ่มต้นจาก count =0  เป็น  count = 1 จากนั้นรันโปรแกรม
                 - เปลี่ยนเงื่อนไข count < 5  เป็น  count <= 5 จากนั้นสักเกตผลการรัน
                 - สลับคำสั่ง บรรทัดที่ 7 และบรรทัดที่  8  จากนั้นสังเกตผลการรัน

|1|     Module Module1

|2|    

|3|         Sub Main()

|4|             Dim count As Integer

|5|    

|6|             count = 0

|7|             While count <= 5

|8|                 count = count + 1

|9|                 Console.WriteLine("LRU is : " & count)

|10|            End While

|11|   

|12|            Console.ReadLine()

|13|        End Sub

|14|   

|15|    End Module

การแสดงผล 

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