شرح برنامج التقديرات باستخدام دالة ifو select case و المصفوفات وحلقات التكرار

اسم الدرس	شرح برنامج التقديرات باستخدام دالة ifو select case و المصفوفات وحلقات التكرار
مستوى الدرس	متقدم
اسم البرنامج	Microsoft Visual Studio 2010
رابط تحميل البرنامج	تحميل البرنامج (اضغط هنا)
الأكواد البرمجية:
الكود البرمجي باستخدام دالة IF --------------------------- Public Class Form1     Dim i As Integer     Dim a(3) As Single     Dim n As String     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         n = InputBox("ادخل اسم الطالب")     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         For i = 0 To 3             a(i) = InputBox("ادخل أعمال السنة على التوالي: اختبار،حضور وغياب، اختبار عملي نهائي،اختبار نظري نهائي")         Next     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Dim s As Single         Label2.Text = n         Label4.Text = a(0) & "--" & a(1) & "--" & a(2) & "--" & a(3)         s = a(0) + a(1) + a(2) + a(3)         Label5.Text = s         If s >= 90 Then             Label6.Text = "ممتاز"         ElseIf s >= 80 Then             Label6.Text = "جيدجدا"         ElseIf s >= 70 Then             Label6.Text = "جيد"         ElseIf s >= 60 Then             Label6.Text = "مقبول"         ElseIf s >= 50 Then             Label6.Text = "ضعيف"         Else             Label6.Text = "غير مجتاز"         End If            End Sub End Class -------------------- الكود البرمجي الثاني باستخدام دالة select case ----------------------- Public Class Form1     Dim i As Integer     Dim a(3) As Single     Dim n As String     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         n = InputBox("ادخل اسم الطالب")     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         For i = 0 To 3             a(i) = InputBox("ادخل أعمال السنة على التوالي: اختبار،حضور وغياب، اختبار عملي نهائي،اختبار نظري نهائي")         Next     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Dim s As Single         Label2.Text = n         Label4.Text = a(0) & "--" & a(1) & "--" & a(2) & "--" & a(3)         s = a(0) + a(1) + a(2) + a(3)         Label5.Text = s         Select Case s             Case 90 To 100                 Label6.Text = "التقدير/ ممتاز"             Case 80 To 89                 Label6.Text = "التقدير/ جيدجدا"             Case 70 To 79                 Label6.Text = "التقدير/ جيد"             Case 60 To 69                 Label6.Text = "التقدير/ مقبول"             Case Else                 Label6.Text = "التقدير/ راسب"         End Select     End Sub End Class