您的位置：程序门 -> vb -> 基础类

初学者问个简单的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

初学者问个简单的问题[已结贴,结贴人:farewell4]

发表于：2007-05-20 23:29:57 楼主

这样一段代码:
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

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

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

发表于：2007-05-20 23:34:361楼得分:0

在线等待,答对立即给分

发表于：2007-05-20 23:57:152楼得分:10

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

发表于：2007-05-21 00:07:223楼得分:60

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

发表于：2007-05-21 00:08:004楼得分:0

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

发表于：2007-05-21 00:11:455楼得分:0

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)

---------------
好像是这样,谢谢了

下一篇：血凝分析仪，74条记录，通过com口传送，用vb读取后无法解码，谁知道怎么解码？
上一篇：为何数据库无法打开

其他资讯