برنامه انتخاب تصادفی اسم

[kv.1990]

سلام
یه کمک میخوام
برنامه ای میخوام که 30 تا اسم رو از ورودی دریافت کنه و به صورت تصادفی 3 نفر رو انتخاب کنه و هر بار هم تکراری نباشه
ممنون

[ms-ninja]

کار زیاد سختی نیست

یک آرایه نیاز داری + تابع Random

[kv.1990]

میخوام این قابلیت رو داشته باشه که بشه اسمی رو حذف یا بهش اضافه کرد
کدش رو میتونی برام بذاری
و اینکه به چه عناصری احتیاج داره

[kv.1990]

دوستان کسی نیست کد های این برنامه رو بده

[mmssoft]

یه لیست باکس و یه دکمه روی فرم بذارید :

Private Sub Command1_Click()

Static iAr(0 To 29, 0 To 29) As Variant
Dim i As Integer, x As Integer, b As Integer, c As Integer, a As String

For i = 0 To 29

a = InputBox("", "Name " & Trim(Str(i)))

iAr(i, 1) = i
iAr(i, 2) = a

Next

List1.Clear

Randomize Time
x = Round(Rnd * 29)
b = x

While x = b
b = Round(Rnd * 29)
Wend

c = b

While c = b Or c = x
c = Round(Rnd * 29)
Wend

List1.AddItem iAr(x, 2)
List1.AddItem iAr(b, 2)
List1.AddItem iAr(c, 2)

End Sub

[kv.1990]

خیلی ممنون بابت کد
فقط برای حذف و اضافه چه برنامه ای بنویسم؟
ممنون

[kv.1990]

برنامه رو اجرا کردم خیلی خوب اجرا شد فقط یه مسئله
من میخواستم که اگه بشه اسامی به طور دائم در برنامه باشه و قابلیت حذف و اضافه هم داشته باشه
ممنون

[mmssoft]

دوست عزیز من ایده کلی رو براتون انجام دادم و چیزهایی که گفتید فقط به یه سری خلاقیت نیاز داره، به هر حال، من کامل سورسش رو نوشتم (چون بعدها خودم هم بهش نیاز خواهم داشت) و لقمه کامل رو میذارم تو دهنتون :D

فکر نکنم دیگه راحت تر از این بتونید به چیزی که میخواید برسید...

[kv.1990]

خدا خیرت بده خیلی کمک کردی لغمه بزرگی بود
vb من زیاد خوب نیست و هی به مشگل میخوردم

[mmssoft]

بهتره یه کم با کدها و تابع ها ور بری، بعد مسلط میشی...
در ضمن اون سورس قبلی یکی دو تا مشکل خیلی کوچیک داشت که برطرفش کردم :