标题: VBS怎样写随机数? [打印本页]
作者: nbxas 时间: 2010-9-2 16:35 标题: VBS怎样写随机数?
求教用VB写随机数!!(非批处理方法)
效果!后台隐藏运行!
随机生成16位数~(A~Z 0~9)
然后把这组数加入到同目录下的 1.TXT 文本内容中的最后一行!
请前辈详细指点!
谢谢!
[ 本帖最后由 nbxas 于 2010-9-2 16:43 编辑 ]
作者: Vigi 时间: 2010-9-3 15:20 标题: 回复 1楼 的帖子
看看行不- randomize
- dim i,Vigi
- for i = 1 to 16
- Vigi = Vigi & cals(int(rnd*(36)))
- next
- function cals(x)
- if x<10 then
- cals=x
- else
- cals=chr(x+87)
- end if
- end function
- Set fs=createobject("scripting.filesystemobject")
- set read=fs.opentextfile("1.txt",1)
- dim txt
- txt=read.readall
- read.close
- set write=fs.opentextfile("1.txt",2)
- write.writeline txt
- write.write Vigi
- write.close
复制代码
作者: nbxas 时间: 2010-9-5 18:37
原帖由 Vigi 于 2010-9-3 15:20 发表
看看行不randomize
dim i,Vigi
for i = 1 to 16
Vigi = Vigi & cals(int(rnd*(36)))
next
function cals(x)
if x
谢谢!!
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |