最新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 temp6 j8 S$ _' l( p* P+ q* F
  2. ReDim Num(fMaxQty-1)
    7 F' v9 B- g& h  A
  3. For i=0 to fMaxQty-1
    2 o# P! n* I  B
  4.       temp=int(rnd*i)
    / Y! n' R1 E; w# c, a
  5.       Num(i)=num(temp)3 o/ T! m/ D# m/ f. w3 j) Z
  6.       Num(temp)=i+fMin7 \7 V: t  p7 s$ X# v
  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

主题

3

听众

1万

积分

LV.15

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

签到天数: 1185 天

[LV.10]以坛为家III

金币
2348
威望
26998
帖子
3378
精华
0

优秀会员奖

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

7 a) U( y- T4 y# K/ |/ K* v6 ?感谢分享,支持楼主
回复

使用道具 举报

0

主题

0

听众

2

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
0
帖子
4
精华
0
发表于 2014-10-17 14:32 |显示全部楼层
quelea 发表于 2012-12-10 09:15 6 K' p# v) B6 Q1 D' ?# P0 L: M
赞一个。
( J% O- d! y* L1 @, {1 Y- \- k2 ~" _
此程序调用微软提供的vbs内部的随机数生成程序。应该还可以暂时解决这个bug

# Y& y5 k0 g' ?: c' {! ^% R% G! O$ |ddddddddddddddddd
回复

使用道具 举报

0

主题

0

听众

2

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
0
帖子
4
精华
0
发表于 2014-10-17 14:41 |显示全部楼层
天远 发表于 2012-12-14 17:08 : C+ r3 D+ R4 }- c6 v. N
今天在更新工具箱内容,想到了你的填充不重复随机数功能* V$ Z9 x% e. R0 j
由于VBA和插件是嵌入到ET中的,所以无法像VBS那样 ...
$ B- l( D7 e& H1 k; M, x) P  |
dddddddddddddddddd
回复

使用道具 举报

0

主题

0

听众

8

积分

LV.1

Rank: 1

该用户从未签到

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

使用道具 举报

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

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-18 10:34

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部