这个代码太重复 求高手优化一下

小初学者

最简单的一个小程序  就是这个代码太重复.求高手给优化一下..   估计 头会晕.   在此谢了

补充内容 (2012-1-15 11:25):
源码 在下面

小初学者

这个是源码

a123456d

用复制窗口组件可以实现

科学奇迹

没人来哦

科学奇迹

希望ge好评

科学奇迹

[e]
.版本 2

.程序集 窗口程序集1

.子程序 投票
.参数 标签, 标签
.参数 编辑框, 编辑框
.局部变量 数值

.如果 (编辑框.禁止)
    数值 ＝ －到数值 (编辑框.内容)
    编辑框.背景颜色 ＝ #白色
    标签.文本颜色 ＝ #黑色
    编辑框.内容 ＝ “”
.否则
    数值 ＝ 到数值 (编辑框.内容)
    .判断开始 (单选框1.选中 ＝ 真)
        标签.文本颜色 ＝ #红色
    .判断 (单选框2.选中 ＝ 真)
        标签.文本颜色 ＝ #蓝色
    .默认
        标签.文本颜色 ＝ #绿色
    .判断结束
    编辑框.背景颜色 ＝ #浅灰
.如果结束
编辑框.禁止 ＝ 取反 (编辑框.禁止)
.判断开始 (单选框1.选中)
    编辑框9.内容 ＝ 到文本 (到数值 (编辑框9.内容) ＋ 数值)
.判断 (单选框2.选中)
    编辑框10.内容 ＝ 到文本 (到数值 (编辑框10.内容) ＋ 数值)
.默认
    编辑框11.内容 ＝ 到文本 (到数值 (编辑框11.内容) ＋ 数值)
.判断结束


.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签1, 编辑框1)

.子程序 _标签2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签2, 编辑框2)

.子程序 _标签3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签3, 编辑框3)

.子程序 _标签4_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签4, 编辑框4)

.子程序 _标签5_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签5, 编辑框5)

.子程序 _标签6_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签6, 编辑框6)

.子程序 _标签7_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签7, 编辑框7)

.子程序 _标签8_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

投票 (标签8, 编辑框8)
[/e]