2-              ضع خانتي نص، وأداتي عنوان وزر أوامر.

3-              صمم واجهة البرنامج كما يلي:

4-              اكتب الشفرة التالية في الحدث Command1_Click:

Dim n As Integer

Dim i As Integer

Dim s As Long

s = 1

n = Val(Text1.Text)

For i = 1 To n

  s = s * i

Next i

Text2.Text = s

5-              نفذ التطبيق، واختبره من أجل مجموعة من الأعداد.

ملاحظة: لقد استخدمنا الحلقة 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 فيمكن حلها بإضافة بعض الأسطر إلى شفرة حساب العاملي بحيث تصبح على الشكل:

Dim n As Integer

Dim i As Integer

Dim s As Long

s = 1

n = Val(Text1.Text)

IF n > 12 Then

 MsgBox "العدد كبير، لايمكن حساب العاملي"

Else

For i = 1 To n

 s = s * i

Next i

Text2.Text = s

End If

الإضافة تظهر بالأسود العريض.