求一组判断数组是否含有指定数字

exit11

.版本 2

.子程序 _按钮1_被单击
.局部变量 随机变量数, 整数型
.局部变量 返回值, 逻辑型
.局部变量 a, 文本型

随机变量数 ＝ 取随机数 (1000000, 9999999)
编辑框1.内容 ＝ 到文本 (随机变量数)
返回值 ＝ 子程序1 (到文本 (随机变量数), “135”, a)

.判断开始 (返回值 ＝ 真)
    编辑框2.内容 ＝ “随机变量数包含135全部数字”
.默认
    编辑框2.内容 ＝ “随机变量数不包含  ” ＋ a

.判断结束


.子程序 子程序1, 逻辑型
.参数 数字, 文本型
.参数 欲查找数字, 文本型
.参数 找到的数字, 文本型, 参考
.局部变量 x, 整数型
.局部变量 a, 文本型

.计次循环首 (取文本长度 (欲查找数字), x)
    a ＝ 取文本中间 (欲查找数字, x, 1)
    .如果真 (寻找文本 (数字, a, , 假) ＝ -1)
        找到的数字 ＝ 找到的数字 ＋ a
    .如果真结束

.计次循环尾 ()
.判断开始 (取文本长度 (找到的数字) ＝ 0)
    返回 (真)
.默认
    返回 (假)

exit11

exit11

要爽由自己 发表于 2011-6-13 15:21
开始有点眉目了，但是下面的程序好像不起作用，是不是少了一些命令了？

.版本 2

.版本 2

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

置随机数种子 ()
变量4 ＝ 取随机数 (111, 999)
.判断开始 (子程序1 (到文本 (变量4), “1”) ＝ 真)
    编辑框1.内容 ＝ “真”
.默认
    编辑框1.内容 ＝ “假”
.判断结束


.子程序 子程序1, 逻辑型
.参数 数字, 文本型
.参数 欲查找数字, 文本型
.局部变量 x, 整数型
.局部变量 a, 文本型

.计次循环首 (取文本长度 (欲查找数字), x)
    a ＝ 取文本中间 (欲查找数字, x, 1)
    .如果真 (寻找文本 (数字, a, , 假) ＝ -1)
        返回 (假)
    .如果真结束

.计次循环尾 ()
返回 (真)

要爽由自己

唉，还是不行，我把程序放上来，你看看哪里不对吧？

这个是一个赌大小的程序。

最终就是希望判断里面的透明标签 能够实行“八倍1.标题=“八倍”

exit11

看不懂{:3_233:}

要爽由自己

唉。。。。这也没办法啦，我自己摸索吧，谢谢  exit11 了

exit11

要爽由自己 发表于 2011-6-13 11:53
另外那一段数组其实是一个“变量数”来的。
我想设置一段“随机变量数”，寻找里面是否含有“1”“3”“5” ...

.版本 2
.支持库 iext

.判断开始 (子程序1 (透明标签10.标题, “12”) ＝ 真)
    八倍1.标题 ＝ “八倍”

级别低手

{:3_232:}{:3_232:}{:3_232:}{:3_232:}好