Module Module1
 
    Sub Main()
        ' 定义一个整数数组
        Dim numbers() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
 
        ' 调用函数计算平均值
        Dim average As Double = CalculateAverage(numbers)
 
        ' 输出平均值
        Console.WriteLine("The average value is: " & average.ToString("F2"))
 
        ' 等待用户按键后关闭
        Console.ReadLine()
    End Sub
 
    ' 定义计算平均值的函数
    Function CalculateAverage(ByVal values() As Integer) As Double
        ' 数组的长度
        Dim length As Integer = values.Length
 
        ' 如果数组为空，则返回0或抛出异常（根据你的需求）
        If length = 0 Then
            Return 0 ' 或者你可以抛出异常：Throw New ArgumentException("The array is empty.")
        End If
 
        ' 初始化总和为0
        Dim sum As Integer = 0
 
        ' 遍历数组并累加所有元素
        For i As Integer = 0 To length - 1
            sum += values(i)
        Next
 
        ' 计算平均值并返回
        Return CDbl(sum) / length
    End Function
 
End Module