4. คำสั่งทำซ้ำแบบ Do Loop While
เป็นคำสั่งทำซ้ำที่จะมีทำการเพิ่มค่าให้กับตัวแปรก่อนจากนั้นจึงตรวจสอบเงื่อนไขทีหลัง หากเงื่อนไขเป็น จริง คำสั่งจะทำซ้ำไปจนกว่า การตรวจสอบเงื่อนไขเป็น เท็จ จึงออกจากการวนรอบ
รูปแบบ
(1)นิพจน์กำหนดค่าเริ่มต้น
Do
(2)นิพจน์เพิ่มค่า
Loop While (3)นิพจน์ตรวจสอบเงื่อนไข
ตัวอย่าง
A = 0
Do
A = A + 1
Loop While A < 5
ตัวอย่าง โปรแกรมนี้ใช้ในการแสดงผลสูตรคูณซึ่งรับค่าแม่สูตรคูณมาจากแป้นพิมพ์ จากนั้นทำการวนรอบจำนวน 12 รอบ เมื่อเงื่อนไขเป็นเท็จจึงหลุดจากการทำซ้ำ สังเกตการเพิ่มค่าให้กับตัวแปร I ที่มีการเพิ่มค่าก่อนการตรวจสอบเงื่อนไขเสมอ ซึ่งโปรแกรมนี้เป็นการเขียนคำสั่งในการคำนวณอีกรูปแบบหนึ่งก่อนการแสดงผล
|1| Module Module1
|2| Sub Main()
|3| Dim num As Integer
|4| Dim sum As Integer
|5| Dim i As Integer = 1
|6|
|7| Console.Write("input multiply:")
|8| num = Console.ReadLine
|9| Do
|10| sum = num * i
|11| Console.WriteLine("{0} x {1} = {2} ", i, num, sum)
|12| i = i + 1
|13| Loop While i <= 12
|14|
|15| Console.ReadLine()
|16| End Sub
|17| End Module
การแสดงผล
*************************************************
0 ความคิดเห็น:
แสดงความคิดเห็น