ارجو الحل الله يسعدكم

[حسن مجهلي]

السلام عليكم ورحمة الله وبركاته
البرنامج السليم الخاص بحساب التقدير
للتحميل من المرفقات
ومن الرابط التالي
http://www.gulfup.com/?6OUpJB
والبرنامج يعمل كما توضح الصورة التالية

[SHO0OSHO0O]

غير هذا السطر

A(I) = InputBox("أدخل درجة الطالب في مادة الحاسب الآلي (أعمال السنة ، الحضور والغياب،الاختبار الفصلي ، الاختبار النهائي) على التوالي")


الى هدا
A(I) = CInt(InputBox("أدخل درجة الطالب في مادة الحاسب الآلي (أعمال السنة ، الحضور والغياب،الاختبار الفصلي ، الاختبار النهائي) على التوالي"))



يعني راح تستخدم دالة التحويل من نص إلى عدد صحيح
CINT