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

Question

代码：VBA

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

我希望第一列为＆＃34; String＆＃34; 类型，第二列为＆＃34; Long＆＃34; 类型。

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

Answer 1

Dim A(8,2) As Variant

数组的类型都相同。

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

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