简单程序，用VB编*号排列，大家帮忙

Private Sub Form_Load()
Show
Dim i As Integer
For i = 1 To 7
If i <= 4 Then Print String(i, "*") Else Print String(8 - i, "*")
Next
End Sub

楼上正解！
给你另一种方法：
For i = -3 To 3
Print String(4-abs(i), "*")
Next

Private sub Taper(byval n as integer)
Dim i As Integer
For i = 1 To n step 1
me.Print String(i,"*")+vbcrlf
Next i
For i = i-2 To 1 step -1
me.Print String(i,"*")+vbcrlf
Next i
end sub

Private Sub Command1_Click()
s = 0
For i = 1 To 7
If i <= 4 Then
s = s + 1
a = a + "*"
ElseIf i > 4 Then
s = s - 1
a = Left(a, s)
End If
Print a
Next i
End Sub

支持三楼!!( _fmlyht - 同进士出身 六级)

VB金字塔，想要几行就几行，代码共4行哦！！！

Private Sub Command1_Click()
x = 4 '你想要几行,就改成几
For i = 1 To x * 2 Step 2
Me.Print Space(x - i / 2 + 0.5); St