张小凡砍灵竹

题目

张小凡刚入青云门时，拜入大竹峰田不易门下，师父要求他上山砍灵竹锻炼体力。第一天他砍了1根，之后的九天他分别砍了2，4，5，5，8，7，9，12，2根，求这十天张小凡砍灵竹数量的平均值。

代码

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim numbers As Integer() = New Integer() {1, 2, 4, 5, 5, 8, 7, 9, 12, 2}
        Dim sum As Integer, avg As Single
        sum = 0
        For i = 0 To numbers.Count - 1
            sum += numbers(i)
        Next i
        avg = sum / numbers.Count
        Label1.Text = avg
    End Sub
End Class

运行效果