帮我编一个程序,,或者教我

Question

就是一个很简单的程序,,,程序里有9个输入框, 
好像这样: 
  ┌—┐ ┌—┐ ┌—┐ 
    1  2  3 
  └—┘ └—┘ └—┘      
  ┌—┐ ┌—┐ ┌—┐ 
    4  5  6          ┌——┐ 
  └—┘ └—┘ └—┘        │计算│ 
  ┌—┐ ┌—┐ ┌—┐        └——┘ 
    7  8  9            
  └—┘ └—┘ └—┘ 
  
——————————————————— 
│                  │ 
│      答案          │ 
│                  │ 
——————————————————— 
1-9是可以输入数字0-9的  计算的那个键是固定的    
然后按一下计算就可以把 
1,2,4    1,2,9    4,5,3  4,5,9  7,8,3  7,8,6 
2,3,4    2,3,7    5,6,1  5,6,7  8,9,1  8,9,4 
1,4,8    1,4,9    2,5,7  2,5,9  3,6,7  3,6,8 
4,7,2    4,7,3    5,8,1  5,8,3  6,9,1  6,9,2 
的输入框的数字相加  分别得列出来    显示在答案的那个框里面 可以教我怎么做 
打开VB--新建一个工程，这是就进入工作界面了，然后从左面控件中拖放9个text控件（就是1~9那九个输入框）到工作区，再拖一个（就是答案那个）。再来一个按钮控件，双击按钮控件，进入代码编辑界面 
到了代码编辑器我就不会写了

Answer 1

1,2,4    1,2,9    4,5,3  4,5,9  7,8,3  7,8,6 
2,3,4    2,3,7    5,6,1  5,6,7  8,9,1  8,9,4 
1,4,8    1,4,9    2,5,7  2,5,9  3,6,7  3,6,8 
4,7,2    4,7,3    5,8,1  5,8,3  6,9,1  6,9,2 有个什么规律啊~~~若没有的话就写24次吧:
text10.text=""
text10.text=text10.text & val(text1+text2+text4) & " "
text10.text=text10.text & val(text1+text2+text9) & " "
...
text10.text=text10.text & val(text6+text9+text2) & " "

Answer 2

Option ExplicitDim nResult(1 To 24) As SinglePrivate Sub Command1_Click()
   nResult(1) = Text1(1).Text + Text1(1).Text + Text1(1).Text
   nResult(2) = Text1(1).Text + Text1(2).Text + Text1(9).Text
   nResult(3) = Text1(4).Text + Text1(5).Text + Text1(3).Text
   nResult(4) = Text1(4).Text + Text1(5).Text + Text1(9).Text
   nResult(5) = Text1(7).Text + Text1(8).Text + Text1(3).Text
   nResult(6) = Text1(7).Text + Text1(8).Text + Text1(6).Text
   nResult(7) = Text1(2).Text + Text1(3).Text + Text1(4).Text
   nResult(8) = Text1(2).Text + Text1(3).Text + Text1(7).Text
   nResult(9) = Text1(5).Text + Text1(6).Text + Text1(1).Text
   nResult(10) = Text1(5).Text + Text1(6).Text + Text1(7).Text
   nResult(11) = Text1(8).Text + Text1(9).Text + Text1(1).Text
   nResult(12) = Text1(8).Text + Text1(9).Text + Text1(4).Text
   nResult(13) = Text1(1).Text + Text1(4).Text + Text1(8).Text
   nResult(14) = Text1(1).Text + Text1(4).Text + Text1(9).Text
   nResult(15) = Text1(2).Text + Text1(5).Text + Text1(7).Text
   nResult(16) = Text1(2).Text + Text1(5).Text + Text1(9).Text
   nResult(17) = Text1(3).Text + Text1(6).Text + Text1(7).Text
   nResult(18) = Text1(3).Text + Text1(6).Text + Text1(8).Text
   nResult(19) = Text1(4).Text + Text1(7).Text + Text1(2).Text
   nResult(20) = Text1(4).Text + Text1(7).Text + Text1(3).Text
   nResult(21) = Text1(5).Text + Text1(8).Text + Text1(1).Text
   nResult(22) = Text1(5).Text + Text1(8).Text + Text1(3).Text
   nResult(23) = Text1(6).Text + Text1(9).Text + Text1(1).Text
   nResult(24) = Text1(6).Text + Text1(9).Text + Text1(2).Text
   
   Dim i As Integer
   Dim str As String
   str = nResult(1)
   For i = 2 To 24
      str = str & vbCrLf & nResult(i)
   Next
   Text2.Text = str
 
End Sub