请教如何随机成字母和数字

sakura1528

请问高手一下啊   如何随即生成 字母和数字 如A-Z 0-9

最好位数也是随即出的 5-10位  在这里先谢谢高手

rho123

MsgBox(0,"随机字母(5-10位)",_ran_dom(1,Random(5, 10, 1)))
MsgBox(0,"随机数字(5-10位)",_ran_dom(0,Random(5, 10, 1)))


Func _ran_dom($var,$n)
        $cdk = ""
        if $var = 1 then 
             FOR $i= 1 to $n
              $cdk = $cdk&Chr(Random(Asc("a"), Asc("z")))
             Next
         Else
             FOR $i= 1 to $n
              $cdk = $cdk&Chr(Random(Asc("1"), Asc("9")))
            Next
        EndIf 
        Return $cdk
EndFunc

非常简陋，见笑了

sakura1528

谢谢啦  回去消化消化下

烤地瓜

了解!

songtao

呵呵， 收了。。。

倚栏听风

大写字母  A-Z
chr(random(65,90,1))
小写字母 a-z
chr(random(97,122,1))
数字
random(0,9,1)

位数就用 FOR
例如
dim $str=""
for $i = 1 to 5
    $str = $str & chr(random(65,90,1))
next
msgbox(0,"A-Z",$str)