السَلآْم عَلْيُكّمٌ وٍرٍحَمُةّ الله وٍبُرٍكآتُهْ
ممكن كود للتحقق من عدد معين مثلا 1142 اذا كان ينتمي للسلسلة التي تبدأ بالعدد 2 وكل عدد يزيد عن الذي قبله بمقدار ثلاثة.
وشكراً.
اذا كان العد يبدأ من 2 ويزيد بمقدار 3
فببساطة اذا طرحنا ال 2 من العدد يجب ان نحصل على عدد يقبل القسمة على 3
يعني باقي قسمة ( الرقم - 2 ) على 3 يجب ان يساوي صفر
كود :
If ((1142- 2) Mod 3) = 0 Then
MsgBox("ينتمي")
Else
MsgBox("لا ينتمي")
End If
للتعميم يمكنك استخدام
كود :
Dim CurrentNumber As Integer
Dim startNumber As Integer ' = 2
Dim stepNumber As Integer ' = 3
CurrentNumber = 1142
startNumber = 2
stepNumber = 3
If ((CurrentNumber - startNumber) Mod stepNumber) = 0 Then
MsgBox ("ينتمي")
Else
MsgBox ("لا ينتمي")
End If
الكود كتبته ب vb.net واعتقد انه يعمل في vb6 ايضا ولكن المهم المنطق خلفه