可能是监视热键问题，使用鼠标点击按钮没事，使用按键就要出错，请指导

canaan

源在这里，请高手看一下，解答一下
秩相关系数计算.rar (93.93 KB, 下载次数: 26)

2011-8-23 23:18 上传

点击文件名下载附件
源


把监视热键这个命令放到按钮被单击这种子程序下面的时候，要先单击一下按钮才会实现监视功能
但是把监视热键这个命令放到最开始后，使用热键的时候会出错，而用鼠标点击按钮的时候不会出错

这是为什么呢？
求解答


贴上来，节约用BB


.版本 2

.程序集 窗口程序集1
.程序集变量 X, 整数型, , , 本身排序数
.程序集变量 Y, , , , 从小到大排序数
.程序集变量 n, 整数型, , , 数值个数
.程序集变量 j, 整数型
.程序集变量 k, 整数型
.程序集变量 d, , , , d方和
.程序集变量 rs, 双精度小数型
.程序集变量 数组, 双精度小数型, , "1"

.子程序 __启动窗口_创建完毕

监视热键 (&_按钮_秩增加_被单击, #回车键, )
监视热键 (&_按钮_秩增加_被单击, #加号键, )
编辑框_秩.获取焦点 ()



.子程序 _按钮_秩增加_被单击

n ＝ n ＋ 1
.如果真 (编辑框_秩.内容 ＝ “”)
    信息框 (“请输入第” ＋ 到文本 (n) ＋ “个数值”, #警告图标, “提示：”)
    n ＝ n － 1

.如果真结束


.如果真 (编辑框_秩.内容 ≠ “”)
    加入成员 (数组, 到数值 (编辑框_秩.内容))
    标签_秩.标题 ＝ “请输入第” ＋ 到文本 (n ＋ 1) ＋ “组数据”
    按钮_秩增加.标题 ＝ “确认输入第” ＋ 到文本 (n ＋ 1) ＋ “组数据”
    编辑框_秩.内容 ＝ “”
    编辑框_秩.获取焦点 ()
.如果真结束





.子程序 _按钮_秩结果_被单击


X ＝ 1
d ＝ 0

.计次循环首 (n, X)
    Y ＝ 1

    .计次循环首 (n, j)

        .如果真 (数组 [X] ＞ 数组 [j])
            Y ＝ Y ＋ 1
        .如果真结束

        .如果真 (数组 [X] ＝ 数组 [j] 且 X ＞ j)
            Y ＝ Y ＋ 1
        .如果真结束

    .计次循环尾 ()

    d ＝ (X － Y) × (X － Y) ＋ d


.计次循环尾 ()


rs ＝ 1 － 6 × d ÷ (n × n × n － n)

标签_结果.标题 ＝ “结果为：” ＋ #换行符 ＋ 到文本 (rs)

数组清零 (数组)
n ＝ 0
X ＝ 1
d ＝ 0
按钮_秩增加.标题 ＝ “确认输入第1组数据”
标签_秩.标题 ＝ “请输入第1组数据”
编辑框_秩.内容 ＝ “”
编辑框_秩.获取焦点 ()

小生怕怕啊

一个子程序同时注册2个热键 ???
监视热键 (&_按钮_秩增加_被单击, #回车键, )
监视热键 (&_按钮_秩增加_被单击, #加号键, )
___________________________________________
监视热键 (&_按钮_秩增加_被单击, #回车键, )
监视热键 (&_按钮_秩减少_被单击, #减号键, )

canaan

.版本 2

.程序集 窗口程序集1
.程序集变量 X, 整数型, , , 本身排序数
.程序集变量 Y, , , , 从小到大排序数
.程序集变量 n, 整数型, , , 数值个数
.程序集变量 j, 整数型
.程序集变量 k, 整数型
.程序集变量 d, , , , d方和
.程序集变量 rs, 双精度小数型
.程序集变量 数组, 双精度小数型, , "1"

.子程序 __启动窗口_创建完毕

监视热键 (&_按钮_秩增加_被单击, #回车键, )
监视热键 (&_按钮_秩增加_被单击, #加号键, )
编辑框_秩.获取焦点 ()



.子程序 _按钮_秩增加_被单击

n ＝ n ＋ 1
.如果真 (编辑框_秩.内容 ＝ “”)
    信息框 (“请输入第” ＋ 到文本 (n) ＋ “个数值”, #警告图标, “提示：”)
    n ＝ n － 1

.如果真结束


.如果真 (编辑框_秩.内容 ≠ “”)
    加入成员 (数组, 到数值 (编辑框_秩.内容))
    标签_秩.标题 ＝ “请输入第” ＋ 到文本 (n ＋ 1) ＋ “组数据”
    按钮_秩增加.标题 ＝ “确认输入第” ＋ 到文本 (n ＋ 1) ＋ “组数据”
    编辑框_秩.内容 ＝ “”
    编辑框_秩.获取焦点 ()
.如果真结束





.子程序 _按钮_秩结果_被单击


X ＝ 1
d ＝ 0

.计次循环首 (n, X)
    Y ＝ 1

    .计次循环首 (n, j)

        .如果真 (数组 [X] ＞ 数组 [j])
            Y ＝ Y ＋ 1
        .如果真结束

        .如果真 (数组 [X] ＝ 数组 [j] 且 X ＞ j)
            Y ＝ Y ＋ 1
        .如果真结束

    .计次循环尾 ()

    d ＝ (X － Y) × (X － Y) ＋ d


.计次循环尾 ()


rs ＝ 1 － 6 × d ÷ (n × n × n － n)

标签_结果.标题 ＝ “结果为：” ＋ #换行符 ＋ 到文本 (rs)

数组清零 (数组)
n ＝ 0
X ＝ 1
d ＝ 0
按钮_秩增加.标题 ＝ “确认输入第1组数据”
标签_秩.标题 ＝ “请输入第1组数据”
编辑框_秩.内容 ＝ “”
编辑框_秩.获取焦点 ()

canaan

{:3_230:}{:3_230:}{:3_230:}{:3_230:}
卡了一下，我以为没发帖，又编辑到第一楼去了
编辑第二楼居然没反应
{:3_233:}
晕了

数据压缩

没出错啊{:3_233:}

canaan

闹剧 发表于 2011-8-23 23:43
没出错啊

我运行的时候按的是enter建
但是+号建的功能也同时体现出来了的

canaan

闹剧 发表于 2011-8-23 23:43
没出错啊

比如你打算输入4个数值就够了
按完第四次+号后，按一下回车键应该出结果了
但是按了回车键就会出现请输入第5个数字的信息框——按了回车建实现的是按+号建的效果

canaan

啊啊啊啊，谢谢6喽qq578023708

是


监视热键 (&_按钮_秩结果_被单击, #回车键, )
监视热键 (&_按钮_秩增加_被单击, #加号键, )

我我我又粗心了

数据压缩

你监视热键的两个子程序全是秩增加 而没有秩结果。。

canaan

谢谢
qq578023708
闹剧

qq先指出来的，我采qq了嗷
谢谢两位

我个粗心鬼，为了省力复制黏贴后忘记改一下了
{:3_230:}{:3_230:}{:3_230:}