[求助]有关tab函数的问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]有关tab函数的问题

标题：[求助]有关tab函数的问题

只看楼主

静夜思春

等　级：新手上路
帖　子：137
专家分：0
注　册：2007-7-2

第 11 楼

得分:0

楼上更加简单!

2007-10-20 23:10

simpson

等　级：论坛游民
威　望：7
帖　子：863
专家分：17
注　册：2006-11-16

第 12 楼

得分:0

print 如果是打印到容器(窗体 or 立即窗等) 可以
这个function返回的是String!!!!

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]

2007-10-20 23:17

slore

等　级：贵宾
威　望：16
帖　子：1108
专家分：0
注　册：2005-7-1

第 13 楼

得分:0

哦，那这样就可以了。

Public Function DigOut(num As Integer) As String '数字金子塔
Const OutStr = "12345678987654321"
Dim i As Integer
For i = 1 To num
DigOut = DigOut & Space(15 - i) & Left(OutStr, i) & Right(OutStr, i - 1) & vbCrLf
Next
End Function

快上课了……

2007-10-20 23:48

simpson

等　级：论坛游民
威　望：7
帖　子：863
专家分：17
注　册：2006-11-16

第 14 楼

得分:0

要的数字金子塔不是1-9 而是更大 99 怎么办?

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]

2007-10-21 01:16

abc5566