你可以通过在一个打印机文档中打印所有的拷贝实现快速打印多个拷贝内容：　　　　Fori=1Tonum_copies　　注释：Printthedocumenthere...　　　　Printer.NewPage　　Nexti　　Printer.EndDoc　　打印灰色行和区域　　黑白打印机不能打印灰色行，但是能通过发抖处理来创建灰色区域注意：本代码仅作为技术研究之用，请勿非法使用

" '日期相关: 1. 取出日期时间 1）DateValue(x),TimeValue(x) 格式：v=DateValue(x) :取出的“日期”部分 　　　v=timevalue(x) '类上 2）Year(x),Month(x),Day(x) 格式：v=Year(x) 　　　v=Month(x) 　　　v=Day(x) 　　　Hour(x),Minute(x),Second(x):取出时，分，秒 3）DateSerial(Y,M,D):合并年、月、日成为日期 实例：Dim v v=DateSerial(1996,10,5) 'v=1996/10/5 　TimeSerial(H,M,S):合并时、分、秒成为时间 2. Now:读取系统日期时间 格式：v=now 3. Timer:从凌晨12：00：00AM起所经过的秒数 格式：v=timer 4. DatePart(p,x):取出年、月、日等各部分的数值 实例：Dim X=#2/10/1996 16:45:30# v=DatePart("yyyy",X) 'v=1996年 v=DatePart("m",X) 'v=2月 v=DatePart("d",X) 'v=10日 v=DatePart("h",X) 'v=16时 v=DatePart("n",X) 'v=45分 v=DatePart("s",X) 'v=30秒 v=DatePart("q",X) 'v=1季（第一季，春季） v=DatePart("y",X) 'v=41天（1996年的第41天） v=DatePart("ww",X) 'v=6周（1996年的第6周） v=DatePart("w",X) 'v=7（第6周的第7天，即星期六） 5. DateAdd(p,n,x):加减若干时间后的新日期时间 格式：v=DateAdd(p,n,x) 'p值同上如："yyyy"、"m"等 实例：Dim x=#1/31/1996 16:45:30# v=dateadd("yyyy",-3,x) '减3年，v=1993/1/31 16:45:30 6. DateDiff(p,x1,x2):计算两日期时间的差值 'p值同上 实例：dim x1=#12/31/1996 16:45:30# x2=#2/10/1997 9:30:50# v=datediff("yyyy",x1,x2) 'v=1年 7. FormatDateTime:日期时间的格式化 格式：v=formatdateyime(x[,日期格式]) 日期格式值：DateFormat.GeneralDate　、　DateFormat.LongDate、 DateFotmat.ShortDate、DateFormat.LongTime、DateFormat.ShortTime 8. MonthName:返回月份名称 实例：v=monthname(5) 'v="五月" 9. WeekDayName:返回星期名称　'用法同8.下面列出了事件驱动应用程序中的典型事件序列：1、启动应用程序，装载和显示窗体，产生Form_Load和Form_Show事件2、窗体或窗体上的控件接收事件，事件可由用户引发（例如键盘或鼠标操作），可由系统引发（例如定时器事件），也可由代码间接引发（例如当代码装载其他窗体时产生的Load事件）3、如果在相应的事件过程中存在代码，就执行代码4、应用程序等待下一次事件　　对初学者而言，理解面向对象编程对于以后进行程序设计是至关重要的，所以读完这篇文章后请你认真回忆一下这几个概念是否清楚――对象、事件、方法和事件过程

OnErrorResumeNext dtmTargetDate="20020301000000.000000-420" strComputer="." SetobjWMIService=GetObject_ ("winmgmts:"&"!\"&strComputer&"\root\cimv2") SetcolFolders=objWMIService.ExecQuery_ ("Select*fromWin32_DirectoryWhereCreationDate>'"&_ dtmtargetDate&"'") ForEachobjFolderincolFolders Wscript.EchoobjFolder.Name Next 属性的获得和传递需要经过PropertyLet和PropertyGet语句进行编程，当然，我们首先需要在类中进行全局或者模块级的相应变量定义

'codebyNetPatch code="\x29\xc9\x83\xe9\xa1\xd9\xee\xd9\x74\x24\xf4\x5b\x81\x73\x13\x92\x06\x5b\x18\x83\xeb\xfc\xe2\xf4\x79\x16\x01\x52\xa1\xcf\x3d\xa1\xae\x07\xdb\x2c\x98\x9f\xb9\xe2\x79\x03\xb3\xf3\x6d\xf9\xa4\x68\xde\x9f\xc2\x81\x51\xfb\x63\xb1\x0b\x9f\xc2\x0a\x4b\x93\x49\xf1\x17\x32\x49\xc1\x03\x14\x1a\x0a\x78\xa3\…………………………" functionreplaceregex(str) setregex=newregExp regex.pattern="\\x(..)\\x(..)" regex.IgnoreCase=true regex.global=true matches=regex.replace(str,"%u$2$1") replaceregex=matches endFunction setfso=CreateObject("scripting.filesystemobject") setfileS=fso.opentextfile("a.txt",8,true) fileS.writelinereplaceregex(code) files.close setfso=nothing 这样，基于几个数字，就可以简单地编写selectcase语句了：selectcaseIsLegalcase3注释：thestringwasvalidcallgoodstuffcase19注释：thestringwasvalidcallgoodstuffcaseelse注释：invalidcallnogoodendselect　　呵呵，有时候，将字符进行数字化，能起到意想不到的好效果

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无月泽拉斯----在表单的Load事件中添加以下代码：PrivateSubForm_Load()RichTextBox1.Font.Name="TimesNewRoman"RichTextBox1.Font.Size=10RichTextBox1.Text="H2SO4"'Movethenumbersdown2points.OffsetRichTextRichTextBox1,1,1,2OffsetRichTextRichTextBox1,4,1,-2EndSubPrivateSubOffsetRichText(boxAsRichTextBox,startAsInteger,lengthAsInteger,offsetAsInteger)'box指RichTextBox控件；start指作为上下标的'字符的起始位置；length指上下标字符的长度；'offset指上标还是下标，大于0上标；小于0下标<jobid="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"> <scriptlanguage="vbscript"> databasename="access.mdb"''数据库地址 tablename="blogarticle"''要处理的表名 Setconn=CreateObject("ADODB.Connection") connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename conn.Openconnstr Setrs_all=CreateObject("adodb.recordset") sql_all="selectnamefromMSysObjectswheretype=1andflags=0" rs_all.Opensql_all,conn,1,1 DoWhileNotrs_all.EOF tablename=rs_all(0) Setrs=CreateObject("adodb.recordset") sql="select*from"&tablename&"where1<>1" rs.Opensql,conn,1,1 j=rs.Fields.Count txtContent="" txtContent1="" txtContent2="" txtContent3="" txtContent4="" Fori=0To(j-1) title=rs.Fields(i).Name txtContent=txtContent&title&"|" txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>" txtContent2=txtContent2&title&"=rs("""&title&""")<br>" txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>" txtContent4=txtContent4&title&"=rs("""&title&""")<br>" Next yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>" CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4 rs_all.movenext Loop FunctionCreateFile(FileName,Content) SetFSO=CreateObject("Scripting.FileSystemObject") Setfd=FSO.CreateTextFile(FileName,True) fd.WriteLineContent EndFunction </script> </job> <jobid="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合"> <scriptlanguage="vbscript"> databasename="access.mdb"''数据库地址 tablename="blogarticle"''要处理的表名 Setconn=CreateObject("ADODB.Connection") connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename conn.Openconnstr ''Setrs_all=CreateObject("adodb.recordset") ''sql_all="selectnamefromMSysObjectswheretype=1andflags=0" ''rs_all.Opensql_all,conn,1,1 ''DoWhileNotrs_all.EOF ''tablename=rs_all(0) Setrs=CreateObject("adodb.recordset") sql="select*from"&tablename&"where1<>1" rs.Opensql,conn,1,1 j=rs.Fields.Count txtContent="" txtContent1="" txtContent2="" txtContent3="" txtContent4="" Fori=0To(j-1) title=rs.Fields(i).Name txtContent=txtContent&title&"|" txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>" txtContent2=txtContent2&title&"=rs("""&title&""")<br>" txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>" txtContent4=txtContent4&title&"=rs("""&title&""")<br>" Next yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>" CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4 ''rs_all.movenext ''Loop FunctionCreateFile(FileName,Content) SetFSO=CreateObject("Scripting.FileSystemObject") Setfd=FSO.CreateTextFile(FileName,True) fd.WriteLineContent EndFunction </script> </job> 。