[amer55]

المشاركة الأصلية كتبت بواسطة alitarek8

ارسم خريطة تدفق لطباعة الاعداد الفردية من واحد الي عشرة ماعدا العدد سبعة

Dim n As Integer
n = 1
Do While n <> 7
MsgBox(n)
n = n + 2
Loop
For n = 9 To 10 Step 2
MsgBox(n)

Next