请编写下列图形的VB程序 For循环结构 1 333555557777777555553331第一个1有点问题啊这个图形是上下对称的
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 12:11:34
![请编写下列图形的VB程序 For循环结构 1 333555557777777555553331第一个1有点问题啊这个图形是上下对称的](/uploads/image/z/1329730-34-0.jpg?t=%E8%AF%B7%E7%BC%96%E5%86%99%E4%B8%8B%E5%88%97%E5%9B%BE%E5%BD%A2%E7%9A%84VB%E7%A8%8B%E5%BA%8F+For%E5%BE%AA%E7%8E%AF%E7%BB%93%E6%9E%84+1+333555557777777555553331%E7%AC%AC%E4%B8%80%E4%B8%AA1%E6%9C%89%E7%82%B9%E9%97%AE%E9%A2%98%E5%95%8A%E8%BF%99%E4%B8%AA%E5%9B%BE%E5%BD%A2%E6%98%AF%E4%B8%8A%E4%B8%8B%E5%AF%B9%E7%A7%B0%E7%9A%84)
请编写下列图形的VB程序 For循环结构 1 333555557777777555553331第一个1有点问题啊这个图形是上下对称的
请编写下列图形的VB程序 For循环结构
1
333
55555
7777777
55555
333
1
第一个1有点问题啊
这个图形是上下对称的
请编写下列图形的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 If
End Sub