.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 控件组, 控件组, , "0" .子程序 _按钮_启动_被单击 .局部变量 来源按钮, 按钮 .局部变量 选项, 整数型 .局部变量 来源索引, 整数型 来源按钮 ＝ 取事件组件 () 来源索引 ＝ 到整数 (来源按钮.标记) .判断开始 (控件组 [来源索引].单选框组 [1].选中) 选项 ＝ 1 .判断 (控件组 [来源索引].单选框组 [2].选中) 选项 ＝ 2 .判断 (控件组 [来源索引].单选框组 [3].选中) 选项 ＝ 3 .默认 选项 ＝ 4 .判断结束 信息框 (取文本 (“来自第%d个控件组,%s”, 来源索引, 多项选择 (选项, “选择了第1个选项”, “选择了第2个选项”, “选择了第3个选项”, “没有选中”)), 0, “已选择选项”, _启动窗口) .子程序 _按钮1_被单击 .局部变量 控件组数, 整数型 .局部变量 i, 整数型 .局部变量 控件顶边, 整数型 控件组数 ＝ 到整数 (编辑框1.内容) 重定义数组 (控件组, 假, 控件组数) .计次循环首 (控件组数, i) 控件顶边 ＝ 控件顶边 ＋ 60 ' 处理标签 复制窗口组件 (标签1, 控件组 <i>.标签) 控件组 <i>.标签.标题 ＝ “标签” ＋ 到文本 (i) 控件组 <i>.标签.顶边 ＝ 控件顶边 控件组 <i>.标签.可视 ＝ 真 ' 处理选项组 复制窗口组件 (分组框1, 控件组 <i>.分组框) 控件组 <i>.分组框.顶边 ＝ 控件顶边 － 16 控件组 <i>.分组框.可视 ＝ 真 复制窗口组件 (单选框_选项1, 控件组 <i>.单选框组 [1]) 复制窗口组件 (单选框_选项2, 控件组 <i>.单选框组 [2]) 复制窗口组件 (单选框_选项3, 控件组 <i>.单选框组 [3]) ' 设置单选框父窗口 控件组 <i>.单选框组 [1].置父窗口 (控件组 <i>.分组框) 控件组 <i>.单选框组 [2].置父窗口 (控件组 <i>.分组框) 控件组 <i>.单选框组 [3].置父窗口 (控件组 <i>.分组框) 控件组 <i>.单选框组 [1].可视 ＝ 真 控件组 <i>.单选框组 [2].可视 ＝ 真 控件组 <i>.单选框组 [3].可视 ＝ 真 ' 处理按钮 复制窗口组件 (按钮_启动, 控件组 <i>.按钮) 控件组 <i>.按钮.标记 ＝ 到文本 (i) 控件组 <i>.按钮.顶边 ＝ 控件顶边 － 6 控件组 <i>.按钮.可视 ＝ 真 .计次循环尾 ()