如何让VB产生6位随机数,每位都是A-Z,0-9并排开O,I

Question

在SQL中,可以做出来,但在VB不知如何做出来.谢谢!

Answer 1

dim chars as string
dim rndstr as string
chars = "ABCDEFGHJKLMNPQRSTUVWXYZ0123456789"
randomize
for i = 1 to 6
    rndstr = rndstr & mid(chars, int(rnd() * (len(chars) + 1)), 1)
next
msgbox rndstr

Answer 2

rndstr = rndstr & mid(chars, int(rnd() * (len(chars) + 1)), 1)
有时会报错..

Answer 3

dim chars as string
dim rndstr as string
chars = "ABCDEFGHJKLMNPQRSTUVWXYZ0123456789"
randomize
for i = 1 to 6
    rndstr = rndstr & mid(chars, int(rnd() * len(chars) + 1), 1)
next
msgbox rndstr这样呢。

Answer 4

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP