السلام عليكم
- على حسب مافهمت . تستطيع عمل هذا :
كود :
Private Sub Command1_Click()
Dim N As String
Dim I As Integer
Dim Z As Integer
N = InputBox(". ", "أدخل قيمة N")
For I = 1 To Val(Trim$(N))
For Z = I To 20
Rem "N وهكذا وهكذا .........حتى نصل لقيمة "
Rem "مثلا فان آخر جملة تكون N=9 فاذا كانت "
Rem " I1,I2,I3,.......هنا توجد مجموعة الجمل المحتوية على كل من"
Next Z
Next I
End Sub
جزاكم الله خيرا
ولكن هذا الكود يحتوى على متغيرين اثنين فقط(Z,I)
أما الكود الذى أريده فيحتوى على عدة متغيرات عددها=In,......,I3,[SIZE=4]I2,I1) N)
[/SIZE]
السلام عليكم
- أخي تستطيع أن تضع الجمل في داخل لووب أو فور الz حيث أن لووب z تبدأ من ال 1 إلى العدد الذي كتبة المستخدم . مثل كودك السابق ولكن مختصر .
يعني ال z سيكون في كل مره z1،z2,z3.....z9
السلام عليكم...
إذا ذكرت لنا ما الغرض من ذلك فربما نستطيع مساعدتك بشكل أسهل.
سلام.
الغرض من ذلك هو عملية توافيق واحتمالات
فاذا كان لينا 6 أشياء نريد اختيار 3منهم فكلنايعلم ان عدد طرق اختيارهم=6ق3 =(1*2*3)/(4*5*6)=20
ولكنى أريد سرد كل احتمالات طرق الاختيار الممكنة وليس معرفة عددهم فقط
أى اريد سرد (1,2,6) , (1,2,5) , (1,2,4) , (1,2,3)
(1,3,6) , (1,3,5) , (1,3,4)
(1,4,6) , (1,4,5)
(1,5,6)
ثم سرد (2,3,6) , (2,3,5) , (2,3,4)
(2,4,6) , (2,4,5)
(2,5,6)
ثم سرد (3,4,6) , (3,4,5)
(3,5,6)
ثم سرد (4,5,6)
[SIZE=4]وأريد طبعآ مثل ذلك لأى عددين غير ال6 أو ال3[/SIZE]
اسلام الكبابى كتب :جزاكم الله خيرا
ولكن هذا الكود يحتوى على متغيرين اثنين فقط(z,i)
أما الكود الذى أريده فيحتوى على عدة متغيرات عددها=in,......,i3,[size=4]i2,i1) n)
[/size]
اخي العزيز يكنك استبدال جميع المتغيرات والتي عددها n بمصفوفة حجمها n ويمكنك تعريفها واستخدامها بالطريقة التالية
كود :
Dim Arr() As String
Dim N As Integer
N = InputBox("ادخل عدد المتغيرات")
If Val(N) < 0 Then Exit Sub
ReDim Arr(Val(N))
Dim I As Integer
For I = 0 To N
Arr(I) = I
Next
هذا مرفق به [SIZE=3][b]مثال بسيط يوضح للجميع الكود الذى أريده اذا كان لينا 8 أشياء نريد اختيار 3منهم مثلآ 8ق3
[/b][/SIZE][SIZE=3][b][SIZE=3]ومثال بسيط آ[SIZE=3]خر[/SIZE] يوضح للجميع الكود الذى أريده اذا كان لينا 8 أشياء نريد اختيار 4منهم مثلآ 8ق4
[/SIZE]
[/b][/SIZE][ATTACH]2672[/ATTACH]ولكنى أريد مثالآ عامآ[SIZE=3] لأى رقمين[/SIZE]
السلام عليكم
- هذا مثال على حسب مافهمت . من ردودك الاخيرة . علماً أن المثال أظهر نفس النتيجة التي شرحتها في ردك التي ذكرت فيه طريقة السرد .
- تحياتي .