بفرض انك اودعت مبلغ من المال لمدة عشر سنوات في احد البنوك وتريد ان تحسب الفائدة المركبة لهذا المبلغ علما بأن المبلغ هو A, و N هي عدد السنوات و Rهي معدل الفائدة وذلك بالقانون الاتي : F=A(1+R)^N
باستخدام For, Next

الحل هو كما يلي


For N = 1 to 10
F=A(1+R)^N
MsgBox(F)
Next
كما يلاحظ هنا وجود صندوق الرسالة لعر قيمة المبلغ بالفائدة في كل سنة
أرجو أن يكون الحل واضح

Dim a,f as decimal ,n as integer
"من المفترض أنه يكون له قيمة و لكنها غير معطاة "= Const r as decimal
For n = 1 to 10
F=A(1+R)^N
( f = f + f)
Next
print f



أتمنى أن يكون الحل صحيحا

يمكن استخدام كلمة byte كاسم لمتغير فى البرنامج.

لماذا ( f = f + f)

الي اساتذه المنتدي الكرام ضروري حل المسألة