VB windows窗体计算多行文本框中的数字

Question

我想计算每一行：就像第一行 123*1.616 和第二行 213*1.616，并显示每个总数。 在公斤文本框中输入的每个数字将乘以 1.616，然后在 kati 标签中显示结果。 这是我的代码：

Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Enter

For Each digit In (TextBox1.Text)
            total1 = Val(digit) * 1.616
            Label9.Text = total1
        Next

        Label9.Text = total1
End sub

请帮我找到一些解决方案或解释来实现输出。

Answer 1

这应该可以工作

Private FACTOR As Decimal = 1.616
Private SEPARATOR As String = Environment.NewLine

Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
    Label9.Text = TextBox1.Text.
        Split({SEPARATOR}, StringSplitOptions.RemoveEmptyEntries).
        Select(Function(s1) $"{Decimal.Parse(s1) * FACTOR:0.00#}").
        Aggregate(Function(s1, s2) $"{s1}{SEPARATOR}{s2}")
End Sub

这是 LINQ 中的函数

• Split 使用 SEPARATOR 作为分隔符将 TextBox 中的每一行组成一个数组
• Select 将元素转换为它们的值乘以 FACTOR
• Aggregate 将元素重新组合到一个分隔符分隔的字符串中

为什么您的原始代码不起作用？

• 您正在遍历文本中的每个字符，并将该字符乘以浮点数（Option Strict On，如 cmets 中所建议的那样会阻止这种情况发生）。
• 然后在每次迭代中，您都会执行（简化）Label9.Text = Val(digit) * 1.616，它每次都会覆盖标签。
• 如果您在调试中单步执行（在 cmets 中也建议），您会看到标签变为 1x1.616=1.616、2x1.616=3.232、3x1.616=4.848 等。结果是最后一个字符 在你的文本框中，'3'，乘以 1.161 = 4.848。显然，这不是你想要的。您需要迭代每个整数。多行文本框用新行分隔每一行。所以我们改为遍历每一行行。

Answer 2

您可以通过 vbCrLf 使用拆分字符串

Sub main()


  Dim multilinetext As String =
    "10
     20
     30
     40
     50
     60"

    Dim number_array = multilinetext.Split(vbCrLf)
    Dim output As Integer = 0
    For Each i In number_array
        output += i
    Next
    Stop
End Sub