Question

Public Class Form1

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Sum As Integer
    Dim input(9) As Integer

    input(0) = CInt(TextBox1.Text)
    input(1) = CInt(TextBox2.Text)
    input(2) = CInt(TextBox3.Text)
    input(3) = CInt(TextBox4.Text)
    input(4) = CInt(TextBox5.Text)
    input(5) = CInt(TextBox6.Text)
    input(6) = CInt(TextBox7.Text)
    input(7) = CInt(TextBox8.Text)
    input(8) = CInt(TextBox9.Text)
    input(9) = CInt(TextBox10.Text)

    Sum = input(0) + input(1)
    lblTotal.Text = (Sum)
 End Sub 
End Class

大家好。我有一个两难的境地，当我尝试将前两个输入加在一起时，它给了我一个错误，我不明白为什么。我只想将所有这些数组添加到一起，但我希望数组是我可以输入的数字。程序本身有十个文本框和一个标签框，其中应显示总和。我试图理解为什么我甚至不能添加两个输入，它只是错误。我必须使用一个数组并完全添加它们，它必须显示。

Answer 1

要在您期望数字时正确处理用户输入，您应使用Int32.TryCast方法，如果输入不是有效数字，则返回false

Dim temp as Integer
if Int32.TryCast(TextBox1.Text, temp) then
    input(0) = temp

现在你可以为所有其他文本框重复相同的逻辑

最后，您可以使用IEnumberable扩展Sum来汇总所有值

Sum = input.Sum()

Answer 2

试试这个：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    lblTotal.Text = Enumerable.Range(1, 10).Select(Function(i) CInt(Val(CType(Controls("TextBox" & i), TextBox).Text))).Sum
End Sub

如何将数组一起添加并从输入的数字中求和

2 个答案: