Const str = "abcdefghijklmnopqrstuvwxyz"
Num = cint(Inputbox("How many random char you want?"))
Randomize()
For i = 1 To Num
strName = ""
For j = 1 To Num
k = Fix(26 * Rnd())
strChar = Mid(str, k + 1, 1)
strName = strName & strChar
Next
Next
Msgbox strName
Num = cint(Inputbox("How many random char you want?"))
Randomize()
For i = 1 To Num
strName = ""
For j = 1 To Num
k = Fix(26 * Rnd())
strChar = Mid(str, k + 1, 1)
strName = strName & strChar
Next
Next
Msgbox strName
No comments:
Post a Comment