Question

VB输出数字金字塔

是
1
222
33333
4444444
555555555
66666666666
7777777777777
是个完整的金字塔~不是一半的`~~

Answer 1

Const n = 7
Private Sub Command1_Click()
Dim i%, j%
For i = 0 To n
For j = 0 To n - i
Print " ";
Next j
For j = 0 To i
Print i;
Next j
Print
Next i
End Sub

Answer 2

sub ShowTower(num)
Dim x,y
for x=1 to num
for y=1 to num-x
Print " "
next
for y=1 to x+x-1
Print x
next
Print chr(13) & chr(10)
next
end sub