用visual basic编写计算均值的代码

下面是用 Visual Basic 编写计算均值的代码：

Private Sub btnCalculate_Click()
    Dim strNums As String
    Dim arrNums() As String
    Dim intSum As Integer
    Dim dblCount As Double
    Dim dblMean As Double
    
    'Get numbers from text box and split into an array
    strNums = txtNumbers.Text
    arrNums = Split(strNums, ",")
    
    'Loop through array and calculate sum and count
    For i = 0 To UBound(arrNums)
        intSum = intSum + CInt(arrNums(i))
        dblCount = dblCount + 1
    Next i
    
    'Calculate mean and display result
    dblMean = intSum / dblCount
    lblResult.Caption = "The mean is " & Format(dblMean, "0.00")
End Sub

注意：此代码假设输入的数字以逗号分隔，并且在一个名为 `txtNumbers` 的文本框中输入。结果将在一个名为 `lblResult` 的标签中显示。