[Rabeea Qbaha]

(25-10-17, 06:39 PM)عمرو المطري كتب :

السلام عليكم ورحمة الله وبركاته

اخواني الكرام قمت بكتابة كود IF  لكن يظهر لي خطأ عند التشغيل ولا ادري ماسبب هذا الخطأ

هذا هو الكود

كود :

Dim grd As Double = CDbl(txtGrade.Text)

       If grd >= 50 And grd <= 59 Then
           txtLetters.Text = "مقبول"

       ElseIf grd >= 60 And grd <= 69 = Then
           txtLetters.Text = "متوسط"

       ElseIf grd >= 70 And grd <= 79 = Then
           txtLetters.Text = "جيد"

       ElseIf grd >= 80 And grd <= 89 = Then
           txtLetters.Text = "جيد جداً"

       ElseIf grd >= 90 And grd <= 99 = Then
           txtLetters.Text = "ممتاز"
       Else
 txtLetters.Text = "راسب"

       End If

كما ترون قمت اولاً بتعريف متغير باسم grd

والخطأ الذي يظهر لي هو  Expression expected ويشير الى الأسطر التي مكتوب فيها Elseif

صديقي انت تضع اشاره = اضافيه هذا خطائك

كود :

Dim grd As Double = CDbl(txtGrade.Text)

      If grd >= 50 And grd <= 59 Then
          txtLetters.Text = "مقبول"

      ElseIf grd >= 60 And grd <= 69 Then
          txtLetters.Text = "متوسط"

      ElseIf grd >= 70 And grd <= 79 Then
          txtLetters.Text = "جيد"

      ElseIf grd >= 80 And grd <= 89 Then
          txtLetters.Text = "جيد جداً"

      ElseIf grd >= 90 And grd <= 99 Then
          txtLetters.Text = "ممتاز"
      Else
txtLetters.Text = "راسب"

      End If