سؤال حول المصفوفات و تقسيم كلمة لجزئين

بسم الله

الاخت العزيزة

ارجو اني اكون فهمتك في المثال الثاني لاني المثال الاول مش فاهم منه حاجة خالص

ولكن في المرفقات في مثال على المسألة التانية

وارجو اني اكون وفقت في تلبية طلبك

Visual.rar

السلام عليكم

هذا حل المسألة الأولى

Private Sub Form_Load()
Dim ss(9) As Integer
Dim i As Integer
Dim cmt As Single
Dim count_students As Integer
For i = 0 To 9
ff:
ss(i) = InputBox("أدخل درجة الطالب رقم :" & i + 1)
If ss(i) = 0 Then GoTo ff
Next i

For i = 0 To 9
cmt = cmt + ss(i)
Next i
cmt = cmt / 10

For i = 0 To 9
If ss(i) > cmt Then count_students = count_students + 1
Next i
MsgBox "عدد الطلاب الذين حازوا على درجات أعلى من المتوسط  : " & count_students
End Sub

alfozan111@hotmail.com

دا برنامج لحل المسالة الاولى

Me_Hossam_.rar

اقتباس

الحلول هذي بلغة الفيجوال بيسك

الحلول بالفعل فيجوال بيسك

اقتباس

الحلول هذي بلغة الفيجوال بيسك

بسم الله

هو ده سؤال ولا اعتراض ؟

اذا كان سؤال يبقى الجواب : طبعا بلغة الفيجوال بيزك احنا هنا في منتدى الفيجوال

اما اذا كان اعتراض او تعجب : فيبقى برضو احنا في منتدى الفيجوال هنعمل برامج بالاسمبلي ؟ ؟ ؟ :s