لغات برمجة شعبة ناصر شطوان

[m i s]

حبيت اشارك بما عندي


باستخدام التحكم بواسطة الحالات if اكتب برنامج يقوم بتحويل درجات الطلاب من الأرقام إلى الرموز
بحيث يستقبل البرنامج الدرجة ثم يقوم بتحويلها للرمز
.................................................. .................................
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
a = InputBox("من فضلك ادخل الدرجة")

If a >= 101 Then
MsgBox("ادخل الدرجة من 0 الى 100")
End If

If a >= 90 And a <= 94 Then
MsgBox("A")
End If

If a >= 95 And a <= 100 Then
MsgBox("A+")
End If

If a >= 80 And a <= 84 Then
MsgBox("B")
End If

If a >= 85 And a <= 89 Then
MsgBox("B+")
End If

If a >= 70 And a <= 74 Then
MsgBox("C")
End If

If a >= 75 And a <= 79 Then
MsgBox("C+")
End If

If a >= 60 And a <= 64 Then
MsgBox("D")
End If

If a >= 65 And a <= 69 Then
MsgBox("D+")
End If


If a < 60 Then
MsgBox("F")
End If



End Sub