[نورهان م]

Dim sum, x As Integer
sum = 0
x = 6
Do While x < 10
s um= s um+ x
x = x + 1
Loop

عدد مرات التكرار وياريت الشرح بشء من التفصيل