ملاحظة: لقد استخدمنا الحلقة For في الشفرة السابقة لحساب العاملي لعدد ما.
عيوب البرنامج:
1-يقبل هذا البرنامج إدخال الأحرف، في حين يجب أن لايقبل إلا الأرقام.
2-يرمي هذا البرنامج خطأً عند إدخال عدد أكبر من 12.
الحلول:
1-لحل مشكلة قبول إدخال الأحرف قم بإضافة الشفرة التالية في الحدث Text1_KeyPress:
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
الرقم 8 في جدول الآسكي يقابل مفتاح الحذف BackSpace.
2-أما بالنسبة لمشكلة الخطأ الذي سيحدث في البرنامج عند محاولة حساب العاملي لعدد أكبر من 12 فيمكن حلها بإضافة بعض الأسطر إلى شفرة حساب العاملي بحيث تصبح على الشكل: