1. //打开画图程序，并最大化，调整默认大小再运行脚本就OK。这个步骤的代码我就不写啦。
2. //主要原理是先随机抽出6个不重复的字符，再把字符原来的坐标（已经收集好，超多）旋转缩放再平移，然后再画出来
3. //定义变量
4. 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)
5. （VBScript语句） i=1:ii=1:j=1:k=1:l=1:q=1:n=1:o=1
6. //生成随机数，36选6不重复
7. 循环 6 遍
8.     M(ii)=37
9.     ii=ii+1
10. 循环结束
11. （VBScript语句） ii=1
12. Rnd(-1)
13. Randomize
14. 循环 6 遍
15.     标记 start
16.     （VBScript语句） p=Int((36-1+1)*Rnd+1)
17.     （VBScript语句） ii=1
18.     循环 6 遍
19.         如果表达式 (p=M(ii)) 为真,则
20.             跳转到标记 start
21.         否则
22.             ii=ii+1
23.         条件结束
24.     循环结束
25.     （VBScript语句） ii=1
26.     （VBScript语句） M(i)=p
27.     i=i+1
28. 循环结束
29. （VBScript语句） ii=1
30. （VBScript语句） i=1
31. //判断对应字符的子程序
32. 循环 6 遍
33.     如果表达式 (M(ii)=1) 为真,则
34.         调用子程序 A
35.     条件结束
36.     如果表达式 (M(ii)=2) 为真,则
37.         调用子程序 B
38.     条件结束
39.     如果表达式 (M(ii)=3) 为真,则
40.         调用子程序 C
41.     条件结束
42.     如果表达式 (M(ii)=4) 为真,则
43.         调用子程序 D
44.     条件结束
45.     如果表达式 (M(ii)=5) 为真,则
46.         调用子程序 E
47.     条件结束
48.     如果表达式 (M(ii)=6) 为真,则
49.         调用子程序 F
50.     条件结束
51.     如果表达式 (M(ii)=7) 为真,则
52.         调用子程序 G
53.     条件结束
54.     如果表达式 (M(ii)=8) 为真,则
55.         调用子程序 H
56.     条件结束
57.     如果表达式 (M(ii)=9) 为真,则
58.         调用子程序 I
59.     条件结束
60.     如果表达式 (M(ii)=10) 为真,则
61.         调用子程序 J
62.     条件结束
63.     如果表达式 (M(ii)=11) 为真,则
64.         调用子程序 K
65.     条件结束
66.     如果表达式 (M(ii)=12) 为真,则
67.         调用子程序 L
68.     条件结束
69.     如果表达式 (M(ii)=13) 为真,则
70.         调用子程序 M
71.     条件结束
72.     如果表达式 (M(ii)=14) 为真,则
73.         调用子程序 N
74.     条件结束
75.     如果表达式 (M(ii)=15) 为真,则
76.         调用子程序 O
77.     条件结束
78.     如果表达式 (M(ii)=16) 为真,则
79.         调用子程序 P
80.     条件结束
81.     如果表达式 (M(ii)=17) 为真,则
82.         调用子程序 Q
83.     条件结束
84.     如果表达式 (M(ii)=18) 为真,则
85.         调用子程序 R
86.     条件结束
87.     如果表达式 (M(ii)=19) 为真,则
88.         调用子程序 S
89.     条件结束
90.     如果表达式 (M(ii)=20) 为真,则
91.         调用子程序 T
92.     条件结束
93.     如果表达式 (M(ii)=21) 为真,则
94.         调用子程序 U
95.     条件结束
96.     如果表达式 (M(ii)=22) 为真,则
97.         调用子程序 V
98.     条件结束
99.     如果表达式 (M(ii)=23) 为真,则
100.         调用子程序 W