تطبيق حساب درجات وتقدير طالب

Calculate student grades and assign them a category using this programming practice worksheet.

صلي الكود بمعناه Dim A(3) As Integer تعريف مصفوفة من 4 أعداد صحيحة لتخزين درجات الطالب N = InputBox("فضلا أدخل اسم الطالب") أمرطلب ادخال اسم الطالب من المستخدم وتخزينه في المتغير N For I = 0 To 3 A(I) = InputBox("ادخل درجة الطالب في مادة الحاسب على التوالي: أعمال السنة,الحضور,الاختبار الفصلي,الاختبار النهائي أمر طلب ادخال الدرجات وتخزينها في المصفوفة Label4.Text = A(0) & "--" & A(1) & "--" & A(2) & "--" & A(3) أمر اخراج قيم عناصر المصفوفة الى lable4 If S >= 90 Then Label6.Text = "التقدير ElseIf S >= 80 Then Label6.Text = "التقدير جدا" ElseIf S >= 70 Then Label6.Text = "التقدير " ElseIf S >= 50 Then Label6.Text = "التقدير Else Label6.Text = "التقدير/ غير مجتاز" End If أوامر اخراج التقدير الى label6 حسب مجموع الدرجات