代碼如下:
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
代碼如下:
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
- 小學(xué)生讀后感烏塔讀后感（優(yōu)秀14篇）
- 國旗下的演講稿開學(xué)典禮講話稿（專業(yè)18篇）
- 中秋節(jié)客戶回饋方案（精選19篇）
- 初中政治教師教學(xué)年度工作總結(jié)（匯總16篇）
- 幼兒園的衛(wèi)生保健工作的計劃書大全（16篇）
- 幼兒園環(huán)保教案白色污染（熱門22篇）
- 雞年公司年會方案策劃（模板18篇）
- 呼嘯山莊讀后感詩篇版（專業(yè)19篇）
- 新年聯(lián)歡晚會工作總結(jié)（實用23篇）
- 城南舊事讀后感（模板17篇）
- 上課遲到萬能上課遲到檢討書范文（14篇）
- 觀察日記四則小學(xué)生日記（熱門13篇）
- 父母的感人故事范文（19篇）
- 三年級關(guān)心范文（24篇）
- 三年級和點評評語（模板14篇）
- 我愛冬天我愛冬天你呢范文（18篇）
- 四年級暑假讀后感長腿叔叔讀后感（精選20篇）
- 體藝組第二學(xué)期工作計劃（匯總18篇）
- 六年小學(xué)畢業(yè)的演講稿（實用18篇）
- 國慶節(jié)前安全生產(chǎn)工作會議講話稿（優(yōu)質(zhì)14篇）
- 訂婚喜帖祝福語（10篇）
- 三年級小學(xué)生日記300字左右（10篇）
- 我的家鄉(xiāng)400字作文四年級下冊（精選10篇）
- 中國證券業(yè)協(xié)會：2024年6月證券從業(yè)資格考試成績查詢?nèi)肟谝验_通
- 北京2024年6月證券從業(yè)資格考試成績查詢?nèi)肟谝验_通
- 給爸爸的父親節(jié)微信祝福句子（精選10篇）
- 天津2024年6月證券從業(yè)資格考試成績查詢?nèi)肟谝验_通
- 2024年四川巴中巴州區(qū)赴高校公開考試（考核）招聘高中教師25名（6月13日起報名）
- 工作自我鑒定簡短（10篇）
- 畢業(yè)快樂的祝福語（10篇）
- 煤礦安全生產(chǎn)心得體會（通用10篇）
- 轉(zhuǎn)正自我評價怎么寫
- 溫馨端午節(jié)問候句子大全10篇
- 有關(guān)放風(fēng)箏的英語日記（10篇）
- 2024年中共西寧市委黨校面向社會公開考核招聘教師公告（青海）
- 2024年四川廣元中考時間：6月13日-15日（總分920分）
- 安全警示教育心得體會（精選10篇）
- 2024年湖南衡陽衡東縣公開招聘教師（專業(yè)人員）61人（6月16日至19日報名）
- 寶寶睡前聽的故事（精選10篇）
- 2024年湖南高考錄取時間及錄取結(jié)果查詢?nèi)肟冢?月8日起）