我编写的一段程序，代码如下

Private Sub Command2_Click()

       For i = 10 To Val(Text12) Step Val(Text13)
           For j = 0 To Val(Text14) Step Val(Text15)
               If Val(Text8) + Val(j) >= 0 And Val(Text8) + Val(j) <= Val(Text7) Then
                  If Val(Text8) = 0 Then Text16 = Format(Val(Text1) + Val(Text2) * Val(Text6) / (Val(Text3) * ((3.1415926535897 * Val(Text4) * Val(i) * Val(Text5)) ^ 0.5)) * (Exp(-(Val(Text5) * Val(j) ^ 2 / 4 / Val(Text4) / Val(i))) + Exp(-(Val(Text5) * (Val(Text7) * 2 - Val(j)) ^ 2 / 4 / Val(Text4) / Val(i)))), "0.0000")
                  If Val(Text8) > 0 Then Text16 = Format(Val(Text1) + 0.5 * Val(Text2) * Val(Text6) / (Val(Text3) * ((3.1415926535897 * Val(Text4) * Val(i) * Val(Text5)) ^ 0.5)) * (Exp(-(Val(Text5) * Val(j) ^ 2 / 4 / Val(Text4) / Val(i))) + Exp(-(Val(Text5) * (Val(j) + Val(Text8) * 2) ^ 2 / 4 / Val(Text4) / Val(i))) + Exp(-(Val(Text5) * (Val(Text7) * 2 - 2 * Val(Text8) - Val(j)) ^ 2 / 4 / Val(Text4) / Val(i)))), "0.0000")
               Else: MsgBox "a+y的范围应在[0,B]中"
               End If
              Text17 = "X=" & i & "， " & "Y=" & j & "， " & "C=" & Text16 & vbCrLf
           Next j
       Next i

为了实现在文本中显示买一次的运算结果
但是结果只出现了最后一次的，即
  X=2910， Y=100， C=4.1422
请问如何才能显示每一次的啊？
  如，x=10,y=0,c=??
      x=110,y=10,c=??
      ……
      x=2910,y=100,c=4.1422

请朋友们指点一下，谢谢了。急用的