السؤال الأول
من قائمة Project
اختاري آخر امر (Project1 Properties)
تظهر نافذه
انقري على تبويب General
في خانة اختيار البدايه (Startup Opject)
حددي (F3)
انقري زر موافق
بعد ذلك في شريط الادوات انقري زر Run
السؤال الثاني
تحليل عناصر المسألة :
مدخلات البرنامج : الارتفاع ولنرمز لها بالرمز R , القاعده ولنرمز لها بالرمزA
عمليات المعالجة : مساحة المثلث = (القاعده × الارتفاع) ÷ 2
مخرجات البرنامج : مساحة المثلث
التصميم على ورق خارج :
ملاحظه .. (التصميم يشابه تصميم حساب مساحة مستطيل)
كتابة البرنامج وتنفيذه :
الكود الخاص بالبرنامج :
Private Sub Command1_Click()
Dim A , R As Single
A = Text1.Text
R = Text2.Text
2/ (Text3.Text = (A * R
End Sub
التطبيق العملي :
من خلال تنفيذ البرنامج تظهر النتائج التاليه تباعاً لمساحة المثلث
12
2
13