zhangzhiwei911的专栏

'********************************'随机函数生成'输入值：生成值范围 fromNum～toNum'返回值：随机数'********************************Public Function Get_RandNum(fromNum,toNum) If (fromNum  MsgBox "只接受大于零的输入" Else

set f=ofso.opentextfile("D:\print.txt",2,true)f.write af.closemsgbox "完成。"Function TreeIt(sPath) on error resume next Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder =

Set spShell = CreateObject("Shell.Application")  Set spFolder = spShell.BrowseForFolder(0, "选择目录:", 0, ssfDRIVES)  Set spFolderItem = spFolder.Self  spPath = spFolderItem.Path

Public Function IsMSFrameworkInstalled()    On Error Resume Next       Dim objWMIService       Dim colItems       Dim objItem       Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")  

Dim Rtn&Private Sub Command1_Click()Rtn = MsgBox("您确定要删除本笔资料吗 ?", vbYesNo, "厂商管理作业")'MsgBox IIf(Rtn = 6, "您选择了 Yes", "您选择了 No") '简单的写法If Rtn = 6 ThenMsgBox "您选择了 Yes"ElseMsgBox "您选择了 No"

'*******************************'@Description 打印Log '********************************Public Sub WriteLogs(result) Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fileSystemObj, fi

Add Method:Dim d   ' Create a variable.Set d =CreateObject("Scripting.Dictionary")d.Add "a","Athens"   ' Add some keys anditems.d.Add "b","Belgrade"d.Add "c","Cairo"Exists Method:Functio

在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试x 和 y 是否相等。如果相等，result 为 True；否则 result 为 False。Eval 方法总是采用第二种解释，而 Execute 语句总是采用第一种。注意  在Microsoft(R) JScript 中不存在这种比较与赋值的混淆，因为赋值运算符(=

' datediff()统计两个日期时间段之间的间隔Public Function TimeSpace()'datediff("d","起始日期","结束日期"),其中"d"代表以天为单位,"M"以月为单位,"H"代表小时；now代表当前日期       a=datediff("H",now,"2008-8-8")       MsgBox(a)End Function

定义和用法Round 函数可对数字进行四舍五入。语法Round(expression[,numdecimalplaces])参数描述expression必需的。需要被四舍五入的表达式。numdecimalplaces可选的。规定对小数点右边的多少位进行四舍五入。默认是 0。

1．Dictionary对象的成员概要表5-2和表5-3列出了Dictionary对象的属性和方法及相应的说明。当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。表5-2  Dictionary对象的属性和说明属 性    说明CompareMode   

GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。'注:此方法并不会真正打开文件?'Application.GetOpenFilename(文件类型筛选规则,优先显示第几个类型的文件,标题,是否允许选择多个文件名)   '二、示例 '1 打开类型只限excel文件 '设置打开某类文件可以

运算符优先级当表达式包含多个运算符时，将按预定顺序计算每一部分，这个顺序被称为运算符优先级。可以使用括号越过这种优先级顺序，强制首先计算表达式的某些部分。运算时，总是先执行括号中的运算符，然后再执行括号外的运算符。但是，在括号中仍遵循标准运算符优先级。当表达式包含多种运算符时，首先计算算术运算符，然后计算比较运算符，最后计算逻辑运算符。所有比较运算符的优先级相同，即按照从左到右的顺序计算比

格式化代码应尽可能多地保留屏幕空间，但仍允许用代码格式反映逻辑结构和嵌套。以下为几点提示：标准嵌套块应缩进 4 个空格。 过程的概述注释应缩进 1 个空格。 概述注释后的最高层语句应缩进 4 个空格，每一层嵌套块再缩进 4 个空格。例如： '********************************************************* ' 目的：

1. Split(expression, delimiter, count, compare)返回基于 0 的一维数组，其中包含指定数目的子字符串。expression：必选。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。 delimiter：可选。用于标识子字符串界限的字符。如果省略，使用空格 ("

下表列出了 VBScript 中可能用到的对象命名约定（推荐）： 对象类型前缀示例3D 面板pnlpnlGroup动画按钮anianiMailBox复选框chkchkReadOnly组合框、下拉列表框

将文本文件导入到Excel数据表中：Sub ImportFromTextFile()    Dim fso AsObject, sFileAsObject, blnExistAsBoolean    Dim FileName AsString, LineTextAsVariant, iAsInteger, iColAsInteger    Const