统计出次,搞几天没搞好，求大神帮忙

OK彩

统计出次.rar (1.25 KB, 下载次数: 17)

2017-3-1 08:29 上传

点击文件名下载附件



先生成随机数文本，再统计0-9出现了多少次，我想1秒内循环完成~请大神看下例子~

羊羽子

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
启动时间	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
i2	整数型
次数排序结果	整数型		50000,10	结果是把得出的数字统计下0到9出现次数；加进二维数组里
随机数	整数型
百位	整数型
十位	整数型
个位	整数型

启动时间 ＝ 取启动时间 ()
置随机数种子 ()
计次循环首 (50000, i)  ' 循环5W次
计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点
随机数 ＝ 取随机数 (0, 1000)
判断 (随机数 ＞ 999)
次数排序结果 [i] [1] ＝ 次数排序结果 [i] [1] ＋ 3  ' 1000
次数排序结果 [i] [2] ＝ 次数排序结果 [i] [2] ＋ 1
判断 (随机数 ＞ 99)
百位 ＝ 绝对取整 (随机数 ÷ 100)
次数排序结果 [i] [百位 ＋ 1] ＝ 次数排序结果 [i] [百位 ＋ 1] ＋ 1
十位 ＝ 绝对取整 (随机数 ÷ 10) － 百位 × 10
次数排序结果 [i] [十位 ＋ 1] ＝ 次数排序结果 [i] [十位 ＋ 1] ＋ 1
个位 ＝ 随机数 － 百位 × 100 － 十位 × 10
次数排序结果 [i] [个位 ＋ 1] ＝ 次数排序结果 [i] [个位 ＋ 1] ＋ 1
判断 (随机数 ＞ 9)
十位 ＝ 绝对取整 (随机数 ÷ 10)
次数排序结果 [i] [十位 ＋ 1] ＝ 次数排序结果 [i] [十位 ＋ 1] ＋ 1
个位 ＝ 随机数 － 十位 × 10
次数排序结果 [i] [个位 ＋ 1] ＝ 次数排序结果 [i] [个位 ＋ 1] ＋ 1
次数排序结果 [i] [随机数 ＋ 1] ＝ 次数排序结果 [i] [随机数 ＋ 1] ＋ 1

计次循环尾 ()
计次循环尾 ()
标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”
' 例如得出的随机文本是2222233338889990014567=数组就是{2,1,5,4,1,1,1,1,3,3},2出现了5次。就是5  这是这么个意思，有没有办法秒出呢

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 启动时间, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 次数排序结果, 整数型, , "50000,10", 结果是把得出的数字统计下0到9出现次数；加进二维数组里<br /> .局部变量 随机数, 整数型<br /> .局部变量 百位, 整数型<br /> .局部变量 十位, 整数型<br /> .局部变量 个位, 整数型<br /> <br /> 启动时间 ＝ 取启动时间 ()<br /> 置随机数种子 ()<br /> .计次循环首 (50000, i)  ' 循环5W次<br />     .计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点<br />         随机数 ＝ 取随机数 (0, 1000)<br />         .判断开始 (随机数 ＞ 999)<br />             次数排序结果 <i> [1] ＝ 次数排序结果 <i> [1] ＋ 3  ' 1000<br />             次数排序结果 <i> [2] ＝ 次数排序结果 <i> [2] ＋ 1<br />         .判断 (随机数 ＞ 99)<br />             百位 ＝ 绝对取整 (随机数 ÷ 100)<br />             次数排序结果 <i> [百位 ＋ 1] ＝ 次数排序结果 <i> [百位 ＋ 1] ＋ 1<br />             十位 ＝ 绝对取整 (随机数 ÷ 10) － 百位 × 10<br />             次数排序结果 <i> [十位 ＋ 1] ＝ 次数排序结果 <i> [十位 ＋ 1] ＋ 1<br />             个位 ＝ 随机数 － 百位 × 100 － 十位 × 10<br />             次数排序结果 <i> [个位 ＋ 1] ＝ 次数排序结果 <i> [个位 ＋ 1] ＋ 1<br />         .判断 (随机数 ＞ 9)<br />             十位 ＝ 绝对取整 (随机数 ÷ 10)<br />             次数排序结果 <i> [十位 ＋ 1] ＝ 次数排序结果 <i> [十位 ＋ 1] ＋ 1<br />             个位 ＝ 随机数 － 十位 × 10<br />             次数排序结果 <i> [个位 ＋ 1] ＝ 次数排序结果 <i> [个位 ＋ 1] ＋ 1<br />         .默认<br />             次数排序结果 <i> [随机数 ＋ 1] ＝ 次数排序结果 <i> [随机数 ＋ 1] ＋ 1<br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”<br /> <br /> ' 例如得出的随机文本是2222233338889990014567=数组就是{2,1,5,4,1,1,1,1,3,3},2出现了5次。就是5  这是这么个意思，有没有办法秒出呢

满足你的要求了  1秒内

单身汪

有个 文本_取出现次数（）

专解人衣

太深奥了，还是等大神吧

猥琐小胖子

用下标方法就可以了。

OK彩

猥琐小胖子 发表于 2017-3-1 09:10
用下标方法就可以了。

简单给个例子呗~

OK彩

单身汪 发表于 2017-3-1 08:58
有个 文本_取出现次数（）

速度不行~

羊羽子

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
启动时间	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
i2	整数型
文本	文本型
次数排序结果	文本型		50000,10	结果是把得出的数字统计下0到9出现次数；加进二维数组里
随机数	整数型
随机数文本	文本型
随机数的数组	整数型		10
千位	整数型
百位	整数型
十位	整数型
个位	整数型
计次	整数型
位置数字	整数型

启动时间 ＝ 取启动时间 ()
置随机数种子 ()
计次循环首 (50000, i)  ' 循环5W次
计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点
随机数 ＝ 取随机数 (0, 1000)
千位 ＝ 绝对取整 (随机数 ÷ 1000)
随机数的数组 [千位 ＋ 1] ＝ 随机数的数组 [千位 ＋ 1] ＋ 1
百位 ＝ 绝对取整 (随机数 ÷ 100) － 千位 × 10
随机数的数组 [百位 ＋ 1] ＝ 随机数的数组 [百位 ＋ 1] ＋ 1
十位 ＝ 绝对取整 (随机数 ÷ 10) － 千位 × 100 － 百位 × 10
随机数的数组 [十位 ＋ 1] ＝ 随机数的数组 [十位 ＋ 1] ＋ 1
个位 ＝ 随机数 － 千位 × 1000 － 百位 × 100 － 十位 × 10
随机数的数组 [个位 ＋ 1] ＝ 随机数的数组 [个位 ＋ 1] ＋ 1
' 随机数文本 ＝ 到文本 (取随机数 (0, 1000))       '文本的慢  要8秒
. ' 计次循环首 (取文本长度 (随机数文本), 计次)
' 位置数字 ＝ 到整数 (取文本中间 (随机数文本, 计次, 1))
' 随机数的数组 [位置数字 ＋ 1] ＝ 随机数的数组 [位置数字 ＋ 1] ＋ 1
. ' 计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”
调试输出 (随机数的数组)
' 例如得出的随机文本是2222233338889990014567=数组就是{2,1,5,4,1,1,1,1,3,3},2出现了5次。就是5  这是这么个意思，有没有办法秒出呢

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 启动时间, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 次数排序结果, 文本型, , "50000,10", 结果是把得出的数字统计下0到9出现次数；加进二维数组里<br /> .局部变量 随机数, 整数型<br /> .局部变量 随机数文本, 文本型<br /> .局部变量 随机数的数组, 整数型, , "10"<br /> .局部变量 千位, 整数型<br /> .局部变量 百位, 整数型<br /> .局部变量 十位, 整数型<br /> .局部变量 个位, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 位置数字, 整数型<br /> <br /> 启动时间 ＝ 取启动时间 ()<br /> 置随机数种子 ()<br /> .计次循环首 (50000, i)  ' 循环5W次<br />     .计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点<br />         随机数 ＝ 取随机数 (0, 1000)<br />         千位 ＝ 绝对取整 (随机数 ÷ 1000)<br />         随机数的数组 [千位 ＋ 1] ＝ 随机数的数组 [千位 ＋ 1] ＋ 1<br />         百位 ＝ 绝对取整 (随机数 ÷ 100) － 千位 × 10<br />         随机数的数组 [百位 ＋ 1] ＝ 随机数的数组 [百位 ＋ 1] ＋ 1<br />         十位 ＝ 绝对取整 (随机数 ÷ 10) － 千位 × 100 － 百位 × 10<br />         随机数的数组 [十位 ＋ 1] ＝ 随机数的数组 [十位 ＋ 1] ＋ 1<br />         个位 ＝ 随机数 － 千位 × 1000 － 百位 × 100 － 十位 × 10<br />         随机数的数组 [个位 ＋ 1] ＝ 随机数的数组 [个位 ＋ 1] ＋ 1<br />         ' 随机数文本 ＝ 到文本 (取随机数 (0, 1000))       '文本的慢  要8秒<br />         .' 计次循环首 (取文本长度 (随机数文本), 计次)<br />             ' 位置数字 ＝ 到整数 (取文本中间 (随机数文本, 计次, 1))<br />             ' 随机数的数组 [位置数字 ＋ 1] ＝ 随机数的数组 [位置数字 ＋ 1] ＋ 1<br /> <br />         .' 计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”<br /> 调试输出 (随机数的数组)<br /> ' 例如得出的随机文本是2222233338889990014567=数组就是{2,1,5,4,1,1,1,1,3,3},2出现了5次。就是5  这是这么个意思，有没有办法秒出呢

猥琐小胖子

OK彩 发表于 2017-3-1 09:30
速度不行~

你直接提供一个随机文本
我给你写个例子

羊羽子

羊羽子 发表于 2017-3-1 09:40

  

[/quote]
不好意思，刚才忘记加判断了
[e=0].版本 2

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
启动时间	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
i2	整数型
文本	文本型
次数排序结果	文本型		50000,10	结果是把得出的数字统计下0到9出现次数；加进二维数组里
随机数	整数型
随机数文本	文本型
随机数的数组	整数型		10
千位	整数型
百位	整数型
十位	整数型
个位	整数型
计次	整数型
位置数字	整数型

启动时间 ＝ 取启动时间 ()
置随机数种子 ()
计次循环首 (50000, i)  ' 循环5W次
计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点
随机数 ＝ 取随机数 (0, 1000)
千位 ＝ 绝对取整 (随机数 ÷ 1000)
如果真 (千位 ＞ 0)
随机数的数组 [千位 ＋ 1] ＝ 随机数的数组 [千位 ＋ 1] ＋ 1
百位 ＝ 绝对取整 (随机数 ÷ 100) － 千位 × 10
如果真 (百位 ＞ 0 或 千位 ＞ 0)
随机数的数组 [百位 ＋ 1] ＝ 随机数的数组 [百位 ＋ 1] ＋ 1
十位 ＝ 绝对取整 (随机数 ÷ 10) － 千位 × 100 － 百位 × 10
如果真 (百位 ＞ 0 或 千位 ＞ 0 或 十位 ＞ 0)
随机数的数组 [十位 ＋ 1] ＝ 随机数的数组 [十位 ＋ 1] ＋ 1
个位 ＝ 随机数 － 千位 × 1000 － 百位 × 100 － 十位 × 10
随机数的数组 [个位 ＋ 1] ＝ 随机数的数组 [个位 ＋ 1] ＋ 1
' 随机数文本 ＝ 到文本 (取随机数 (0, 1000))       '文本的慢  要8秒
. ' 计次循环首 (取文本长度 (随机数文本), 计次)
' 位置数字 ＝ 到整数 (取文本中间 (随机数文本, 计次, 1))
' 随机数的数组 [位置数字 ＋ 1] ＝ 随机数的数组 [位置数字 ＋ 1] ＋ 1
. ' 计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec</blockquote></div><br /> 不好意思，刚才忘记加判断了<br /> <br /> <br /> [e=0].版本 2<br /> <br /> .程序集变量 启动时间, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 次数排序结果, 文本型, , "50000,10", 结果是把得出的数字统计下0到9出现次数；加进二维数组里<br /> .局部变量 随机数, 整数型<br /> .局部变量 随机数文本, 文本型<br /> .局部变量 随机数的数组, 整数型, , "10"<br /> .局部变量 千位, 整数型<br /> .局部变量 百位, 整数型<br /> .局部变量 十位, 整数型<br /> .局部变量 个位, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 位置数字, 整数型<br /> <br /> 启动时间 ＝ 取启动时间 ()<br /> 置随机数种子 ()<br /> .计次循环首 (50000, i)  ' 循环5W次<br />     .计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点<br />         随机数 ＝ 取随机数 (0, 1000)<br />         千位 ＝ 绝对取整 (随机数 ÷ 1000)<br />         .如果真 (千位 ＞ 0)<br />             随机数的数组 [千位 ＋ 1] ＝ 随机数的数组 [千位 ＋ 1] ＋ 1<br />         .如果真结束<br />         百位 ＝ 绝对取整 (随机数 ÷ 100) － 千位 × 10<br />         .如果真 (百位 ＞ 0 或 千位 ＞ 0)<br />             随机数的数组 [百位 ＋ 1] ＝ 随机数的数组 [百位 ＋ 1] ＋ 1<br />         .如果真结束<br />         十位 ＝ 绝对取整 (随机数 ÷ 10) － 千位 × 100 － 百位 × 10<br />         .如果真 (百位 ＞ 0 或 千位 ＞ 0 或 十位 ＞ 0)<br />             随机数的数组 [十位 ＋ 1] ＝ 随机数的数组 [十位 ＋ 1] ＋ 1<br />         .如果真结束<br />         个位 ＝ 随机数 － 千位 × 1000 － 百位 × 100 － 十位 × 10<br />         随机数的数组 [个位 ＋ 1] ＝ 随机数的数组 [个位 ＋ 1] ＋ 1<br />         ' 随机数文本 ＝ 到文本 (取随机数 (0, 1000))       '文本的慢  要8秒<br />         .' 计次循环首 (取文本长度 (随机数文本), 计次)<br />             ' 位置数字 ＝ 到整数 (取文本中间 (随机数文本, 计次, 1))<br />             ' 随机数的数组 [位置数字 ＋ 1] ＝ 随机数的数组 [位置数字 ＋ 1] ＋ 1<br /> <br />         .' 计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”