用vbs产生的若干个随机数并写入到一个.txt中的代码

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可以看到结果