...为1,第二行为121,第三行为12321,第四行为1234321
发布网友
发布时间：2024-10-23 17:54
共1个回答
热心网友
时间：2024-11-06 03:50
Cls
Dim i As Integer, j As Integer, N As Integer
N = 9
For i = 1 To N
'debug.Print
For j = -N To N
If j + i < 1 Then
Print " ";
ElseIf j > i - 1 Then
Exit For
ElseIf j > 0 Then
Print i - j;
Else
Print j + i;
End If
Next j
Print
Next i
