如何随机数字的连续判断

天空轨迹

下面的代码只能每次输出一个数字都赋值于编辑框内，导致无法与上个数字比较。
我想的是在循环的条件下，上一个数字赋值于编辑框1内，然后随机的一个数字与它比较是不是连续数，然后在编辑框2显示。
例如
置随机数字
第一次输出 1     第二次输出2  为连续　　　完成一次循环
将第二次输出的2赋值于编辑框1内，　　第三次输出5   为不连续　完成第二次循环
将第二次输出的5赋值于编辑框1内          第四次输出6   为连续　　完成第三次循环
....
.....
...


[e]
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 a, 整数型

.计次循环首 (999, )
    置随机数种子 ()
    a ＝ 到整数 (取随机数 (1, 5))
    编辑框1.内容 ＝ 到文本 (a)
    延迟 (1000)
    .如果 (编辑框1.内容 ＝ 到文本 (a － 1))
        编辑框2.内容 ＝ “两个随机数连续”
    .否则
        编辑框2.内容 ＝ “两个随机数不连续”
    .如果结束
.计次循环尾 ()


[/e]



连续数.rar (1.2 KB, 下载次数: 10)

2012-3-26 18:29 上传

点击文件名下载附件

锦绣明天

[e]

.版本 2
.支持库 spec

.程序集 窗口程序集1

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



.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型

置随机数种子 ()
a ＝ 到整数 (取随机数 (1, 5))

.计次循环首 (999, )
    编辑框1.内容 ＝ 到文本 (a)
   
a ＝ 到整数 (取随机数 (1, 5))
    延迟 (1000)
    .如果 (编辑框1.内容 ＝ 到文本 (a － 1))
        编辑框2.内容 ＝ “两个随机数连续”
   
.否则
        编辑框2.内容 ＝ “两个随机数不连续”
    .如果结束

.计次循环尾 ()

[/e]

锦绣明天

[e]

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型

置随机数种子 ()
a ＝ 到整数 (取随机数 (1, 5))
b ＝ a
.计次循环首 (999, )
    编辑框1.内容 ＝ 到文本 (b)
    a ＝ 到整数 (取随机数 (1, 5))
    b ＝ a
    延迟 (1000)
    .如果 (编辑框1.内容 ＝ 到文本 (a － 1))
        编辑框2.内容 ＝ “两个随机数连续”
   
.否则
        编辑框2.内容 ＝ “两个随机数不连续”
    .如果结束

.计次循环尾 ()

[/e]

kingsee

不明白什么意思