شناخت کلمه

[Hossein.x7]

سلام
من یه کد میخوام بنویسم که چندتا کلمه بگیره( هزارتا دو هزارتا هر چندتا) بعد با زدن یه دکمه 12 تا کلمه راندوم از بین این کلمات انتخاب کنه و نمایش بده. کسی میتونه به من کمک کنه یا لطف کنه برام بنویسه این کد رو؟ من خودم مدرک ویژوال بیسیک دارم ولی چون برا قبل هست فراموش کردم یه خورده اش اگر راهنمایی هم کنید خودم میتونم بنویسمش. خیلی ممنونم.

[ROSTAM2]

سلام
ببین این کد برای VB6 جواب می ده؟

Dim Words() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
Dim R As New Random()
For i = 0 To 12
Dim Number As Integer = R.Next(Words.Length - 1)
Debug.Print(" {0}:> {2}", i, Number, Words(Number))
Next

[vbhamed]

سلام
کلمات رو در یک آرایه بزار و با تابع rnd و در یک حلقه، عدد تصادفی به تعداد دلخواه تولید کن و اون عنصر آرایه رو بردار
randomize timer
dim w(2000)
w(0)=""
w(1)=""
w(1999)=""
dim i%, x&
for i = 1 to 12
x = int(rnd * 1999) + 1
msgbox w(x)
next