اشرح معنى كل سطر في البرنامج التالي: Dim Grade As Integer, Mark As Single Grade = 10
إجابة معتمدة
اشرح معنى كل سطر في البرنامج التالي:
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
انهاء العبارة الشرطية
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
انهاء العبارة الشرطية