...为1,第二行为121,第三行为12321,第四行为1234321

发布网友发布时间：2024-10-23 17:54

共1个回答

热心网友时间：4分钟前

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com