Page 66 - أساسيات الحاسب الالي2

‫جمل التحكم‬ ‫الفصل الرابع‬

-: ‫مثال‬
(your ‫س نوات تظه ر رس الة‬١٠ ‫برنامج ي ستقبل م ن الم ستخدم ال سن ف إذا ك ان‬

age is 10 years)
(within range) ‫ سنة تظهر رسالة‬٣٠-٢٠
(out of Range) ‫ تظهر رسالة‬٦٠-٥٠- ٤٠ to ٣١
(out of our concern) ‫غير ذلك تظهر رسالة‬

Sub Main()
Dim age As Integer
age = Val(InputBox("enter your Age", "classification"))
Select Case age
Case 10
MsgBox("your age ten years")
Case 20 To 30
MsgBox("within range")
Case 31 To 40, 50, 60
MsgBox("out of range")
Case Else
MsgBox("out of concern")
End Select

End Sub
‫تمرين‬

‫ لتحديد تقدير طالب بناءا على مجموع درجاته‬Select case ‫استخدم جملة‬
‫مثال‬

٦٦