使用密钥向导输出 5 位随机十六进制数字脚本

这个想法可以这样构思：

十六进制数，其实是0123456789abcdef那么：我们只需要使用即时函数，然后得到一个介于1到16之间的数字，如果是0 9，就按原样输出，如果是10 16，就会被转换成abcdef

for 5randomize

a=int(rnd*16)

if a=10 then

a="a"elseif a=11 thena="b"elseif a=12 thena="c"elseif a=13 thena="d"elseif a=14 thena="e"elseif a=15 thena="f"end if

code=code & a

Nextmsgbox 代码代码结果，其中包含一个 5 位十六进制数。

dim a(26)

a(1)="a"

a(2)="b"

a(3)="c"

a(4)="d"

a(5) ="e"

a(6)="f"

a(7)="g"

a(8)="h"

a(9)="i"

a(10) = "j"

a(11)="k"

a(12)="l"

a(13)="m"

a(14)="n"

a(15) = "o"

a(16)="p"

a(17)="q"

a(18)="r"

a(19)="s"

a(20) = "t"

a(21)="u"

a(22)="v"

a(23)="w"

a(24)="x"

a(25) = "y"

a(26) = "z"

randomize

i = int((26* rnd) +1)n = a(i)

saystring n

以上是随机输出的26个字母之一，相信应该可以改了吧！

randomize

x = int(int * 9) +1

变量 x 是您想要的从 1 到 9 的随机数。

dim myvalue, responserandomize '初始化随机数生成器。

do until response = vbnomyvalue = int((999999 * rnd) +1) '生成介于 1 和 999999 之间的随机数。

msgbox "随机数："&myvalueloop

do randomize

随机数 = int（（9999 * rnd） +1）如果随机数> 1000 那么

exit do

end if

looptraceprint 随机数。

这应该是随机生成的 4 位数字，这是效果吗？

rem start

randomize

获取 1 999 之间的随机数。

x = int（（999 * rnd） +1） 确定数字是否为 8 位，如果不是 8 位，则重新生成 如果 x<1000 则

goto start

end if

saystring x

将数字转换为随机数，并将它们转换为字母或数字。

账号和密码都可以这样生成，密码的位数也可以控制。

随机数 = 5

对于随机数。

randomize

获取 0 到 35 之间的随机数。

x = int(36 * rnd)

大于或等于 10 将转换为小写字母。

if x>9

x=chr(x+87)

endify=y&x

nextmsgbox y