2011年3月1日
摘要：
mu_Choose = "3"Dim i, sMethodif IsNumeric(mu_Choose) Then i = CInt(mu_Choose) if i < 1 or i > 4 Then i = 0 end ifelse i = 0end ifsMethod = Array("hh", "addition", "subtract", "multiply", "division")'sMethod(0) = "hh"' 阅读全文
摘要：
具体调用的代码：'向指定的文件写入文本, 并指定是否是添加内容Function Z_WriteFile(sFileName, sText, bAppend) Dim fs, fso, iomode if bAppend = True Then iomode = 8 'ForAppending else iomode = 2 'ForWriting end if set fs = CreateObject("Scripting.FileSystemObject") set fso = fs.OpenTextFile(sFileName, iomode, 阅读全文
摘要：
vbs过程参数--byref(默认)和byval请看例子：On error resume NextSub A1(byval s) s = s & "125"End SubFunction A2(byval s) s = s & "125" A2 = sEnd FunctionDim p1, p2, p3p1 = "what1"p2 = "what2"A1 p1p3 = A2(p2)MsgBox p1 & " : " & p2 & " : &quo 阅读全文
