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