找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 8029|回复: 5

[教程源码] 随机数

[复制链接]

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
发表于 2018-3-21 13:01:27 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
随机生成多少个数的随机数例子比较少
不好意思,上次传的附件是空的,谢谢老师提醒,
我直接粘贴到下面好了.


[按键精灵] 纯文本查看 复制代码
Import "zm.luae" 
TracePrint RndFunction(9)

Function RndFunction(Number)
    Dim a,b,Num
    Do 
        a =CLng( UTF8.Right("100000000000000000", Number))
        b = CLng(UTF8.Right("999999999999999999", Number))
        Num = zm.RndNum(a, b)
        If Len(CStr(Num)) = Number Then 
            RndFunction = Num
            Exit Function  
        End If
        Delay 100
    loop
End Function



评分

参与人数 1猫粮 +5 收起 理由
紫猫 + 5 很给力!

查看全部评分

楼主热帖
承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!
  • 打卡等级:武林至尊

1087

主题

2143

回帖

4337

积分

院长

鲜花
9
猫粮
7529
QQ
发表于 2018-3-21 14:13:36 | 显示全部楼层
你脚本是不是传错了呢?这个是空脚本, 没有任何代码

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
 楼主| 发表于 2018-3-23 19:57:35 | 显示全部楼层
紫猫 发表于 2018-3-21 14:13
你脚本是不是传错了呢?这个是空脚本, 没有任何代码

谢谢老师提醒,是我搞错了.
承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
 楼主| 发表于 2018-4-9 18:05:28 | 显示全部楼层
原来老师早就把这个随机数写出来了,而且很全面,之前都没注意看,只知道老师有随机数的插件.
大家就把这个例子拿去学习吧.
老师的插件链接是:https://zimaoxy.com/m/post/zm.rndstr/
承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!
  • 打卡等级:游历四方

0

主题

110

回帖

110

积分

小学生

鲜花
0
猫粮
704
发表于 2020-12-8 21:01:32 | 显示全部楼层
        很给力!
  • 打卡等级:游历四方

0

主题

110

回帖

110

积分

小学生

鲜花
0
猫粮
704
发表于 2020-12-18 18:58:29 | 显示全部楼层
♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-12-23 17:31

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表