[حريف برمجة]

لنفرض عدد الأسئلة في تكست اسمه c1

وعدد الفترات في تكست اسمه c2


مثال لو عدد الأسئلة 9 وعدد الفترات 3 ليس هنا اي مشكلة كل فترة تاخذ 3 أسئلة

طيب لو عدد الأسئلة 10 وعدد الفترات 3 هنا تكون العملية كالتالي :
الفترة الأولى = 4
الفترة الثانية = 3
الفترة الثالثة = 3

طيب لو عدد الأسئلة 11 وعدد الفترات 3 هنا تكون العملية كالتالي :
الفترة الأولى = 4
الفترة الثانية = 4
الفترة الثالثة = 3

طيب لو عدد الأسئلة 2 وعدد الفترات 3 هنا تكون العملية كالتالي :
الفترة الأولى = 1
الفترة الثانية = 1
الفترة الثالثة = 0

وهذا هو الكود

كود :

 'عدد الأسئلة في كل فترة
       Dim q As Integer = c1.Text \ c2.Text

       'ضرب عدد الأسئلة الناتج بعد عملية القسمة في عدد الفترات لمعرفة هل عدد الأسئلة الموجود بعد عملية القسمة مطابق لعدد الأسئلة الفعلي
       Dim f As Integer = q * c2.Text

       'معرفة عدد الأسئلة الساقطة بعد عملية القسمة في حالة القسمة لا تقبل
       Dim q2 As Integer = c1.Text - f

       For I As Integer = 1 To c2.Text
           Dim qq As Integer = q

           If (q2 > 0) Then
               MsgBox("الفترة " & I & " = " & qq + 1 & " أسئلة")
           Else
               MsgBox("الفترة " & I & " = " & qq & " أسئلة")
           End If

           q2 = q2 - 1
       Next

اما فيما يخص الوقت لكل فترة فبصراحه ماعندي وقت اعملها ولكن نفس الفكرة طبقها وراح توصل للحل .