搜索
VB内置函数大全Abs(number)返回参数的绝对值，其类型和参数相同。必要的number参数是任何有效的数值表达式，如果number包含Null，则返回Null，如果number是未初始化的变量，则返回0。一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1)和ABS(1)都返回1。Array(arglist)返回一个包含数组的Variant。所需的arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为0的数组。用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个Variant的变量A。第二条语句将一个数组赋给变量A。最后一条语句将该数组的第二个元素的值赋给另一个变量。DimAAsVariantA=Array(10,20,30)B=A(2)使用Array函数创建的数组的下界受OptionBase语句指定的下界的决定,除非Array是由类型库（例如VBA.Array)名称限定。如果是由类型库名称限定，则Array不受OptionBase的影响。注意没有作为数组声明的Variant也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant变量可以表示任何类型的数组。尽管一个包含数组的Variant和一个元素为Variant类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。Asc(string)返回一个Integer，代表字符串中首字母的字符代码。必要的string参数可以是任何有效的字符串表达式。如果string中没有包含任何字符，则会产生运行时错误。在非DBCS系统下，返回值范围为0–255。在DBCS系统下，则为-32768–32767。注意AscB函数作用于包含在字符串中的字节数据，AscB返回第一个字节的字符代码，而非字符的字符代码。AscW函数返回Unicode字符代码，若平台不支持Unicode，则与Asc函数功能相同。Atn(number)返回一个Double，指定一个数的反正切值。必要的number参数是一个Double或任何有效的数值表达式。Atn函数的参数值(number)为直角三角形两边的比值并返回以弧度为单位的角。这个比值是角的对边长度除以角的邻边长度之商。值的范围在-pi/2和pi/2弧度之间。为了将角度转换为弧度，请将角度乘以pi/180。为了将弧度转换为角度，请将弧度乘以180/pi。注意Atn是Tan的反三角函数，Tan的参数值为角度，返回直角三角形的两条边的比值。不要将Atn和余切函数混淆，余切函数值是正切函数值的倒数，cotangent=(1/tangent)。CallByName(object,procedurename,calltype,[arguments()])执行一个对象的方法，或者设置或返回一个对象的属性。object必需的；变体型（对象）。函数将要执行的对象的名称。procedurename必需的；变体型（字符串）。一个包含该对象的属性名称或者方法名称的字符串表达式。calltype必需的；常数。一个vbCallType类型的常数，代表正在被调用的过程的类型。arguments()可选的：变体型（数组）。CallByName函数用于获取或者设置一个属性，或者在运行时使用一个字符串名称来调用一个方法。在下面的例子中，第一行使用CallByName来设置一个文本框的MousePointer属性，第二行得到MousePointer属性的值，第三行调用Move方法来移动文本框：CallByNameText1,MousePointer,vbLet,vbCrosshairResult=CallByName(Text1,MousePointer,vbGet)CallByNameText1,Move,vbMethod,100,100Choose(index,choice-1[,choice-2,...[,choice-n]])从参数列表中选择并返回一个值。Choose函数的语法具有以下几个部分：index必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可选择的项目数之间。choice必要参数，Variant表达式，包含可选择项目的其中之一。Choose会根据index的值来返回选择项列表中的某个值。如果index是1，则Choose会返回列表中的第1个选择项。如果index是2，则会返回列表中的第2个选择项，以此类推。可以使用Choose来查阅一个列表中的项目。例如，如果index所指定的值为3，而choice-1=one、choice-2=two、且choice-3=three，那么Choose将返回three。当index代表一选项组中的值时，则这项功能将会特别有用。即使它只返回一个选项值，Choose仍然会计算列表中的每个选择项。所以应该注意到这项副作用。例如，当在每个选择项表达式中使用了MsgBox函数作为其中的一部分时，每计算一个选择项，就会显示一次消息框。当index小于1或大于列出的选择项数目时，Choose函数返回Null。如果index不是整数，则会先四舍五入为与其最接近的整数。Chr(charcode)返回String，其中包含有与指定的字符代码相关的字符。Command返回命令行的参数部分，该命令行用于装入MicrosoftVisualBasic或VisualBasic开发的可执行程序。当从命令行装入VisualBasic时，/cmd之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中，cmdlineargs代表Command函数返回的参数信息。VB/cmdcmdlineargs对于使用VisualBasic开发并编译为.exe文件的应用程序，Command返回出现在命令行中应用程序名之后的任何参数。例如：MyAppcmdlineargsCos(number)返回一个Double，指定一个角的余弦值。CreateObject(class,[servername])创建并返回一个对ActiveX对象的引用。每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序可能会提供Application对象，Document对象，以及Toolbar对象。要创建ActiveX对象，只需将CreateObject返回的对象赋给一个对象变量：'声明一个对象变量来存放该对象'的引用。DimasObject采用后期绑定方式。DimExcelSheetAsObjectSetExcelSheet=CreateObject(Excel.Sheet)上述代码将启动该应用程序创建该对象，在本例中就是创建一个MicrosoftExcel电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中，可以使用对象变量ExcelSheet来访问新建对象的属性和方法，以及访问MicrosoftExcel的其它对象，包括应用程序对象和单元格集合。'设置Application对象使Excel可见ExcelSheet.Application.Visible=True'在表格的第一个单元中写些文本ExcelSheet.Cells(1,1).Value=ThisiscolumnA,row1'将该表格保存到C:\test.doc目录ExcelSheet.SaveAsC:\TEST.DOC'使用应用程序对象的Quit方法关闭Excel。ExcelSheet.Application.Quit'释放该对象变量SetExcelSheet=Nothing使用AsObject子句声明对象变量，可以创建一个能包含任何类型对象引用的变量。不过，该变量访问对象是后期绑定的，也就是说，绑定在程序运行时才进行。要创建一个使用前期绑定方式的对象变量，也就是说，在程序编译时就完成绑定，则对象变量在声明时应指定类ID。例如，可以声明并创建下列MicrosoftExcel引用：DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimxlSheetAsExcel.WorkSheetSetxlApp=CreateObject(Excel.Application)SetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.Worksheets(1)前期绑定的变量引用可以提供更好的性能，但该变量只能存放声明中所指定的类的引用。可以将CreateObject函数返回的对象传给一个参数为对象的函数。例如，下面的代码创建并传递了一个Excel.Application对象的引用：CallMySub(CreateObject(Excel.Application))可以在一个远端连网的计算机上创建一个对象，方法是把计算机的名称传递给CreateObject的servername参数。这个名称与共享名称的机器名部份相同：对于一个共享名称为\\\\MyServer\\Public,的servername参数是MyServer。下面的代码返回在一个名为MyServer的远端计算机上运行的Excel实例的版本号：DimxlAppAsObjectSetxlApp=CreateObject(Excel.Application,MyServer)Debug.PrintxlApp.Version如果远端服务器不存在或者不可用，则会发生一个运行时错误。注意当该对象当前没有实例时，应使用CreateObject。如果该对象已有实例在运行，就会启动一个新的实例，并创建一个指定类型的对象。要使用当前实例，或要启动该应用程序并加载一个文件，可以使用GetObject函数。如果对象已登记为单个实例对象，则不管执行多少次CreateObject，都只能创建该对象的一个实例。CurDir[(drive)]返回一个Variant(String)，用来代表当前的路径。可选的drive参数是一个字符串表达式，它指定一个存在的驱动器。如果没有指定驱动器，或drive是零长度字符串()，则CurDir会返回当前驱动器的路径。CVErr(errornumber)返回Error子类型的Variant，其中包含指定的错误号。必要的errornumber参数可以是任何有效的错误号代码。可以在过程中，使用CVErr函数来创建用户自定义错误。例如，如果创建一个函数，它可以接受若干个参数，且正常返回一个字符串，则可以让函数来判断输入的参数，确认它们是在可接受的范围内。如果不是的话，此函数将不会返回所要的字符串。在这种情况下，CVErr可以返回一个错误号，并告知应该采取的行动。注意，Error的隐式转换是不允许的，例如，不能直接把CVErr的返回值赋值给一个非Variant的变量。然而，可以对CVErr的返回值进行显式转换（使用CInt、CDbl等等），并赋值给适当的数据类型变量。Date返回包含系统日期的Variant(Date)。DateAdd(interval,number,date)返回包含一个日期的Variant(Date)，这一日期还加上了一段时间间隔。DateAdd函数语法中有下列命名参数：interval必要。字符串表达式，是所要加上去的时间间隔。number必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。date必要。Variant(Date)或表示日期的文字，这一日期还加上了时间间隔。interval参数具有以下设定值：yyyy年q季m月y一年的日数d日w一周的日数ww周h时n分钟s秒可以使用DateAdd函数对日期加上或减去指定的时间间隔。例如，可以用DateAdd来计算距今天为三十天的日期；或者计算距现在为45分钟的时间。为了对date加上“日”，可以使用“一年的日数”(“y”)，“日”(”d”)或“一周的日数”(”w”)。