رد: لغات برمجة شعبة ناصر شطوان
حبيت اشارك بما عندي
باستخدام التحكم بواسطة الحالات 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
|