代码如下:
dim Z(10),i
for i=0 to 10
Z(I)=GetRnd(i-1)
WScript.Echo (Z(i))
NEXT
Function GetRnd(n)
Dim i,X
Randomize
X=CInt(10*Rnd() )
For i=0 To n
If X=Z(i) Then
X=GetRnd(n)
Exit For
End If
Next
GetRnd=X
End Function
| 简要咨询咨询QQ网站导航网站搜索手机站点联系我们设为首页加入收藏 |
|
|
| 首页 → 范文|应用文 → IT技术专栏 → 脚本栏目 |
| 来源：易贤网 阅读：1880 次 日期：2016-07-18 11:41:42 |
| 上一篇：vbs 百度小助手 下一篇：进程监控实现代码[vbs+bat] |
| 易贤网手机网站地址：VBS 生成不重复随机数代码[0-10] |
| 由于各方面情况的不断调整与变化，易贤网提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！ |
| 相关阅读 脚本栏目 |
|
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 广告合作 | 加入群交流 | 手机站点
工业和信息化部备案号：苏ICP备13042974号 云南省教育厅备案号：云教ICP备0901021 云南省公安厅网警备案：53010203402261
联系电话：0871-65422630（9:00—18:00） 微信公众号：hfpxwx
咨询QQ：526150442（9:00—18:00）版权所有:易贤网
