请教大家一个问题啊
要编个程序实现以下情况:
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
请问大家要如何用tab函数实现啊???
我的程序是这样:(但是实现不了,请大家帮忙改一下)
Dim a, b, c, d, h, n As Integer
Private Sub Command1_Click()
d = 9
For n = 1 To 9
For a = 1 To n * 2 - 1
b1 = Int(n / 2) + 1
b = b1 - Abs(b1 - a)
c = Asc(b)
Print Tab(d); String(1, c)
d = d - 1
Next a
Next n
End Sub

[此贴子已经被作者于2007-10-20 0:54:32编辑过]

谁能教教我啊

[CODE]

Public CL As String = Chr(13) & Chr(10)

Public Function DigOut(ByVal num As Short) As String '//数字金子塔
Dim i, j, k As Short
Dim s As String = ""
For i = 1 To num
For j = i To 3 * num - 2 * i - 1
s = s & " "
Next
For k = 1 To i
If k < 10 Then
s = s & " " & Str(k)
Else
s = s & Str(k)
End If
Next
For k = i - 1 To 1 Step -1
If k < 10 Then
s = s & " " & Str(k)
Else
s = s & Str(k)
End If
Next
s = s & CL
Next
Return s
End Function

[/CODE]

[此贴子已经被作者于2007-10-20 22:03:41编辑过]

[CODE] Public CL As String = Chr(13) & Chr(10)[/CODE]



那 Const vbCrLf又是做什么的……

[QUOTE]Const vbCrLf = "
"
Member of VBA.Constants
Constant for Carriage-return/Linefeed combination; equivalent of Chr$(13)+Chr$(10)[/QUOTE]

Option Explicit
Const OutStr = "12345678987654321"
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 9
Print Tab(15 - i); Left(OutStr, i); Right(OutStr, i - 1)
Next
End Sub

Public CL As String = Chr(13) & Chr(10) 纯属个人习惯 CL 比 vbCrLf 简单
没什么疑问吧?

汗 还真是简单一些……

To:multiple1902

这样做有什么缺陷的地方? 请指教下

哈哈,果然简单!

Public CL As String = Chr(13) & Chr(10)
Public CL As String = vbCrLf

不知道那个简洁＝。＝
你的代码for输出空格？为什么不直接space……
而且打印是不需要打印回车符号，空print就行了。