小编Kin*_*Loo的帖子

VB初学者在这里。我需要创建的数组是3列100行。第一列将是一个整数，每行将增加2。第二列将是增加15天的日期。第三栏与第二栏相似，但从另一天开始。

我在下面尝试过一些代码，但是仍然不知道该怎么做。非常感谢您能帮助我解决这个问题。

Private Sub AutopayPayPeriod()
        Dim row As Int32
        Dim AutopayArray(0 To 10, 0 To 2)
        Dim RCN As Int32 = row
        Dim PayPeriodStart, PayPeriodEnd As Date
        Dim index As Int32
        RCN = 1
        PayPeriodStart = Format(#12/12/2015#, "Short Date")
        PayPeriodEnd = Format(#12/25/2015#, "Short Date")

        For index = 1 To AutopayArray.Length - 1
            AutopayArray(0, 2) = {RCN, PayPeriodStart, PayPeriodEnd}
            PayPeriodStart = PayPeriodStart.AddDays(15)
            PayPeriodEnd = PayPeriodEnd.AddDays(15)
            RCN += 2
            index += 1
            Array.Resize(ByRef AutopayArray, (AutopayArray.Length+=1))

        Next

    End Sub