[سيف سالم]

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

السؤال الثانى
تتبع الاوامر الاتية

Dim A , B , N as Integer

A = 5

For n = 1 to 8 Step2

B = A + N

Next

If N > A

A = A + 1

End If

a=6
b=12
n=9