Vb.net 如何使大量文本框相互相减

我试图制作一个程序，用户将数字输入到减法方程式中，程序告诉他们是对还是错，以及标签上的正确答案。有20个不同的方程式，每个方程式有3个文本框。前两个文本框用于减去的两个数字，第三个文本框是答案。我将它们声明为一个数组，但我不知道如何使它们相减。到目前为止，我掌握的代码是：

    Dim i As Integer
    Dim txtNumber1() As TextBox = {txt1Number1, txt2Number1, txt3Number1, txt4Number1, txt5Number1, txt6Number1, txt7Number1, txt8Number1, txt9Number1, txt10Number1, txt11Number1, txt12Number1, txt13Number1, txt14Number1, txt15Number1, txt16Number1, txt17Number1, txt18Number1, txt19Number1, txt20Number1}
    Dim txtNumber2() As TextBox = {txt1Number2, txt2Number2, txt3Number2, txt4Number2, txt5Number2, txt6Number2, txt7Number2, txt8Number2, txt9Number2, txt10Number2, txt11Number2, txt12Number2, txt13Number2, txt14Number2, txt15Number2, txt16Number2, txt17Number2, txt18Number2, txt19Number2, txt20Number2}
    Dim txtAnswer() As TextBox = {txt1Answer, txt2Answer, txt3Answer, txt4Answer, txt5Answer, txt6Answer, txt7Answer, txt8Answer, txt9Answer, txt10Answer, txt11Answer, txt12Answer, txt13Answer, txt14Answer, txt15Answer, txt16Answer, txt17Answer, txt18Answer, txt19Answer, txt20Answer}
    Dim intAnswer() As Integer
    For i = 0 To txtNumber1.Length - 1
        intAnswer(i) = txtNumber1(i) - txtNumber2(i)
    Next

我也不知道如何将每个答案显示成一个标签。我想应该是这样的

If intAnswer(0) = txtAnswer(0) Then
   Me.lblAnswer1.Text = "Correct:" & intAnswer(0)
Else
   Me.lblAnswer1.Text = "Incorrect:" & intAnswer(0)
End If

但我不确定我将如何循环它以使它完成所有20个标签，或者我只需要20次不同的循环，每个标签一次

---

感谢您的帮助。

最好创建一个用户控件，每个控件上有3个标签和3个文本框。然后，您只需要编写这么多代码，并将此逻辑封装在一个循环中，以便根据需要重复多次。基本上，把你的问题缩小到“我只有一个方程”，用这种方法来解决它，剩下的问题就像在你的代码中添加一个循环一样简单。

基于这个问题，我认为这个答案有点高技术。我认为简单的文本框。文本修复这次就足够了。不过，我同意你的回答。