For e1 = 0 To 12
Text27(e1).Text = Fallmatrix(0, e1)
Next e1
For e2 = 0 To 12
Text37(e2).Text = Fallmatrix(1, e2)
Next e2
For e3 = 0 To 12
Text47(e3).Text = Fallmatrix(2, e3)
Next e3
For e4 = 0 To 12
Text57(e4).Text = Fallmatrix(3, e4)
Next e4
For e5 = 0 To 12
Text67(e5).Text = Fallmatrix(4, e5)
Next e5
      
      
For m = Asc("a") To Asc("f")
   If m <= Asc(maxchezubianhao) Then
     For j = 0 To 12
         If Chr(m) = b(j) Then
                  If j < lastfallindex Then
                         i = i + 1
                         Fallmatrix(i, j) = Asc(m)
                         lastfallindex = j
                         j = (j + 1) Mod 13
                               If Jend = j Then
                                  Jend = lastfallindex
                                  j = (lastfallindex + 1) Mod 13
                                   m = m + 1
                               End If
                  Else
                       Fallmatrix(i, j) = Chr(m)
                       lastfallindex = j
                       j = (j + 1) Mod 13
                            If Jend = j Then
                                Jend = lastfallindex
                                j = (lastfallindex + 1) Mod 13
                                 m = m + 1
                            End If
                  End If
         Else
               j = (j + 1) Mod 13
                    If Jend = j Then
                        Jend = lastfallindex
                        j = (lastfallindex + 1) Mod 13
                        m = m + 1
                    End If
          End If
          Next j
   Else
      Exit For
   End If
Next m
End Sub
我这个程序，最后执行时，text文本框中全是空白，等于for循环没有执行，是不是那个Fallmatrix中赋值给text文本框有关系？我就是想让Fallmatrix这个数组与text控件数组建立联系，然后在for循环中直接用Fallmatrix这个数组，怎么做？