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

要爽由自己

例如判断一组数字“123456789021354”，寻找里面是否都含有“1” 跟“5” 跟“9”

这个怎么设置？

exit11

.版本 2
.支持库 spec

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

调试输出 (子程序1 (“12312312312367870”, “1324”))

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

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

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

孤心人

如果真（寻找文本（“123456789021354“，“1”）<>-1）
信息框（“找到1”）

其他的类推

exit11

返回 真 表示要查找的数字都存在

要爽由自己

exit11 发表于 2011-6-13 11:29
.版本 2
.支持库 spec

另外那一段数组其实是一个“变量数”来的。
我想设置一段“随机变量数”，寻找里面是否含有“1”“3”“5”等数字。

这个怎么调试啊？

另外提示了“错误(10044): 不能将“整数型”数据转换到“文本型”数据。”

exit11

调试输出 (子程序1 (到文本(12312312312367870), 到文本(1324)))

要爽由自己

对不起啊，大哥，
我真看不懂你里面的意思，可以说一下每个意思吗？

我设计的程序里面已经有一个“随机变量的数字”了。
重点是让程序去判断，随机出来的数字，能否有要求含有的数字“1”“3”“5”
判断出为真，那么就要输出该程序。

麻烦你了。

exit11

要爽由自己 发表于 2011-6-13 14:47
对不起啊，大哥，
我真看不懂你里面的意思，可以说一下每个意思吗？

第一个参数填 随机变量的数字 如果是整数型，用到文本转换一下，
第二个参数填 “135”

exit11

.版本 2

.子程序 _按钮1_被单击
.局部变量 随机变量的数字, 整数型

随机变量的数字 ＝ 取随机数 (100000, 999999)
子程序1 (随机变量的数字, “135”)

要爽由自己

开始有点眉目了，但是下面的程序好像不起作用，是不是少了一些命令了？

.版本 2

.子程序 子程序1
置随机数种子 ()
变量4=取随机数（111，999）
.判断开始 (子程序1 (变量4, “1”))
    编辑框1.加入文本 ＝ “真”
.判断结束

麻烦分析一下。