6
处理组为2对子数为6
compute
bkloop
umber1to
computepairr
d
umber1k05e
dcasecomputeklagke
dloope
dfilee
di
putprogram
结束数据录入程序段
setseed20071222
设定随机种子为20071222
computera
domu
iform1ra
kvariablesra
dombypair
产生范围在01之间的伪随机数对伪随机数排序
formatsrra
domF30compute
treatsubstr