求助大神帮忙解决！

bailu1390 · 发表于 2016-2-28 14:34:07

.版本 2
.支持库 spec
.支持库 iext

.程序集窗口程序集_启动窗口
.程序集变量数据存放处, 文本型, , "0"
.程序集变量数据存放处1, 文本型, , "0"
.程序集变量数据存放处2, 文本型, , "0"
.程序集变量数据存放处3, 文本型, , "0"
.程序集变量数据存放处4, 文本型, , "0"
.程序集变量数据存放处5, 文本型, , "0"

.子程序 _按钮1_被单击

子程序1 ()

.子程序子程序1

时钟1.时钟周期＝ 1000

.子程序 _时钟1_周期事件
.局部变量 i, 整数型
.局部变量数据, 文本型

数据存放处5 ＝数据存放处4
数据存放处4 ＝数据存放处3
数据存放处3 ＝数据存放处2
数据存放处2 ＝数据存放处1
数据存放处1 ＝数据存放处
数据＝文本_取随机数字 (5, )
.如果真 (数据 ≠ 数据)
返回 ()
.如果真结束
调试输出 (数据)
文本_逐字分割 (数据, 数据存放处)
.计次循环首 (5, i)
调试输出 (到整数 (数据存放处 [i]))
.如果 (到整数 (数据存放处 [i]) ＞ 5)
      数据存放处 [i] ＝ “大”
.否则
      .如果 (到整数 (数据存放处 [i]) ≠ 5)
         数据存放处 [i] ＝ “小”
      .否则
         数据存放处 [i] ＝ “大”
      .如果结束

.如果结束

.计次循环尾 ()

.计次循环首 (5, i)
超级列表框1.置标题 (0, i, 数据存放处 [i])
.计次循环尾 ()
.计次循环首 (取数组成员数 (数据存放处1), i)
超级列表框1.置标题 (1, i, 数据存放处1 [i])
.计次循环尾 ()
.计次循环首 (取数组成员数 (数据存放处2), i)
超级列表框1.置标题 (2, i, 数据存放处2 [i])
.计次循环尾 ()
.计次循环首 (取数组成员数 (数据存放处3), i)
超级列表框1.置标题 (3, i, 数据存放处3 [i])
.计次循环尾 ()
.计次循环首 (取数组成员数 (数据存放处4), i)
超级列表框1.置标题 (4, i, 数据存放处4 [i])
.计次循环尾 ()
.计次循环首 (取数组成员数 (数据存放处5), i)
超级列表框1.置标题 (5, i, 数据存放处5 [i])
.计次循环尾 ()

.如果真 (取数组成员数 (数据存放处4) ≠ 0)
.计次循环首 (5, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 1) ＝ -1)
         调试输出 (“第1位连续5小”)
         跳出循环 ()

      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 1) ＝ -1)
         调试输出 (“第1位连续5大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()

.计次循环首 (5, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 2) ＝ -1)
         调试输出 (“第2位连续5小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 2) ＝ -1)
         调试输出 (“第2位连续5大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()
.计次循环首 (5, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 3) ＝ -1)
         调试输出 (“第3位连续5小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 3) ＝ -1)
         调试输出 (“第3位连续5大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()
.计次循环首 (5, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 4) ＝ -1)
         调试输出 (“第4位连续5小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 4) ＝ -1)
         调试输出 (“第4位连续5大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()
.计次循环首 (5, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 5) ＝ -1)
         调试输出 (“第5位连续5小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 5) ＝ -1)
         调试输出 (“第5位连续5大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()

.如果真结束

.如果真 (取数组成员数 (数据存放处5) ≠ 0)
.计次循环首 (5, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 1) ＝ -1)
         调试输出 (“第1位连续66小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 1) ＝ -1)
         调试输出 (“第1位连续66大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()
.计次循环首 (6, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 2) ＝ -1)
         调试输出 (“第2位连续66小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 2) ＝ -1)
         调试输出 (“第2位连续66大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()
.计次循环首 (6, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 3) ＝ -1)
         调试输出 (“第3位连续66小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 3) ＝ -1)
         调试输出 (“第3位连续66大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()
.计次循环首 (6, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 4) ＝ -1)
         调试输出 (“第4位连续66小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 4) ＝ -1)
         调试输出 (“第4位连续66大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()
.计次循环首 (6, i)
      .如果 (超级列表框1.查找表项 (“大”, , , 5) ＝ -1)
         调试输出 (“第5位连续66小”)
         跳出循环 ()
      .否则

      .如果结束

      .如果 (超级列表框1.查找表项 (“小”, , , 5) ＝ -1)
         调试输出 (“第5位连续66大”)
         跳出循环 ()
      .否则

      .如果结束

.计次循环尾 ()

.如果真结束

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

超级列表框1.插入表项 (, , , , , )
超级列表框1.插入表项 (, , , , , )
超级列表框1.插入表项 (, , , , , )
超级列表框1.插入表项 (, , , , , )
超级列表框1.插入表项 (, , , , , )
超级列表框1.插入表项 (, , , , , )
超级列表框1.插入表项 (, , , , , )

以上是判断获取一个5位随机数的每一位的大小，当某一为连续出现5期大或者5次小的时候，来执行一个子程序，现在我遇到的问题是，当判断连续6次出现同大或者同小的时候，所执行的子程序会把第5次执行的子程序一并执行，我想要的效果是，当连续第6次的时候，不要在执行在连续第5次时候执行的子程序，请大神帮忙！