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

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

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

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

发新话题 回复该主题

[分享源码] 偶也发个产生不重复随机数的带参数子程序 [复制链接]

1#
可自定义范围和随机数数量,应用了一维动态数组。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
Call 不重复随机数(3,9,4)
Sub 不重复随机数(数值下min,数值上max,随机数量)'[数值下min,数值上max]为闭区间,即包括这2值,随机数量最大值为:(数值上max-数值下min + 1)
Randomize
Dim k, a, n, max, j, 随机数元素
数值下min = 数值下min - 1 : 数值上max = 数值上max + 1 : k = 0
Do
a = Int((数值下min - 数值上max + 1) * Rnd + 数值上max)
ReDim Preserve Brr(k)
Brr(k) = a
If k >= 1 Then
For n = 0 To UBound(Brr) - 1
If Brr(k) <> Brr(n) Then
max = n
If max = UBound(Brr) - 1 Then
j = j + 1
Redim Preserve Crr(j)
Crr(0) = Brr(0)
Crr(j) = Brr(k)
If UBound(Crr) = 随机数量 - 1 Then
Exit Do
End If
End If
Else
Exit For
End If
Next
End if
K = k + 1
Delay 10
Loop
For Each 随机数元素 In Crr
TracePrint 随机数元素
Next
End Sub

↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
................................................木有了,求大神带

    已有1评分我要评分查看所有评分

    最后编辑Danboy 最后编辑于 2016-08-12 09:25:18
    脚本定制,欢迎咨询QQ: 2692863915
    2#

    留名 以后看

    3#

    好复杂的样子

    4#

    学习学习!

    5#

    没有用 Randomize 哈哈

    6#

    回复 5楼kugeniha的帖子

    复制漏掉了

    脚本定制,欢迎咨询QQ: 2692863915
    7#

    好好学习

    8#

    3333333333333333333333333

    9#

    支持一下

    10#

    北京交管局官网

    11#

    该内容需您回复才可浏览

    12#

    Do
    End If
    End If
    Else
    Exit For
    End If
    Next
    End if

    13#

    产生不重复随机数的带参数子程序

    14#

    不重复随机数 能取个数吗?

    15#

    ??。。。。。。

    16#


    17#

    用FOR……NEXT命令,产生不重复随机数,不用GOTO跳转语句

    18#

    学习。。。。。。。。。。。。。。。。。。。。。。。。。。

    19#

    大大 撒大声地撒

    20#

    回复

    发新话题 回复该主题