صباح الخير والبهجة والسرور طلابنا الاعزاء طلاب الصف الاول الثانوي، يسرنا ان نرحب بكم من جديد في هذا الصرح التعليمي المتميز، فمرحبا بكم.

صادفنا اليوم سؤالا جديدا من اسئلة الوحدة السادسة: “البرمجة بلغة (فيجول بيسك ستوديو)” من كتاب الحاسب الالي للصف الأول الثانوي الفصل الدراسي الثاني حيث ينص ذلك السؤال على الاتي:

اشرح معنى كل سطر في البرنامج التالي:

Dim Grade As Integer, Mark As Single

Grade = 10

Mark = InputBox (“أدخل درجة الطالب”)

If mark >=60 Then Grade = Grade + 1 Else Grade = Grade

MsgBox(Grade)

Endlf

ويسرنا هنا ان نوضح لكم الإجابة النموذجية له والتي نمثلها لكم في التالي:

Dim Grade As integer, Mark As single

Grade = 10

تخزين القيمة 10 في المتغير

Mark = InputBox (“أدخل درجة الطالب”)

إظهار رسالة تطلب درجة الطالب وتخزينها

If mark>=60 then Grade = Grade=1 Else Grade = Grade

إذا كانت الدرجة أكبر من أو تساوي 60 سوف يقوم بزيادة الدرجة بمقدار 1 وغير ذلك فتظل الدرجة كما هي

MsgBox(Grade)

إظهار رسالة بالدرجة

Endlf