VBA Write a loop that creates Random Numbers converts them to ASCII, and concatenates it to create an eight character key -
i'm able create random number between 33 , 126 , convert corresponding character/ascii code cannot repeat these steps generate 8 character key, know need sort of loop. have done far:
randomnumber = randomclass.next() randomnumber = randomclass.next(33, 126) key.text = randomnumber key2.text = chr(int(key.text)) end sub function random() dim arr(7) integer dim integer, j integer = 1 randomnumber = randomclass.next() randomnumber = randomclass.next(33, 126) randomnumber(i) = randomnumber(i) + randomnumber(i - 1) = + 1 loop until = 8 return randomnumber end function
end class
Comments
Post a Comment