<< 向前        下一页 >>

ID : 5070

Array

功能

创建Variant型排列。

格式

Array(值列表)

指定项目

值列表
通过(，)隔开值列表进行指定。将指定值作为排列要素进行保存。也可指定不同数据型的值。

返回值

返回Variant型排列。

解说

  • 参照排列要素时，在变量名后加上括号，在括号中指定参照要素的索引编号。
    索引编号从0开始按顺序排列编号。以下示例中输出第3个要素“30”。
Dim A As Variant
A = Array(10,20,30)
输出PrintDbg A(2) ' 30
  • 如果为范围外的索引编号，则执行时将发生8160800C的错误。
  • 如果值列表中的值使用变量，则使用项目执行时评价的值。

相关项目

排列

注意事项

  • 在排列中可定义排列。将这种排列称为不规则排列(Jagged array)。如下例所示，需要通过Variant变量间接访问不规则排列。
Dim a As Variant
Dim b As Variant
a = Array( Array(0,1,2) , Array(3,4) ) ' 创建不规则排列
b = a(0) ' 获取Array(0,1,2) 
PrintDbg b(0), b(1), b(2) ' 输出0,1,2 
b = a(1) ' 获取Array(3,4) 
PrintDbg b(0), b(1) ' 输出3,4

如下例所示，如果直接访问，则PacScript中将产生程序编译错误。

Dim a As Variant
a = Array( Array(0,1,2) , Array(3,4) ) ' 创建不规则排列
PrintDbg a(0)(0), a(0)(1), a(0)(2) '错误

应用示例

如下例所示，输出颜色和编码的对应列表。

Pro1.pcs
Sub Main
  Dim n As Integer
  Dim vColor As Variant
　vColor = Array( "RED", &H0000FF, "GREEN", &H00FF00, "BLUE", &HFF0000 )

  For n=0 To Ubound(vColor)/2-1
     PrintDbg vColor(n*2),  Hex(vColor(n*2+1))
  Next

End Sub

ID : 5070

<< 向前        下一页 >>