vb循环结构 在线等 急

来源：百度知道 编辑：UC知道 时间：2024/05/27 06:56:50
*
***
*****
*******
*********
*******
*****
***
*

Private Sub Form_Load()
Show
Dim i, j As Integer
For i = 1 To 9 Step 2
For j = 1 To i
Print "*";
Next j
Print
Next i
For i = 7 To 1 Step -2
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub

for i=1 to 9
M=abs(i-5)
for j=1 to 9-2*M
print "*";
next j
print
next i

Private Sub Form_Load()
Show
For i = 1 To 9
For j = 1 To 9 - Abs(i - 5) * 2
Print "*";
Next j
Print
Next i
End Sub

for i = -4 to 4
for j = 1 to 9 - 2 * abs(i)
print "*";
next j
print
next i