VB打印简单图形,大家帮帮忙

来源:百度知道 编辑:UC知道 时间:2024/06/22 09:09:48
2个for 打印倒等腰△(里面的任何如下)
5 4 3 2 1 2 3 4 5
4 3 2 1 2 3 4
3 2 1 2 3
2 1 2
1
是倒等腰△,是倒等腰△,是倒等腰△,想了一个下午都没想出
PS 数组不要用,本人还不会````

a=Val(InputBox("请输入数字(1-9)"))
For i=a to 1 step -1
    For j=1 to a-i
        Print " "; '倒等腰的前面空格
    Next j
    For j=i to 1 step -1
        Print j;
    Next j
    For j=2 to i
        Print j;
    Next j
    Print
Next i