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

首頁 > 編程 > VBScript > 正文

用vbs寫的短小精悍的字典生成器

2019-10-26 18:00:28
字體：大 中 小
供稿：網(wǎng)友

使用方法'use:cscript this.vbs > dic.txt　
把下面的代碼保存為this.vbs 

復(fù)制代碼 代碼如下:

a=Array(1,2,3,4,"a") 
Function js1(n) 
for i=1 to n 
f=f&"f"&i&"&" 
s=s&"For Each f"&i &" In a :wscript.echo "& f 
s=Mid(S,1,Len(S)-1)&":" 
Next 
js1=s 
End Function 

Function js2(n) 
for i=1 to n 
m=m & "Next" & ":" 
Next 
js2=m 
End Function 

lcx= js1(UBound(a)+1)&js2(UBound(a)+1) 
lcx=Mid(lcx,1,Len(lcx)-1) 
b="a=Array(1,2,3,4,""a""):"&lcx 

Execute b 

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

圖片精選

主站蜘蛛池模板： 阳江市| 台东县| 府谷县| 定结县| 遂溪县| 海原县| 集安市| 蒲江县| 两当县| 琼结县| 施甸县| 虹口区| 库伦旗| 宁陕县| 浮山县| 平凉市| 华蓥市| 封丘县| 北票市| 阿拉善盟| 凤庆县| 突泉县| 开平市| 信宜市| 东兰县| 新疆| 平舆县| 天峨县| 罗山县| 安泽县| 阿图什市| 安塞县| 邵东县| 三河市| 临高县| 金塔县| 娄底市| 苍梧县| 故城县| 九龙坡区| 武宣县|