批处理之家 - Powered by Discuz! Board

标题: 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://bbs.bathome.net/)