Question

用vbs产生的若干个随机数如何写入到一个.txt中

用VB 也行

Answer 1

Set a=WScript.CreateObject("WScript.Shell")
a.Run "notepad"
'打开记事本
do
Randomize
x= Int((40 * Rnd) + 1)
'产生一个1~40的随机数赋给X
WScript.Sleep 1000
a.SendKeys x
'模拟键盘，输出x
n=n+1 ‘累计器
if n=10 then wscript.quit ’若累计器N为10则推出脚本
loop
保存成VBS可以看到结果

Answer 2

Dim Temp '声明Temp
For i = 0 To 100 '循环100次
Temp = + Int((40 * Rnd) + 1) '取随机数
Debug.Print(Temp) '输出调试文本
Next '下一个
data=ToBin(temp) '到字节集
Aicui.WriteFile "temp.txt",data '写到文件
注意此代码需要使用 “VBScript编译器(VBS也疯狂) ”编辑运行
下载地址：http://www.ghrj.org/htm/vbs.htm

Answer 3

C:\>cscript random.vbs >random.txt