ساخت عدد

[tehran2009]

دوستان چطوری میشه برنامه نوشت که اگه یک عددی مثل 123 بش دادم تمام اعدادی که با این 3 رقم ساخته بشه رو لیت کنه ؟؟؟ (مثلاً 123 رو بگیره و اعداد رو لیست کنه 123 و 213 و 312 و ...)
ممنون میشم با پروژه های وی بی توضیح بدین.

[ahmads]

یه چیزی نوشتم اما خیلی پیچوندمش ، انشالله فردا صبح اگه وقت کردم کلا عوضش میکنم، الان به یه چیزی پی بردم اما وقت نمیکنم امتحانش کنم :لبخند:

فعلا با این کد میتونید برای یک عدد سه رقمی که اعدادش پشت سر هم هستن به نتیجه برسید،



Private Sub Command1_Click()
List1.Clear
u = Len(Text1.Text)
ReDim a(u) As String
For i = 1 To u
a(i) = Mid(Text1.Text, i, 1)
Next i
For i = 1 To u
For j = u - i To 1 Step -1
If a(j) > a((u + 1) - i) Then
t = a((u + 1) - i)
a((u + 1) - i) = a(j)
a(j) = t
End If
Next j
Next i
For i = a(1) To a(3)
For j = a(1) To a(3)
For k = a(1) To a(3)
If i <> j And i <> k And j <> k Then
List1.AddItem i & j & k
End If
Next k
Next j
Next i
End Sub
یک کلید command و یک list و یک textbox لازم دارید

[vahid3vahid]

بفرما اینم جواب:


Dim n$
n = InputBox("")
For n1 = 1 To 3
For n2 = 1 To 3
For n3 = 1 To 3
If (n1 <> n2 And n1 <> n3 And n1 <> n4) And _
(n2 <> n1 And n2 <> n3 And n2 <> n4) And _
(n3 <> n1 And n3 <> n2 And n3 <> n4) And _
(n4 <> n1 And n4 <> n2 And n4 <> n3) Then
Print Mid(n, n1, 1) & Mid(n, n2, 1) & Mid(n, n3, 1)
End If
Next n3, n2, n1

[tehran2009]

مرسی از جوابتون اما
اعدادرو تکراری میسازه. :متفکر:

[vahid3vahid]

من با 10 تا عدد امتحان کردم و هیچ کدوم تکراری نبود، شاید اعداد بیش از 3 رقمی وارد کردید

[tehran2009]

من عدد 12 را به برنامه دادم از خروجیشم عکس گرفتم.

من می خوام هر عددی که بش دادم رو واسم بسازه.

[modirmasool]

بفرمایین البته تا اعداد 5 رقمی رو نهایتا ساپورت میکنه اگه بیشتر خواستین خودتون اضافه کنین.
اعداد تکراری رو تولید نمیکنه و به ترتیب هستش(اعداد رو مرتب شده تحویل میده) به علاوه اینکه با صفر مشکلی نداره. چون وقت نداشتم باگ های احتمالیشو بگیرم اگه احتمالا مشکلی داشت بگین تا درستش کنم.

[tehran2009]

این کارش خوب بود اما نمی شه کاریش کرد که حداقل تا 8 رقم ساپورت بده ؟؟؟

[modirmasool]

خودتون اضافه کنین دیگه بعد از شرطی که مال n=5 هستش تا هشت بنویسین.

[tehran2009]

والا من توی این سورس گم شدم :لبخند:
ممنون میشم یه نظری به این سورس کنی و کار ما راه بیوفته (البته اگه ممکنه ها ) :قلب:

[modirmasool]

این تا هفت رقمش. راستی اعداد رو حالا در فایل تکست تولید میکنه.
برای هشتمیش هم کد رو نگاه کنین میفهمین. البته اگه لازم ندارین هشتمیشو نذارین چون تولید اعدادشممکنه یکم طول بکشه.