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

[roneta]

Dim x As Integer
x = InputBox("ادخل الدرجة")
Select Case x
Case 90 To 100
TextBox1.Text = ("A")
Case 80 To 89
TextBox1.Text = ("b")
Case 70 To 79
TextBox1.Text = ("c")
Case 60 To 69
TextBox1.Text = ("d")
Case Is < 60
TextBox1.Text = ("f")
End Select


End Sub
End Class

بنات هادا المعدل بي selece case

]دعواتكم