[hassanalhawy]

شكراً جزيلاً أستاذ / مهدى ، على هذا الإطراء فلا شكر على واجب
وما قمت به قام به المئات بل والآلاف غيرى من قبل داخل هذا المنتدى العظيم وكل ما فعلته أنى سرت على دربهم
Dim y As String = 1000 هى فعلاً صحيحة وكل ما عليك أن تذكر الطلاب بالأمر
Dim y As Integer = TextBox1.Text وهى أنك يمكن أن تضع فيها قيمة حرفية هى "1000" والتى يتم إجراء عمليات حسابية عليها بالرغم من أنها حرفية بسبب إمكانية التحويل الضمنى
القيمة 64.4 فى السؤال الثالث ص 54
سوف يخرج القيمة مقبول . حيث هناك تعديل على الكود كما يلى

Dim deg As Single
deg = Me.TextBox1.Text
Select Case deg
      Case 85 To 100
        Me.Label2.Text = "ممتاز"
      Case 75 To 85
        Me.Label2.Text = "جيد جداً"
      Case 65 To 75
        Me.Label2.Text = "جيد"
      Case 50 To 65
        Me.Label2.Text = "مقبول"
      Case 0 To 50
        Me.Label2.Text = "ضعيف"
      Case Else
        Me.Label2.Text = "يرجى إدخال درجة بين صفر و 100"
End Select