国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 钟山县| 克什克腾旗| 彭阳县| 大宁县| 镇巴县| 信宜市| 泰宁县| 徐闻县| 威远县| 五河县| 潢川县| 海阳市| 延吉市| 翁源县| 平南县| 黄山市| 德令哈市| 贵港市| 开远市| 洛宁县| 舒兰市| 贵德县| 成安县| 建阳市| 体育| 隆回县| 黄龙县| 武山县| 台东市| 噶尔县| 琼海市| 利辛县| 十堰市| 博兴县| 桦甸市| 新蔡县| 略阳县| 杂多县| 读书| 玉门市| 泊头市|