首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

菜鸟问个简单的有关问题

2012-01-31 
初学者问个简单的问题这样一段代码:PrivateSubCommand4_Click()s Fori1To10Fork1To10-iss&NextkFo

初学者问个简单的问题
这样一段代码:
Private   Sub   Command4_Click()
s   =   " "
For   i   =   1   To   10
                For   k   =   1   To   10   -   i
                s   =   s   &   "   "
        Next   k
        For   j   =   1   To   i
                s   =   s   &   "*   "
        Next   j
        s   =   s   &   Chr(13)
Next   i
Label1.Caption   =   s
End   Sub

输出为:
                    *
                *   *
              *   *   *
            *   *   *   *
          *   *   *   *   *
        *   *   *   *   *   *
      *   *   *   *   *   *   *
    *   *   *   *   *   *   *   *  
  *   *   *   *   *   *   *   *   *  
  *   *   *   *   *   *   *   *   *   *  

而改成这样后:
Private   Sub   Command4_Click()
s   =   " "
For   i   =   1   To   10
                For   k   =   1   To   10   -   i
                s   =   s   &   "- "
        Next   k
        For   j   =   1   To   i
                s   =   s   &   "*   "
        Next   j
        s   =   s   &   Chr(13)
Next   i
Label1.Caption   =   s
End   Sub

则变成:
---------*
--------*   *
-------*   *   *
------*   *   *   *
-----*   *   *   *   *
----*   *   *   *   *   *
---*   *   *   *   *   *   *
--*   *   *   *   *   *   *   *  
-*   *   *   *   *   *   *   *   *  
*   *   *   *   *   *   *   *   *   *  

为什么前一种星星会对不齐,后一种会对齐?

[解决办法]
太难了 。。。。55555555555555 根LABEL的对齐属性无法正确运行有关吗。。。
[解决办法]
可能是VB中的lable对象本身的问题吧!
如果你用debug.print出来就没有问题。
如果用textbox来显示也没有问题。当然在textbox中显示时需将s=s&chr(13)==> s=s&chr(13) & chr(10)

热点排行