Velmi jednoduchá funcioncita vrací náhodný řetězec znaků. 

 'Řetězec znaků, že jsme
 Soukromý Const c_caracteres = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890abcdefghijklmnñopqrstuvwxyz"

 'Postavy opcionales'cuantos parametry potřebujete, a místo, kde řetězec je mimo
 Dame_text_rnd Soukromé funkce (volitelně několik As Integer = 1, volitelný řetězec jako řetězec = c_caracteres) As String
 Dim i As Integer
 Dim délka As Integer
 length = Len (str)
 Náhodně pro i = 1 pro všechny,
 dame_text_rnd = dame_text_rnd & & Mid (řetězec, int ((délka * RND) + 1), 1)
 Dále jsem
 End Function

Související Příspěvky