作业帮 > 综合 > 作业

请编写下列图形的VB程序 For循环结构

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/29 14:25:52
请编写下列图形的VB程序 For循环结构
1
333
55555
7777777
55555
333
1
第一个1有点问题啊
这个图形是上下对称的
请编写下列图形的VB程序 For循环结构
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 Su