具有不同数据类型列的二维阵列

Question

代码：VBA

假设有一个8 X 2 array, val(1 to 8, 1 to 2)。

我想的第一列是“字符串”类型，第二列的是“龙”类型。

是否可以定义这样的二维数组？

Answer 1

Dim A(8,2) As Variant 

数组都是相同的类型。

记录集是表格。这读取一个文本文件，并将一个随机数作为一个双精度和一个字符串放入每个记录。

Randomize 
Set rs = CreateObject("ADODB.Recordset") 
With rs 
    .Fields.Append "RandomNumber", 4 
    .Fields.Append "Txt", 201, 5000 
    .Open 
    Do Until Inp.AtEndOfStream 
     .AddNew 
     .Fields("RandomNumber").value = Rnd() * 10000 
     .Fields("Txt").value = Inp.readline 
     .UpDate 
    Loop 
    .Sort = "RandomNumber" 
    Do While not .EOF 
     Outp.writeline .Fields("Txt").Value 
     .MoveNext 
    Loop 
End With