楼上更加简单!

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

哦，那这样就可以了。

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

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

谢拉,各位,已经解决了,呵呵

位数不一致，你看看显示效果……个人认为不叫金字塔＝。＝