[/quote
]不好意思,刚才忘记加判断了
[e=0
].版本 2
窗口程序集名 | 保 留 | 保 留 | 备 注 |
(未填写程序集名) | | | |
变量名 | 类 型 | 数组 | 备 注 |
变量名 | 类 型 | 数组 | 备 注 |
启动时间 | 整数型 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
i | 整数型 | | |
i2 | 整数型 | | |
文本 | 文本型 | | |
次数排序结果 | 文本型 | | 50000,10 |
随机数 | 整数型 | | |
随机数文本 | 文本型 | | |
随机数的数组 | 整数型 | | 10 |
千位 | 整数型 | | |
百位 | 整数型 | | |
十位 | 整数型 | | |
个位 | 整数型 | | |
计次 | 整数型 | | |
位置数字 | 整数型 | | |
启动时间 =
取启动时间 ()置随机数种子 ()计次循环首 (50000, i
) 计次循环首 (30, i2
) 随机数 =
取随机数 (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
.
.
计次循环尾 ()计次循环尾 ()标签1.标题 =
“用时:” +
到文本 (取启动时间 () - 启动时间
) +
“毫秒”
不好意思,刚才忘记加判断了
[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.标题 = “用时:” + 到文本 (取启动时间 () - 启动时间) + “毫秒”