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

VBS类构造函数与Default关键字使用介绍
其实MSDN的VBScript文档中关于Function和Sub语句的部分提到过Default关键字：DefaultUsedonlywiththePublickeywordinaClassblocktoindicatethattheFunctionprocedureisthedefaultmethodforthec

VBS面向对象编程与Me关键字使用介绍
VBS是一种很简单的脚本语言，正因为简单，所以仅仅支持面向对象的很小一部分特性。其他面向对象的编程语言通常使用this或者self关键字来访问当前

VBS变量名Wsh等于WScript对象？
setwsh=createobject("wscript.shell")wscript.sleep15*60*1000wsh.run"shutdown/s/t0"双击运行，居然弹出个错误对话框Line:1Char:1Error:Wrongnumberofargumentsorinvalidpropertyassignment:‘wsh