我怎樣才能得到大量的文本框相互減去

Question

我想做一個程序，用戶輸入數字到減法公式中，程序告訴他們他們是對還是錯，以及什麼是正確的答案在標籤中。有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周不同的時間，每一個標籤。

感謝您的幫助。

Answer 1

最好創建一個帶3個標籤和3個文本框的用戶控件。然後你只需要編寫這麼多的代碼，然後把這個邏輯放在一個循環中，按照你的想法重複多次。基本上，把你的問題縮小到「我只有1個方程」，用這種方法解決問題，其餘的就像在你的代碼中添加一個循環一樣簡單。