为什么数组成员数最大只有32767

yjwfdc

写了个纯数数组去重复的代码。结果数组少的时候正常，数组大的时候结果数组最大只有32767，刚好是整数型的最大数吗？

有什么办法解决。

去重.rar (1.95 KB, 下载次数: 4)

2013-4-14 13:10 上传

点击文件名下载附件
下载积分: 精币 -2 枚

yjwfdc

[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 原数组, 长整数型, , "0"
.程序集变量 结果数组, 长整数型, , "0"
.程序集变量 成员数, 长整数型

.子程序 _加入数组按钮_被单击
.局部变量 i, 整数型

成员数 ＝ 到数值 (编辑框2.内容)
置随机数种子 (取启动时间 ())
重定义数组 (原数组, 假, 成员数)
.计次循环首 (成员数, i)
    原数组 ＝ 取随机数 (0, 成员数 ÷ 5)
    ' 编辑框1.加入文本 (到文本 (原数组 ) ＋ #换行符)
.计次循环尾 ()
信息框 (“成员数” ＋ 到文本 (成员数), 0, )


.子程序 _显示数组按钮_被单击
.局部变量 i, 整数型

.计次循环首 (成员数, i)
    编辑框1.加入文本 (到文本 (原数组 ) ＋ #换行符)
.计次循环尾 ()

.子程序 _去重复按钮_被单击
.局部变量 成员数, 整数型
.局部变量 i, 长整数型
.局部变量 a, 整数型
.局部变量 记录位置, 整数型
.局部变量 k, 整数型

k ＝ 取启动时间 ()
数组排序 (原数组, 真)
成员数 ＝ 取数组成员数 (原数组)
重定义数组 (结果数组, 假, 成员数)

i ＝ 0
记录位置 ＝ 1
.判断循环首 (记录位置 ≤ 成员数)
    i ＝ i ＋ 1
    结果数组 ＝ 原数组 [记录位置]
    .循环判断首 ()
        记录位置 ＝ 记录位置 ＋ 1
        .如果真 (记录位置 ＞ 成员数)
            跳出循环 ()
        .如果真结束

    .循环判断尾 (结果数组 ＝ 原数组 [记录位置])
.判断循环尾 ()

成员数 ＝ i － 1
重定义数组 (结果数组, 真, 成员数)
编辑框1.加入文本 (“不重复数” ＋ 到文本 (成员数))
编辑框1.加入文本 (“去重复用时” ＋ 到文本 (取启动时间 () － k) ＋ #换行符)


.子程序 _显示按钮_被单击
.局部变量 i, 整数型

编辑框1.内容 ＝ “”
.计次循环首 (取数组成员数 (结果数组), i)
    编辑框1.加入文本 (到文本 (结果数组 ) ＋ #换行符)
.计次循环尾 ()
[/e]

yjwfdc

不知道为什么，上面的代码 原数组 [i] 那个 [i] 被吃掉了。

yjwfdc

找到原因了,原来取随机数只能是少于32767用了下面方法就可以大些了.原数组 [i] ＝ 取随机数 (0, 成员数 ÷ 10) × 取随机数 (0, 成员数 ÷ 10) ÷ (取随机数 (0, 成员数 ÷ 10) － 5)