| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 338 人关注过本帖
标题:怎么在text文本框中全是空白,求教!
只看楼主 加入收藏
青年刘
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2015-4-6
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:2 
怎么在text文本框中全是空白,求教!
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这个数组,怎么做?
搜索更多相关主题的帖子: 文本框 
2015-04-27 11:14
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
代码太长了我就懒得看了
很可能是你的循环里面有个""的赋值,而且是不在你的预料之中执行的。

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-04-27 17:27
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:10 
回复 楼主 青年刘
想要得到正确结果,除了思维清晰,语法和程序结构还要正确
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中。
单步执行一下,看看每步完成是不是自己心目中的结果。

大开眼界
2015-04-28 08:51
快速回复:怎么在text文本框中全是空白,求教!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019663 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved