
.版本 2
.子程序 _选择框1_被单击
.如果 (选择框1.选中 = 真)
连续赋值 (真, 选择框2.禁止, 选择框3.禁止, 选择框4.禁止, 选择框5.禁止, 选择框6.禁止)
.否则
连续赋值 (假, 选择框2.禁止, 选择框3.禁止, 选择框4.禁止, 选择框5.禁止, 选择框6.禁止)
.如果结束
.子程序 _选择框2_被单击
.如果 (选择框2.选中 = 真)
连续赋值 (真, 选择框1.禁止, 选择框3.禁止, 选择框4.禁止, 选择框5.禁止, 选择框6.禁止)
.否则
连续赋值 (假, 选择框1.禁止, 选择框3.禁止, 选择框4.禁止, 选择框5.禁止, 选择框6.禁止)
.如果结束
.子程序 _选择框3_被单击
.如果 (选择框3.选中 = 真)
连续赋值 (真, 选择框2.禁止, 选择框1.禁止, 选择框4.禁止, 选择框5.禁止, 选择框6.禁止)
.否则
连续赋值 (假, 选择框2.禁止, 选择框1.禁止, 选择框4.禁止, 选择框5.禁止, 选择框6.禁止)
.如果结束
.子程序 _选择框4_被单击
.如果 (选择框4.选中 = 真)
连续赋值 (真, 选择框2.禁止, 选择框3.禁止, 选择框1.禁止, 选择框5.禁止, 选择框6.禁止)
.否则
连续赋值 (假, 选择框2.禁止, 选择框3.禁止, 选择框1.禁止, 选择框5.禁止, 选择框6.禁止)
.如果结束
.子程序 _选择框5_被单击
.如果 (选择框5.选中 = 真)
连续赋值 (真, 选择框2.禁止, 选择框3.禁止, 选择框4.禁止, 选择框1.禁止, 选择框6.禁止)
.否则
连续赋值 (假, 选择框2.禁止, 选择框3.禁止, 选择框4.禁止, 选择框1.禁止, 选择框6.禁止)
.如果结束
.子程序 _选择框6_被单击
.如果 (选择框6.选中 = 真)
连续赋值 (真, 选择框2.禁止, 选择框3.禁止, 选择框4.禁止, 选择框5.禁止, 选择框1.禁止)
.否则
连续赋值 (假, 选择框2.禁止, 选择框3.禁止, 选择框4.禁止, 选择框5.禁止, 选择框1.禁止)
.如果结束
.版本 2
.程序集 窗口程序集1
.子程序 _选择框1_被单击
选择框2.选中 = 假
选择框3.选中 = 假
选择框4.选中 = 假
选择框2.禁止 = 真
选择框3.禁止 = 真
选择框4.禁止 = 真