• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.9
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.6
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----随机----匆匆十年(58) [复制链接]

1#
实现效果:

  • 在设置的范围随机出一个结果
随机基于的命令:

  • Randomize'初始化[不进行初始化将出现重复或有规律数据]
  • Rnd'返回一个0-1的数值

随机的公式:
  1. 随机数 = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
复制代码
'即如果要随机一个-5到1的数字 公式应该为
  1. 随机数 = Int((1 +5 + 1) * Rnd -5)
复制代码
将其改成函数方便调用:
  1. TracePrint 随机数(1, 3)

  2. Function 随机数(最小值, 最大值)
  3. Randomize
  4. 随机数 = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
  5. End Function
复制代码
扩展之随机数字
  1. TracePrint 随机数字(5,False ,1, 5)'参数2写true 随机出来的数字将有重复
  2. Function 随机数字(数量,是否重复,最小值, 最大值)
  3. Dim 返回值
  4. Randomize
  5. If 是否重复 = True Then
  6. For 数量
  7. 返回值 = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
  8. 随机数字 = 随机数字 & 返回值
  9. Next
  10. Else
  11. For 数量
  12. Do
  13. 返回值 = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
  14. Loop Until InStr(随机数字, 返回值) < 1
  15. 随机数字 = 随机数字 & 返回值
  16. Next
  17. End If
  18. End Function
复制代码
扩展之随机字母
  1. TracePrint 随机字母(6,False,3)
  2. Function 随机字母(数量,是否重复,选项1至3)'1-3"1大写、2小写、3大小写"
  3. Dim 返回值
  4. Randomize
  5. If 选项1至3 = 1 and 是否重复 = False Then
  6. For 数量
  7. Do
  8. 返回值 = Int((122 - 97 + 1) * Rnd + 97)
  9. Loop Until InStr( 随机字母, chr(返回值)) < 1
  10. 随机字母 = 随机字母 & chr(返回值)
  11. Next
  12. ElseIf 选项1至3 = 1 and 是否重复 = True Then
  13. For 数量
  14. 返回值 = Int((122 - 97 + 1) * Rnd + 97)
  15. 随机字母 = 随机字母 & chr(返回值)
  16. Next
  17. End If
  18. If 选项1至3 = 2 and 是否重复 = False Then
  19. For 数量
  20. Do
  21. 返回值 = Int((90 - 65 + 1) * Rnd + 65)
  22. Loop Until InStr( 随机字母, chr(返回值)) < 1
  23. 随机字母 = 随机字母 & chr(返回值)
  24. Next
  25. ElseIf 选项1至3 = 2 and 是否重复 = True Then
  26. For 数量
  27. 返回值 = Int((90 - 65 + 1) * Rnd + 65)
  28. 随机字母 = 随机字母 & chr(返回值)
  29. Next
  30. End If
  31. If 选项1至3 = 3 and 是否重复 = False Then
  32. For 数量
  33. Do
  34. If rnd > 0.5 Then
  35. 返回值 = Int((90 - 65 + 1) * Rnd + 65)
  36. Else
  37. 返回值 = Int((122 - 97 + 1) * Rnd + 97)
  38. End If
  39. Loop Until InStr( 随机字母, chr(返回值)) < 1
  40. 随机字母 = 随机字母 & chr(返回值)
  41. Next
  42. ElseIf 选项1至3 = 3 and 是否重复 = True Then
  43. For 数量
  44. If rnd > 0.5 Then
  45. 返回值 = Int((90 - 65 + 1) * Rnd + 65)
  46. Else
  47. 返回值 = Int((122 - 97 + 1) * Rnd + 97)
  48. End If
  49. 随机字母 = 随机字母 & chr(返回值)
  50. Next
  51. End If
  52. End Function
复制代码
扩展之随机颜色
  1. TracePrint 随机颜色()
  2. Function 随机颜色()
  3. Randomize
  4. Dim 颜色文本库
  5. 颜色文本库="0123456789abcdef"
  6. For 6
  7. 随机颜色=随机颜色&Mid(颜色文本库,Int((Len(颜色文本库) - 1 + 1) * Rnd + 1),1)
  8. Next
  9. End Function
复制代码
扩展之随机中文
  1. TracePrint 随机简体汉字(5)
  2. Function 随机简体汉字(数量)
  3. Dim 返回值
  4. For 数量
  5. Randomize
  6. 返回值=返回值 & chr(-12160+int(126*rnd+1))
  7. Next
  8. 随机简体汉字 = 返回值
  9. End Function
复制代码
扩展之随机日文:
  1. TracePrint 随机日文(5)
  2. Function 随机日文(数量)
  3. Dim 返回值
  4. Randomize
  5. For 数量
  6. 返回值=返回值&Chr(-(Int((2 * Rnd) + 1)*256+Int((83 * Rnd) + 1)+22796))
  7. Next
  8. 随机日文=返回值
  9. End Function
复制代码
扩展之随机日期
  1. TracePrint 随机日期("2022/06/01 12:00:00","2022/06/07 12:00:00")
  2. Function 随机日期(最小随机日期, 最大随机日期)
  3. Dim 随机日期_间隔天数, 年, 月, 日
  4. Randomize
  5. 随机日期_间隔天数 = DateDiff("d", 最小随机日期, 最大随机日期)
  6. If 随机日期_间隔天数 < 0 Then Exit Function
  7. Randomize
  8. 随机日期_天数 = Int((随机日期_间隔天数 + 1) * Rnd)
  9. 随机日期 = DateAdd("d", 随机日期_天数, 最小随机日期)
  10. 年=Year(随机日期): 月=Month(随机日期) :日=Day(随机日期)
  11. If Len(月) = 1 Then 月 = "0" & 月
  12. If Len(日) = 1 Then 日 = "0" & 日
  13. 随机日期 = 年&"/"&月&"/"&日
  14. End Function
复制代码
扩展之随机按键盘
  1. KeyPress 随机按键()/1, 1

  2. Function 随机按键()
  3. Randomize
  4. 随机按键 = cstr(int((90 - 55 + 1) * rnd + 55))
  5. End Function
复制代码
扩展之随机并附带小数:
  1. Randomize
  2. TracePrint 3 + Round(Rnd, 4)
复制代码
  1. Randomize
  2. A = FormatNumber((9 * rnd) + 16, 2)
  3. TracePrint A
复制代码
非常见写法[未使用Randomize、Rnd]:
***** 该内容需您回复才可浏览 *****

最后编辑瑞祥幽冥狼 最后编辑于 2022-06-05 10:28:23
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

师傅的贴,必须抢个头彩,顶。。。

3#

666666666666666666666

4#

前排围观.顶一个

<font color="Magenta"><strong>【淘服务Designer】按键精灵 办公类、手机类、游戏类、辅助类脚本  QQ:271240457</strong></font>
5#

666666666666

6#


7#

6666666666666666666

8#

学习一下

9#

qqqqqqqq

10#

666666666666

11#

向大神致敬

12#

好好学习一下

13#

kk看看

14#

好东西

15#

非常见写法[未使用Randomize、Rnd]:

16#

233333333333

17#


18#

学习学习

19#

学习思想.!

20#

十年了,不该让着

发新话题 回复该主题