用两个并列的循环实现如下图所示的界面

Private Sub Form_Load()
Show
For I = 16 To 1 Step -3
For S = 1 To (16 - I) / 2
Print " ";
Next S
For K = 1 To I
T = K

If T = 1 Then
Print "★";
ElseIf T = I Then
Print "★";
Else
Print "☆";
End If
Next K
Print
If I = 1 Then
For J = 4 To 16 Step 3
For S = 1 To (16 - J) / 2
Print " ";
Next S
For L = 1 To J
M = L
If M = 1 Then
Print "☆";
ElseIf M = J Then
Print "☆";
Else
Print "★";
End If
Next L
Print
Next J
End If
Next I
End Sub
没有时间了，显示格式可能稍稍有点不对，其他均已经没有问题了。