اینو امتحان کن
'module
Public Function CreateNewName() As String
Dim Consonnants As String
Dim Vowels As String
Dim I As Integer
Dim Name As String
Randomize Timer
Consonnants = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW XYZ0123456789" '
Vowels = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
Do
For I = 1 To Rnd * 2 + 1
Name = Name & Mid$(Consonnants, Rnd * Len(Consonnants) + 1, 1) & Mid$(Vowels, Rnd * (Len(Vowels) - 1) + 1, 1)
Next I
Loop Until Len(Name) > 2
If Len(Name) = 3 And Int(Rnd * 3) = 0 Then Name = Name & Name
If Len(Name) = 3 And Int(Rnd * 3) = 0 Then Name = Mid$(Name, 3, 1) & Mid$(Name, 2, 1) & Name
Name = UCase(Left$(Name, 1)) + Trim$(Mid$(Name, 2))
If Len(Name) > 4 And Int(Rnd * 3) = 0 Then Name = Left$(Name, Len(Name) - 1)
I = Int(Rnd * 3)
If Len(Name) > 4 And Int(Rnd * 15) = 0 Then Name = Left$(Name, 1 + I) & "-" & Mid$(Name, 3 + I)
If Len(Name) < 7 And Int(Rnd * 15) = 0 Then Name = Name & Mid$(" Jr. Sr.ssonson boy girlman manndude2000 2.0oo #1 ", Int(Rnd * 13) * 4 + 1, 4)
If Len(Name) < 7 And Int(Rnd * 15) = 0 Then Name = Trim$(Mid$("Dr. Mr. Ms. Joe ", Int(Rnd * 4) * 4 + 1, 4)) & " " & Name
CreateNewName = Trim$(Name)
End Function
' main form Timer
Private Sub Timer1_Timer()
List1.AddItem CreateNewName()
End Sub