VBS教程:VBscript语句-Private 语句_vbs

Private 语句

定义私有变量并分配存储空间。在 Class块中定义私有变量。

Private varname[([subscripts])][ varname[([subscripts])]] . . .

参数

varname

变量的名称;遵循标准变量命名约定。

subscripts

数组变量的维数,最多可以声明 60 维的数组。subscripts 参数使用下列语法:

upper [, upper] . . .

数组的下界总是 0。

说明

Private 语句变量只能在声明该变量的脚本中使用。

在使用引用对象的变量之前,必须用 Set 语句将某个现有对象赋予此变量。在赋值之前,所声明的对象变量被初始化Empty。

也可用带空圆括号的 Private 语句声明动态数组。声明动态数组后,可在过程内使用 ReDim 语句定义该数组的维数和元素。如果在 Private、Public 或 Dim 语句中已显式指定数组大小,却试图重新声明数组维数,就会发生错误。

注意 在过程中使用 Private 语句时,通常将 Private 语句放在过程的开始处。

下面例子举例说明如何使用 Private 语句:

Private MyNumber   ' Private Variant variable.Private MyArray(9)   ' Private array variable.   ' Multiple Private declarations of Variant variables.Private MyNumber, MyVar, YourNumber

以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索vbs循环语句、vbs for循环语句、vbs if语句、vbs语句未结束、vbs goto语句,以便于您获取更多的相关知识。

时间: 2024-11-01 05:34:54

VBS教程:VBscript语句-Private 语句_vbs的相关文章

VBS教程:方法-Clear 方法_vbs

Clear 方法 清除 Err 对象的所有属性设置. object.Clear object 应为 Err 对象的名称. 说明 在错误处理后,使用 Clear 显式地清除 Err 对象.此操作是必须的,例如使用 On Error Resume Next 延迟错误处理时.在任何时候执行下列语句,VBScript 自动调用 Clear 方法: On Error Resume Next Exit Sub Exit Function 下面例子举例说明如何使用 Clear 方法. '发生错误继续下一步Er

VBS教程:函数-Eval 函数_vbs

Eval 函数 计算一个表达式的值并返回结果.  [result = ]Eval(expression) 参数 result 可选项. 是一个变量,用于接受返回的结果.如果未指定结果,应考虑使用 Execute 语句代替. expression 必选项.可以是包含任何有效 VBScript 表达式的字符串. 说明 在 VBScript 中,x = y 可以有两种解释.第一种方式是赋值语句,将 y 的值赋予 x.第二种解释是测试 x 和 y 是否相等.如果相等,result 为 True:否则 r

VBS教程:函数-GetObject 函数_vbs

GetObject 函数 返回对文件中 Automation 对象的引用. GetObject([pathname] [, class]) 参数 Pathname 可选项.字符串,包含待检索对象的文件的完整路径和名称.如果省略 pathname 则必须有 class. Class 可选项.字符串,对象的类. class 参数的语法格式为 appname.objectype,其中包括以下部分: 参数 appname 必选项.字符串,提供对象的应用程序名称. objectype 必选项.字符串,要创

VBS教程:对象-Drives 集合_vbs

Drives 集合 只读所有可用驱动器的集合. 说明 无论是否插入媒体,可移动媒体驱动器都显示在 Drives 集合中. 以下代码举例说明如何获得 Drives 集合并使用 For Each...Next 语句枚举集合成员: ShowDriveList 函数 Dim fso, d, dc, s, n Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d in dc n =

VBS教程:方法-WriteLine 方法_vbs

WriteLine 方法 向 TextStream 文件写入指定字符串和新行字符. object.WriteLine([string]) 参数 object 必选项.应为 TextStream 对象的名称. string 可选项.要写入文件的文本.如果省略,将向文件写入新行字符. 说明 下面例子举例说明如何使用 WriteLine 方法: Function WriteLineToFile Const ForReading = 1, ForWriting = 2 Dim fso, f Set fs

VBS教程:函数-Array 函数_vbs

Array 函数 返回包含数组的 Variant. Array(arglist) arglist 参数是赋给包含在 Variant 中的数组元素的值的列表(用逗号分隔).如果没有指定此参数,则将会创建零长度的数组. 说明 用于引用数组元素的表示符,由跟随有括号的变量名组成,括号中包含指示所需元素的索引号.在下面的示例中,第一条语句创建名为 A 的变量.第二条语句将一个数组赋值给变量 A.最后一条语句将包含在第二个数组元素中的值赋值给另一个变量. Dim AA = Array(10,20,30)B

VBS教程:对象-Folders 集合_vbs

Folders 集合 包含在一个 Folder 对象中的所有 Folder 对象的集合. 说明 以下代码举例说明如何获得 Folders 集合并使用 For Each...Next 语句枚举集合成员: Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec)

VBS教程:函数-UBound 函数_vbs

UBound 函数 返回指定数组维数的最大可用下标. UBound(arrayname[, dimension]) 参数 arrayname 必选项.数组变量名,遵循标准变量命名约定. Dimension 可选项.指定返回哪一维上界的整数.1 表示第一维,2 表示第二维,以此类推.如果省略 dimension 参数,则默认值为 1. 说明 UBound 函数与 LBound 函数一起使用,用于确定数组的大小.使用 LBound 函数可以确定数组某一维的下界. 所有维的下界均为 0.对于有这样维数

VBS教程:对象-Files 集合_vbs

Files 集合 文件夹中所有 File 对象的集合. 说明 以下代码举例说明如何获得 Folders 集合并使用 For Each...Next 语句枚举集合成员:  Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.File