请编写下列图形的VB程序 For循环结构 1 333555557777777555553331第一个

问题补充：

请编写下列图形的VB程序 For循环结构 1 333555557777777555553331第一个1有点问题啊这个图形是上下对称的

答案：

Private Sub Command1_Click()

For i = 1 To 7 Step 2

s = For j = 1 To 7 - i Step 2

s = s &

Next j m = For k = 1 To i

m = m & i Next k s = s & m Print s

Next i If i = 9 Then

For i = 5 To 1 Step -2

s = For j = 7 - i To 1 Step -2

s = s &

Next j m = For k = i To 1 Step -1

m = m & i Next k s = s & m Print s

Next i End IfEnd Sub