注册 登录
编程论坛 VB6论坛

怎么在text文本框中全是空白,求教!

青年刘 发布于 2015-04-27 11:14, 338 次点击
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这个数组,怎么做?
2 回复
#2
renxiaoyao362015-04-27 17:27
代码太长了我就懒得看了
很可能是你的循环里面有个""的赋值,而且是不在你的预料之中执行的。
#3
lianyicq2015-04-28 08:51
回复 楼主 青年刘
想要得到正确结果,除了思维清晰,语法和程序结构还要正确
For e1 = 0 To 12
Text27(e1).Text = Fallmatrix(0, e1)
...
Text67(e5).Text = Fallmatrix(4, e5)
Next e5
没发现语法错误。
If m <= Asc(maxchezubianhao) Then
maxchezubianhao是定义的变量?asc是转一个字符。比如asc("A")
后续语句中的m是什么?既用在了chr中,也用在了asc中。
单步执行一下,看看每步完成是不是自己心目中的结果。
1