تصميم واجهة التطبيق:

1- ضع زر أوامر Command1 وغير خاصية Caption له إلى "جمع"، ثم ضع زر أوامر ثاني Command2 وغير خاصية Caption له إلى "خروج".

2- ضع ثلاث خانات نص، وقم بحذف محتوياتهم وذلك من خلال خاصية Text.

ملاحظة: إن خاصية محتوى خانة النص هي Text وليست  Caption كمعظم الأدوات.

3- ضع ثلاث أداوات عنوان Label وغير خاصية Caption لهم إلى "العدد الأول"، "العدد الثاني"، "ناتج الجمع" بالترتيب.

4- غير خاصية Caption التابعة للنافذة إلى "برنامج جمع عددين".

5- قم برصف الأدوات بحيث تظهر بشكل مشابه للشكل السابق.

كتابة الشفرة:

قبل أن نكتب الشفرة يجب علينا أن نحدد كيف سيعمل هذا التطبيق، أي ماذا يجب على المستخدم أن يفعل وكيف سأرد على أفعاله.

عند تنفيذ البرنامج سيقوم المستخدم بإدخال العدد الأول في خانة النص الأولى Text1، والعدد الثاني في خانة النص الثانية Text2، ومن ثم سيضغط على الزر "جمع" ليتم جمع العددين ووضع الناتج في Text3.

1- إذاً كل ما علينا فعله هو عملية جمع العددين المدخلين ووضع الناتج في خانة النص Text3، ويتم ذلك في الحدث Command1_Click، لذلك اكتب الشفرة التالية في هذا الحدث:

Dim x As Single

Dim y As Single

Dim z As Single

x = Val ( Text1.Text )

y = Val ( Text2.Text )

z = x + y

Text3.Text = z

2- في الحدث Command2_Click اكتب تعليمة إنهاء البرنامج وهي End.

شرح الشفرة السابقة:

لقد قمنا في الشفرة السابقة بتعريف ثلاث متحولات x,y,z من نمط عدد كسري فردي الدقة، حيث x وy هما العددين و z هو ناتج الجمع.

قمنا في السطر الرابع باسناد القيمة العددية Val لمحتويات خانة النص الأولى Text1 إلى المتحول x، وقمنا في السطر الخامس باسناد القيمة العددية Val لمحتويات خانة النص الأولى Text2 إلى المتحول y.

قمنا بعد ذلك بجمع العددين ووضع الناتج في خانة النص Text3.

ملاحظة: إن السطر

x = Val (Text1.Text)

سيتكرر كثيراً فيما بعد، ومعناه خذ القيمة العددية لمحتويات خانة النص Text1 واسندها للمتحول x.