＜

dim suijishu,xuanzima,yanzhengma
randomize
yanzhengma=""
for i=1 to 4
suijishu=INT((44+1)*RND)
select case suijishu
case 0 xuanzima="0"
case 1 xuanzima="1"
case 2 xuanzima="2"
case 3 xuanzima="3"
case 4 xuanzima="4"
case 5 xuanzima="5"
case 6 xuanzima="6"
case 7 xuanzima="7"
case 8 xuanzima="8"
case 9 xuanzima="9"
case 10 xuanzima="A"
case 11 xuanzima="B"
case 12 xuanzima="C"
case 13 xuanzima="D"
case 14 xuanzima="E"
case 15 xuanzima="F"
case 16 xuanzima="G"
case 17 xuanzima="H"
case 18 xuanzima="J"
case 19 xuanzima="K"
case 20 xuanzima="L"
case 21 xuanzima="M"
case 22 xuanzima="N"
case 23 xuanzima="P"
case 24 xuanzima="Q"
case 25 xuanzima="R"
case 26 xuanzima="S"
case 27 xuanzima="T"
case 28 xuanzima="U"
case 29 xuanzima="V"
case 30 xuanzima="W"
case 31 xuanzima="X"
case 32 xuanzima="Y"
case 33 xuanzima="Z"
case 34 xuanzima="a"
case 35 xuanzima="b"
case 36 xuanzima="d"
case 37 xuanzima="e"
case 38 xuanzima="f"
case 39 xuanzima="g"
case 40 xuanzima="h"
case 41 xuanzima="m"
case 42 xuanzima="n"
case 43 xuanzima="r"
case 44 xuanzima="t"
case else
xuanzima="+"
end select
yanzhengma=yanzhengma & xuanzima
next

＞