最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
楼主: 松风水月

[VBA/VBS教程] 生成不重复的随机整数(VBS法)

  [复制链接]

0

主题

0

听众

13

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
22
帖子
10
精华
0
发表于 2013-4-3 23:20 |显示全部楼层
分享到: 新浪微博 腾讯微博
好东西就要拿出来分享
回复

使用道具 举报

13

主题

9

听众

1459

积分

LV.7

Rank: 7Rank: 7Rank: 7

签到天数: 1 天

[LV.1]初来乍到

金币
456
威望
3277
帖子
721
精华
0
发表于 2013-4-22 15:41 |显示全部楼层
这是对第二种算法作了一定修改,代码少了点,运算量小了点,生成的随机数效果好像差不多
  1. Dim temp' _! }6 z) E* j; e4 S0 \) f
  2. ReDim Num(fMaxQty-1)
    - ]- x8 X& t  K! @% e- l& c6 e
  3. For i=0 to fMaxQty-1
    & @2 o. j; o  b8 l$ G+ J! E
  4.       temp=int(rnd*i)1 a' }$ R5 {# ^' y/ K
  5.       Num(i)=num(temp)
    + B. `. B- g2 n: b* O6 w! T  i5 ]& D7 H
  6.       Num(temp)=i+fMin
      k4 T) Y, \- g5 @/ d8 q8 ^
  7. next
复制代码
回复

使用道具 举报

2

主题

0

听众

57

积分

LV.2

Rank: 2

该用户从未签到

金币
33
威望
110
帖子
43
精华
0
发表于 2013-4-22 21:07 |显示全部楼层
好给力,
回复

使用道具 举报

0

主题

0

听众

6

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
9
帖子
3
精华
0
发表于 2013-7-11 10:15 |显示全部楼层
学学,谢谢!
回复

使用道具 举报

2

主题

0

听众

412

积分

LV.5

Rank: 5Rank: 5

该用户从未签到

金币
113
威望
1099
帖子
130
精华
0
发表于 2013-7-12 09:21 |显示全部楼层
太神奇了!学习了!
回复

使用道具 举报

0

主题

0

听众

1

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
1
帖子
1
精华
0
发表于 2014-10-2 18:26 |显示全部楼层
回复

使用道具 举报

3

主题

4

听众

1万

积分

LV.15

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

签到天数: 1246 天

[LV.10]以坛为家III

金币
2409
威望
27886
帖子
3439
精华
0

优秀会员奖

发表于 2014-10-5 09:23 |显示全部楼层

+ Q, N$ ~7 d/ {- S+ e感谢分享,支持楼主
回复

使用道具 举报

0

主题

0

听众

2

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
0
帖子
4
精华
0
发表于 2014-10-17 14:32 |显示全部楼层
quelea 发表于 2012-12-10 09:15
* c2 }" }, }3 W1 j# }5 }5 S赞一个。  g4 @1 G% {% v+ N

" W1 }% T- f4 ]此程序调用微软提供的vbs内部的随机数生成程序。应该还可以暂时解决这个bug
" X6 V6 F* g0 n+ ~
ddddddddddddddddd
回复

使用道具 举报

0

主题

0

听众

2

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
0
帖子
4
精华
0
发表于 2014-10-17 14:41 |显示全部楼层
天远 发表于 2012-12-14 17:08 : e7 j7 t+ l; U
今天在更新工具箱内容,想到了你的填充不重复随机数功能$ k, A3 s& c" t) |, F: \
由于VBA和插件是嵌入到ET中的,所以无法像VBS那样 ...

0 ]! E# Y( W- R9 x; Z5 ~7 x1 S; }dddddddddddddddddd
回复

使用道具 举报

0

主题

0

听众

8

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
4
帖子
12
精华
0
发表于 2014-10-21 01:15 |显示全部楼层
感觉好难弄啊!
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛 ( 粤公网安备 44049102496073号 粤ICP备13015957号-1   

GMT+8, 2018-1-19 03:24

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部