用vb编写sma函数源码

下面是使用VB编写的简单移动平均（SMA）函数源代码：

Public Function CalculateSMA(data() As Double, period As Integer) As Double()
    Dim sma(period - 1) As Double
    Dim sum As Double

    For i = period To UBound(data)
        sum = 0
        For j = i - period + 1 To i
            sum = sum + data(j)
        Next j
        sma(i - 1) = sum / period
    Next i

    CalculateSMA = sma
End Function

该函数接受一个包含要计算SMA的数据数组`data`和SMA的周期`period`作为输入，并返回一个包含SMA结果的数组。

在函数内部，我们使用两个循环来计算SMA。外部循环从`period`开始，一直到`UBound(data)`，即数组的上界。内部循环用于计算每个SMA的累加和。我们从`i - period + 1`开始，一直加到`i`，并将这个范围内的数据相加。最后，我们将总和除以期数`period`，得到每个SMA的平均值，并将其存储在结果数组`SMA`中。

通过返回结果数组，函数可以在主程序中使用并打印或进一步处理SMA的值。