Vb.net 如何使用列表框项目减去文本框

大家好 如何使用按钮上的文本框减去列表框项 listbox第一项使用textbox1提取 和列表框第2项减去文本框2 等等 这里是我的代码，它的工作，但这么长

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = CDbl(ListBox1.Items.Item(0)) - CDbl(TextBox1.Text)
TextBox2.Text = CDbl(ListBox1.Items.Item(1)) - CDbl(TextBox2.Text)

端接头 等等

---

请帮助

您可以使用

For Loop

执行此操作，但请确保

文本框

的数量等于

列表框

项：

For iIndex As Integer = 0 To ListBox1.Items.Count - 1
    Result = CDbl(Me.ListBox1.Items(iIndex)) - CDbl(Me.Controls.Item("TextBox" & iIndex + 1).Text)
Next

---

没有人能理解我的最后一个问题，所以我编辑并用简单的文字发布了它。如果你想要不太长的代码，请将这些控件重命名为不太长的代码。兄弟，我想要最后的数量，所以如果我写每件事，我的代码都很长