这个好像上学的时候是书上的题
Private Sub Command1_Click()
For i = 1 To 4 '这个4是层数,可以用变量,从键盘获取
Print Tab(30 - 3 * i); '30是第一行输出的位置,总之30 - 3 * i要大于0
For j = 1 To 2 * i - 1
If i >= j Then
Print j;
Else
Print 2 * i - j;
End If
Next
Print
Next
End Sub
给分!