VBS怎样写随机数？

nbxas

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

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

Vigi

看看行不

1. randomize
   
2. dim i,Vigi
   
3. for i = 1 to 16
   
4.         Vigi = Vigi & cals(int(rnd*(36)))
   
5. next
   
6. function cals(x)
   
7.         if x<10 then
   
8.                 cals=x
   
9.         else
   
10.                 cals=chr(x+87)
    
11.         end if
    
12. end function
    
13. Set fs=createobject("scripting.filesystemobject")
    
14. set read=fs.opentextfile("1.txt",1)
    
15. dim txt
    
16. txt=read.readall
    
17. read.close
    
18. set write=fs.opentextfile("1.txt",2)
    
19. write.writeline txt
    
20. write.write Vigi
    
21. 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

谢谢！！