某研究人员欲将1 2只小鼠按月龄、体重相近的原则配成对，然后将每一对中的小鼠随机分配到实验组和对照组，应如何分组？
解：先将6对小鼠按体重从小到大的顺序编号，再从随机数字表中任一行或列，如第1 8行最左端开始横向连续取1 2个两位数字。事先规定，每一对中，随机数较小者序号为1，对应于A组，随机数较大者序号为2，对应于B组。分配结果见表3 - 10
表3 _1 配对设计的12只小鼠随机分组的结果
打开SPSS Data Editor窗口，点击VariableView标签，定义要输入的变量number和pair，
再点击DataView标签，录入数据（图3-1，图3-2）o
图3 -1 Variable View窗口内定义要输入的变量number和pair
图3-2 Data View窗口内录人数据
分析
Transform Random Num er Generators...
Active Generator Initialization
Set Starting Point
Fixed Valuc
Value:键入 20071222
Transform Compute Variable...
Target Valuable:键入 random
Numeric Expression:RV. Uniform(0,1)
Transform Rank Cases... .
Variables( s) : random
By: pair
设定随机种子为20071222
产生范围在0～1之间的伪随机数
对每个对子中的两个伪随机数进行排序
注：当样本量较大时，最好编程实现，以免除数据录入的不便。以下为SPSS的Syntax窗口中用编程来完成本题。
File~New- -Syntax，打开Syntax窗口，键入如下程序：
lnput program． 开始数据录入程序段
numeric k b n number pair(F8. O)/random(F8. 6).
string treat(Al).
compute k=2.
compute b=6.
compute n- b' k. .
loop number-l to n*
compute pair= rnd 《nurnber-l)/k+0. 5).
end case.
compute k=lag(k).
end loop.
end file.
end input program*
set seed 20071222.
compute random=uniform(l).
rank variables=random by pair.
formats rrandom(F3. 0).
compute
treat=substr("ABCDEFGH KLA/IN"9rrandom,l).
list number pair treat.
在Syntax窗口中选择Run →All提交运行。
处理组为2
对子数为6
结束数据录入程序段
设定随机种子为2007 1 222
产生范围在o～1之间的伪随机数
对伪随机数排序
根据伪随机数的序号进行分组
结果中显示受试对象编号及被分到的处理组
注：程序中的b（即对子数）可根据实际情况赋予不同的值。随机区组设计受试对象的分配也可以用此程序来实现，仅需将k值设为处理组数，b值设为相应的区组数。
结果及解释
编程实现随机分配的结果见Data View窗口（图3-3）或Output窗口。
DataView窗口
Output窗口
图3-3 SPSS编程实现受试对象随机分配结果
List
number pair treat
1 1 A
2 1 B
3 2 A
4 2 B
5 3 B
6 3 A
7 4 A
8 4 B
9 5 B
10 5 A
11 6 B
12 6 A
可以看出，12只小鼠被随机分配到A组和B组。在用此程序进行随机分组前，规定A组表
示实验组，B组表示对照组。则1、3、6、7、10、12号小鼠被分到实验组，2.4、5、8、9、11号小鼠被分到对照组。
