0

我有一个表单,其中包含 3 个文本框,用于 3 个输入值,以及一个用于输出的列表框。我需要用户能够输入 3 个不同的数字并单击一个按钮来查找平均值。我不确定如何做/处理这个。任何帮助是极大的赞赏。

还是卡住了……

Private Sub btnAverage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)     
Handles btnAverage.Click
    Dim a As Integer = CInt(txtone.Text)
    Dim b As Integer = CInt(txtTwo.Text)
    Dim c As Integer = CInt(txtThree.Text)
    Dim average As Integer
    average = (a + b + c) / 3
    lstOutput.Text = average
4

4 回答 4

3

您不确定如何将输入转换为数字?如果是这样,请使用 CInt 函数。

Public Sub OnAverageClick(ByVal sender as Object, ByVal e As EventArgs) Handles AverageButton.Click

    Dim input1 as Integer = CInt(textBox1.Text)
    Dim input2 as Integer = CInt(textBox2.Text)
    Dim input3 as Integer = CInt(textBox3.Text)
    Dim average = (input1 + input2 + input3) / 3

End Sub
于 2009-03-11T01:37:50.350 回答
0

@JaredPar

我会改用 Integer.TryParse 。

于 2009-03-11T01:46:37.707 回答
0

此函数计算任意数量的非零值的平均值:

''' <summary>Calcula el Promedio de los Valores ingresados.
''' Sólo tiene en cuenta los Valores mayores que 0.</summary>
''' <param name="diasValores">Valores a Calcular</param>
Function PromedioValores(ByVal ParamArray diasValores() As Integer)
    'Esta funcion calcula el promedio de los valores ingresados como parametro
    Dim result As Double = 0
    If diasValores.Length <= 0 Then Exit Function
    Dim cant As Integer = 0
    For i As Integer = 0 To UBound(diasValores, 1)
        If diasValores(i) > 0 Then
            cant = cant + 1
            result += diasValores(i)
        End If
    Next i
    If result > 0 Then
        result = result / cant
    End If

    Return result
End Function

采用:

Me.TextBox1.Text = PromedioValores(10, 0, 0, 15, 0, 12, 12, 0)
于 2015-03-25T16:38:50.863 回答
-2
protected sub on_btn_click()

listbox1.items.add(new listitem((integer.parse(textbox1.text) + integer.parse(textbox2.text) + integer.parse(textbox3.text)) / 3 ))

end sub
于 2009-03-11T01:36:52.317 回答