help radom

how can i make random with word..
like
but i need somethings in end
@angel
i wana @angel in end text box
so how can i do like tht
here for explln

random 6 word
ahshsd@angel
paushf@angel
siuesoj@angel
ahosps@angel

text1.text = text1.text & "@angel"

Code:

---

Dim sEmail(1 to 10) as String
Dim i as Integer, n as Integer, k as Integer

Randomize
For i = 1 to 10
  For k = 1 to 6
      n = Int(Rnd * 26) + 97 '-- 26 letters from "a" with asc=97 to "z" with asc=122
      sEmail(i) = sEmail(i) & Chr$(n)
  Next
  sEmail(i) = sEmail(i) & "@angel"
  Debug.Print sEmail(i)
  '-- No checking duplicate here. A collection can be used to store emails addresses
Next

---

Quote:

---

Originally Posted by anhn

Code:

---

Dim sEmail(1 to 10) as String
Dim i as Integer, n as Integer, k as Integer

Randomize
For i = 1 to 10
  For k = 1 to 6
      n = Int(Rnd * 26) + 97 '-- 26 letters from "a" with asc=97 to "z" with asc=122
      sEmail(i) = sEmail(i) & Chr$(n)
  Next
  sEmail(i) = sEmail(i) & "@angel"
  Debug.Print sEmail(i)
  '-- No checking duplicate here. A collection can be used to store emails addresses
Next

---

---

its working thanks
can u tell me how can i send it in text1.text
i mean its showin in text1.text box?

Quote:

---

Originally Posted by angel.girl

can u tell me how can i send it in text1.text
i mean its showin in text1.text box?

---

I don't understand what you are asking here.

If it is showing in Text1, then it is already there so there wouldn't be any need to send it.

look he post random code its working
when i click on button
but i wana its show in text box
when i click on the button its send show in text1.text
i got no idea how can i..

If you want to get help, please post here. Do not send PM.

Code:

---

Private Sub Form_Load()
  Randomize
End Sub

Private Sub Command1_Click()
  Dim sEmail as String
  Dim n as Integer, k as Integer

  For k = 1 to 6
      n = Int(Rnd * 26) + 97 '-- 26 letters from "a" with asc=97 to "z" with asc=122
      sEmail = sEmail & Chr$(n)
  Next
  sEmail = sEmail & "@noangel"
  Text1.Text = sEmail
End Sub

---

its send to text1.text but when i click on the button show like tht

if u click on time its showin more random caz i wana jus one

qkzctw@angel, nbnsmq@angel, oqbgev@angel, pmatvb@angel, qydrpg@angel, dgldmp@angel, kizdxt@angel, ytsqsi@angel, wzlzkb@angel, jbxkwb@angel

see here i click 1 time and its showin 10
how can do it like click on time button
and
one
hahiss@angel
click agian
hahies@angel
here is randsom projct but wid out angel:8

http://www.2shared.com/file/3233162/...12/random.html

thanks i got its working:)