请教大家一个问题啊
要编个程序实现以下情况:
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编辑过]