国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS 生成不重復隨機數代碼[0-10]

2019-10-26 18:03:28
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

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

您可能感興趣的文章:

php array_flip() 刪除數組重復元素php 移除數組重復元素的一點說明新人報道，發個小技巧(js數組重復判斷)javascript下過濾數組重復值的代碼asp 數組 重復刪除函數(武林站長站增強版)PHP array_flip() 刪除重復數組元素專用函數Javascript 去除數組的重復元素js獲取數組任意個不重復的隨機數組元素js刪除select中重復項的實現代碼js 巧妙去除數組中的重復項javascript 刪除數組中重復項（uniq）javascript 返回數組中不重復的元素ASP 過濾數組重復數據函數(加強版)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 惠水县| 鄂温| 利津县| 噶尔县| 图木舒克市| 灵川县| 宾阳县| 泰宁县| 郎溪县| 永年县| 阳朔县| 庆云县| 剑河县| 基隆市| 孟津县| 富顺县| 芷江| 肇州县| 大冶市| 泸西县| 乐都县| 故城县| 绥江县| 万山特区| 八宿县| 高密市| 宜都市| 大竹县| 五指山市| 鄱阳县| 苍溪县| 桂林市| 莱阳市| 沙雅县| 嘉峪关市| 东光县| 绥宁县| 黄大仙区| 辽阳市| 陇川县| 迁安市|