Arrays 数组乘以3的幂

下面的代码加载一个数组并乘以2的幂

Sub Main()

    Console.WriteLine("-EXAMPLE-" & vbNewLine & vbNewLine)

    Dim array(24) As Double, i As Long

    array(0) = 1
    For i = 1 To 24
        array(i) = 2 * array(i - 1)
    Next i
    Call DisplayArray(array)
End Sub
Sub DisplayArray(ByRef array() As Double)
    Dim i As Long, n As Long

    n = array.GetLength(0)
    For i = 0 To n - 1
        Console.WriteLine(array(i) & vbNewLine & vbNewLine)
    Next i
End Sub

如何调整代码使其达到3的幂

我已将值“2”更改为“3”，但仍然没有这样的运气 导入system.math

---

我有一个印象，你想要的数字是3的幂，如果是这样的话，数组中的元素将是1，3，9，27，81等等，3的幂，如果是下面的情况，逻辑应该工作

    array(0) = 1
    For i = 1 To 24
        array(i) = 3 * array(i - 1)
    Next i

或者你也可以这样做

    For i = 0 To 24
        array(i) = Math.Pow(3, i)
    Next i

但是，如果您希望数组由1、3、6、9等填充，那么下面的代码应该是3的倍数

    array(0) = 1
    For i = 1 To 24
        array(i) = 3 * i
    Next i

---

当你从2变为3时，你会遇到什么问题？我认为LyanR想要的是元素是3的倍数，但是你的代码不会按照他想要的方式工作。不，array0=1，因此array1将是1^3=1，所有元素都将是1。你的输出是什么样的1,3,27

    array(0) = 1
    For i = 1 To 24
        array(i) = 3 * i
    Next i