Private Sub Command1_Click()
For i = 10 To 0 Step -2 ‘每次少两颗 *
For j = 1 To (10 - i) / 2 ‘左边打印一个空格
Print ” “; ‘“;”不换行打印
Next j
If i = 0 Then i = 1 ‘打印最后一颗*
For k = 1 To i
Print “*”;
Next k
Print Chr(13) ‘换行
Next i
End Sub
Private Sub Command1_Click()
For i = 10 To 0 Step -2 ‘每次少两颗 *
For j = 1 To (10 - i) / 2 ‘左边打印一个空格
Print ” “; ‘“;”不换行打印
Next j
If i = 0 Then i = 1 ‘打印最后一颗*
For k = 1 To i
Print “*”;
Next k
Print Chr(13) ‘换行
Next i
End Sub