初学者问个简单的问题

Question

这样一段代码:
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则变成:
---------*
--------* *
-------* * *
------* * * *
-----* * * * *
----* * * * * *
---* * * * * * *
--* * * * * * * * 
-* * * * * * * * * 
* * * * * * * * * * 为什么前一种星星会对不齐,后一种会对齐?

Answer 1

太难了 。55555555555555    根LABEL的对齐属性无法正确运行有关吗

Answer 2

可能是VB中的lable对象本身的问题吧！
如果你用debug.print出来就没有问题。
如果用textbox来显示也没有问题。当然在textbox中显示时需将s=s&chr(13)==>s=s&chr(13) & chr(10)

Answer 3

根LABEL的对齐属性无法正确运行有关吗
是么?不是很清楚

Answer 4

cqq_chen(我是谁) ( ) 信誉：96    Blog   加为好友  2007-05-21 00:07:22  得分: 0  
 
 
   可能是VB中的lable对象本身的问题吧！
如果你用debug.print出来就没有问题。
如果用textbox来显示也没有问题。当然在textbox中显示时需将s=s&chr(13)==>s=s&chr(13) & chr(10)
  
 
---------------
好像是这样,谢谢了