Function genAdvRndString(ByRef length As Integer) As String
Randomize()
Dim allowableChars As String
allowableChars = "!@#$%^&*()?><1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Dim i As Integer
For i = 1 To length
genAdvRndString = genAdvRndString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1)
Next
End Function
سوال برنامه نویسی دارید؟
ندونستن عیب نیست، نپرسیدن چرا!