[الاستاذ خليل]

و شكرا للا عضاء جميعا على التفاعل
aiooooooooooooo
refathafez
fadi9
Amel2005
zine pef

refathafez حدد المشكلة بالضبط و تستطيع استخدام برامج الاعضاء السابقة فيها شي قد تكون ناسيه

fadi9 خيرا ان شاء الله
Amel2005 لحفظ المتغيرات يجب التصريح بهم باعلى الكود
اكتبي

Dim q, n2, n3, n4, n5, n6 As Integer

اي سيصبح الكود هكذا باول مكان بالكود:

Dim trueq, falseq, n  As Long
Dim a, b, d As Integer
Dim L1, L2, L3, L4, T1, T2, T3, T4 As Integer
Dim q, n2, n3, n4, n5, n6 As Integer

الزبدة
اي قيم ستستعمليها لاحقا في نفس الشريحة تعرفيها باعلى الكود و اذا كان المتغير غير رقمي تتغير جملة Integer الى النوع الذي تريدينه لاحظي دروس المتغيرات

اتمنى ان افدتك و عملك روعة اتمنى ان تكمليه

و شكرا جزيلا