Question

VBA语言 用循环结构输出如下图形（菱形带数字）

Answer 1

Sub avav()
Dim a As Range, i%, j%, k%
Range("a1:a11").Clear
'
Range("A1:A11").NumberFormatLocal = "@"
Set a = Range("A1")
For i = -5 To 5
'a = a & "X"
For k = 1 To 2
'空格
For j = 1 To Abs(i)
a = a & " "
Next j
For j = 1 To 5 - Abs(i)
a = a & "*"
Next j
a = a & Abs(i)
For j = 1 To 5 - Abs(i)
a.Value = a.Value & "*"
Next j
For j = 1 To Abs(i)
a.Value = a.Value & " "
Next j
Next k
a = a & " "
Set a = a.Offset(1, 0)
Next i
End Sub

Answer 2

这个就用for循环控制啊

追问

不太懂，能具体点吗？数字的部分要怎么处理呢？

追答

好吧

我不知道我怎么表达你才能听懂

追问

那能麻烦你把整个过程PO出来吗？非常感谢~

追答

哦

菱形带数字

两个的