VBS怎样写随机数？

nbxas

求教用VB写随机数！！（非批处理方法）
效果！后台隐藏运行！
随机生成16位数~（A~Z 0~9）
然后把这组数加入到同目录下的 1.TXT 文本内容中的最后一行！
请前辈详细指点！
谢谢！

[ 本帖最后由 nbxas 于 2010-9-2 16:43 编辑 ]

Vigi

看看行不

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

原帖由 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

谢谢！！