random 4 letters with condition

[toguints2k1]

i dont knw were to put this i hope some one can help me.. i need a code for this:


i am to create a program that generates 4 random letters.
conditions : a letter must not repeate twice
: there must always be a vowel


Pls help.. i knw this is easy,, i just cant find a code.. thanx..

[RobDog888]

Welcome to the Forums.

Do you mean four letters as in documents or letters as in four
characters (a, b, c, d)?

Can you show us a smaple of what you need?

[toguints2k1]

here is the example

the program generates 4 letters that has a vowel

ex. asdf
lkji


as long as there is a vowel and no letter is repeated tiwce..

[zeneri]

Hi,

may be this code will help you:

Function FourLetters() As String
 
  Dim cnt As Integer
  Dim myCharStr As String
  Dim newChr As String
  
  Randomize
  
  Do Until vowelIn(myCharStr)
    myCharStr = RandomCharacter
    For cnt = 2 To 4
      Do
        newChr = RandomCharacter
      Loop Until InStr(myCharStr, newChr) = 0
      myCharStr = myCharStr & newChr
    Next cnt
  Loop
  FourLetters = myCharStr
End Function
 
Private Function RandomCharacter() As String
  RandomCharacter = Chr(Asc("a") + Rnd * 26)
End Function
 
Private Function vowelIn(myCharStr) As Boolean
  Dim i As Integer
  vowelIn = (InStr(myCharStr, "a") > 0) Or _
            (InStr(myCharStr, "e") > 0) Or _
            (InStr(myCharStr, "i") > 0) Or _
            (InStr(myCharStr, "o") > 0) Or _
            (InStr(myCharStr, "u") > 0)
End Function