注意 ChrB 函数作用于包含在 String 中的字节数据。ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。ChrW 函数返回包含 Unicode 的 String，若在不支持 Unicode 的平台上，则其功能与 Chr 函数相同。
Chr 函数示例
本示例使用 Chr 函数来返回指定字符码所代表的字符。 Dim MyChar
MyChar = Chr(65) ' 返回 A。 MyChar = Chr(97) ' 返回 a。 MyChar = Chr(62) ' 返回 >。 MyChar = Chr(37) ' 返回 %。
Command 函数
返回命令行的参数部分，该命令行用于装入 Microsoft Visual Basic 或 Visual Basic 开发的可执行程序。 语法 Command 说明
当从命令行装入 Visual Basic 时，/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中，cmdlineargs 代表 Command 函数返回的参数信息。 VB /cmd cmdlineargs
对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序，Command 返回出现在命令行中应用程序名之后的任何参数。例如： MyApp cmdlineargs
想知道如何在正在使用的应用程序的用户界面中改变命令行参数，请搜寻关于“命令行参数”的帮助。
Command 函数示例
本示例在某个函数中用 Command 函数获得命令行参数，并将命令行参数以 Variant 类型之数组返回。
Function GetCommandLine(Optional MaxArgs) '声明变量。
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs '检查是否提供了 MaxArgs 参数。
If IsMissing(MaxArgs) Then MaxArgs = 10 ' 使数组的大小合适。 ReDim ArgArray(MaxArgs) NumArgs = 0: InArg = False '取得命令行参数。 CmdLine = Command() CmdLnLen = Len(CmdLine)
'以一次一个字符的方式取出命令行参数。 For I = 1 To CmdLnLen C = Mid(CmdLine, I, 1) '检测是否为 space 或 tab。
If (C <> \
'若既不是 space 键，也不是 tab 键， '则检测是否为参数内含之字符。 If Not InArg Then '新的参数。
'检测参数是否过多。
If NumArgs = MaxArgs Then Exit For NumArgs = NumArgs + 1 InArg = True
End If
'将字符连接到当前参数中。
ArgArray(NumArgs) = ArgArray(NumArgs) & C Else
'找到 space 或 tab。
'将 InArg 标志设置成 False。 InArg = False End If Next I
'调整数组大小使其刚好符合参数个数。 ReDim Preserve ArgArray(NumArgs) '将数组返回。
GetCommandLine = ArgArray() End Function
Cos 函数
返回一个 Double，指定一个角的余弦值。 语法 Cos(number)
必要的 number 参数是一 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。 说明
Cos 函数的参数为一个角，并返回直角三角形两边的比值。该比值为角的邻边长度除以斜边长度之商。
结果的取值范围在 -1 到 1 之间。
为了将角度转换成弧度，请将角度乘以 pi/180。为了将弧度转换成角度，请将弧度乘以 180/pi。
Cos 函数示例
本示例使用 Cos 函数计算一个角的余弦。
Dim MyAngle, MySecant
MyAngle = 1.3 ' 定义角度（以“弧度”为单位）。
MySecant = 1 / Cos(MyAngle) ' 利用余弦计算正割（sec()）。
CreateObject 函数
创建并返回一个对 ActiveX 对象的引用。 语法
CreateObject(class,[servername]) CreateObject 函数的语法有如下部分： 部分 描述 必需的； Variant (String). 要创建class 的应用程序名称和类。 servername 可选的； Variant (String). 要在其上创建对象的网络服务器名称。 class 参数使用 appname.objecttype 这种语法，包括以下部分： 部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 appname objecttype 必需的；Variant（字符串）。待创建对象的类型或类。 说明
每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序可能会提供 Application 对象，Document 对象，以及 Toolbar 对象。 要创建 ActiveX 对象，只需将 CreateObject 返回的对象赋给一个对象变量： '声明一个对象变量来存放该对象
'的引用。Dim as Object 采用后期绑定方式。 Dim ExcelSheet As Object
Set ExcelSheet = CreateObject(\
上述代码将启动该应用程序创建该对象，在本例中就是创建一个 Microsoft Excel 电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中，可以使用对象变量 ExcelSheet 来访问新建对象的属性和方法，以及访问 Microsoft Excel 的其它对象，包括应用程序对象和单元格集合。
'设置 Application 对象使 Excel 可见 ExcelSheet.Application.Visible = True '在表格的第一个单元中写些文本
ExcelSheet.Cells(1, 1).Value = \'将该表格保存到 C:\\test.doc 目录 ExcelSheet.SaveAs \
'使用应用程序对象的 Quit 方法关闭 Excel。 ExcelSheet.Application.Quit '释放该对象变量
Set ExcelSheet = Nothing
使用 As Object 子句声明对象变量，可以创建一个能包含任何类型对象引用的变量。不过，该变量访问对象是后期绑定的，也就是说，绑定在程序运行时才进行。要创建一个使用前期绑定方式的对象变量，也就是说，在程序编译时就完成绑定，则对象变量在声明时应指定类 ID。例如，可以声明并创建下列 Microsoft Excel 引用：
Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject(\Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1)
前期绑定的变量引用可以提供更好的性能，但该变量只能存放声明中所指定的类的引用。
可以将 CreateObject 函数返回的对象传给一个参数为对象的函数。例如，下面的代码创建并传递了一个 Excel.Application 对象的引用： Call MySub (CreateObject(\
可以在一个远端连网的计算机上创建一个对象，方法是把计算机的名称传递给 CreateObject 的 servername 参数。这个名称与共享名称的机器名部份相同：对于一个共享名称为 \的 servername 参数是 \。
下面的代码返回在一个名为 MyServer 的远端计算机上运行的 Excel 实例的版本号：
Dim xlApp As Object
Set xlApp = CreateObject(\Debug.Print xlApp.Version
如果远端服务器不存在或者不可用，则会发生一个运行时错误。
注意 当该对象当前没有实例时，应使用 CreateObject。如果该对象已有实例在运行，就会启动一个新的实例，并创建一个指定类型的对象。要使用当前实例，或要启动该应用程序并加载一个文件，可以使用 GetObject 函数。 如果对象已登记为单个实例对象，则不管执行多少次 CreateObject，都只能创建该对象的一个实例。