怎么在text文本框中全是空白,求教!
For e1 = 0 To 12Text27(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这个数组,怎么做?