标题: 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://www.bathome.net/) |
Powered by Discuz! 7.2 |