مثال تتبع تنفيذ اكواد على Do while .. Loop

[س ا يوسف]

تتبع تنفيذ الاكواد

Dim x, total, limit As Integer

(limit = Integer.Parse(Me.txtLimit.Text

x = 1

Do While x <= limit

total = total + x

x = x + 2

Loop

( "##",Me.Label2.Text = Format(total