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个字母的其中1个,相信自己应该会改了吧!
x=1
For 999
y=len(x)
If y=1
z="00"&x
ElseIf y=2
z="0"&x
Else
z=x
EndIf
SayString "A"&z&"EFGH"
x=x+1
Delay 10
EndFor