Question

vb程序问题

vb程序问题怎么实现*的完美插入

Answer 1

Sub s()
    For i = 1 To 9
        For j = 1 To i
            Print Tab(10 - i + j * 2); i & "";
            If j < i Then Print Tab(11 - i + j * 2); "*";
        Next
    Next
End Sub