//打开画图程序，并最大化，调整默认大小再运行脚本就OK。这个步骤的代码我就不写啦。
//主要原理是先随机抽出6个不重复的字符，再把字符原来的坐标（已经收集好，超多）旋转缩放再平移，然后再画出来
//定义变量
dim j,k,l,q,n,o,i,p,ii,M(6),TTx1(350),TTy1(350),TTx2(350),TTy2(350),TTx3(350),TTy3(350),TTx4(350),TTy4(350),TTx5(350),TTy5(350),TTx6(350),TTy6(350)
VBS i=1:ii=1:j=1:k=1:l=1:q=1:n=1:o=1
//生成随机数，36选6不重复
For 6
    M(ii)=37
    ii=ii+1
EndFor 
VBS ii=1
Rnd(-1)
Randomize
For 6
    Rem start
    VBS p=Int((36-1+1)*Rnd+1)
    VBS ii=1
    For 6
        If p=M(ii)
            Goto start
        Else 
            ii=ii+1
        EndIf 
    EndFor 
    VBS ii=1
    VBS M(i)=p
    i=i+1
EndFor 
VBS ii=1
VBS i=1
//判断对应字符的子程序
For 6
    If M(ii)=1
        Gosub A
    EndIf 
    If M(ii)=2
        Gosub B
    EndIf 
    If M(ii)=3
        Gosub C
    EndIf 
    If M(ii)=4
        Gosub D
    EndIf 
    If M(ii)=5
        Gosub E
    EndIf 
    If M(ii)=6
        Gosub F
    EndIf 
    If M(ii)=7
        Gosub G
    EndIf 
    If M(ii)=8
        Gosub H
    EndIf 
    If M(ii)=9
        Gosub I
    EndIf 
    If M(ii)=10
        Gosub J
    EndIf 
    If M(ii)=11
        Gosub K
    EndIf 
    If M(ii)=12
        Gosub L
    EndIf 
    If M(ii)=13
        Gosub M
    EndIf 
    If M(ii)=14
        Gosub N
    EndIf 
    If M(ii)=15
        Gosub O
    EndIf 
    If M(ii)=16
        Gosub P
    EndIf 
    If M(ii)=17
        Gosub Q
    EndIf 
    If M(ii)=18
        Gosub R
    EndIf 
    If M(ii)=19
        Gosub S
    EndIf 
    If M(ii)=20
        Gosub T
    EndIf 
    If M(ii)=21
        Gosub U
    EndIf 
    If M(ii)=22
        Gosub V
    EndIf 
    If M(ii)=23
        Gosub W