重庆2002VB考试题，郁闷了，俺不会做这道题！有谁会的，望指点。

[tommerxx]

画如下图形：
**********
**** ****
*** ***
** **
* *

[射天狼]

Private Sub Command1_Click()
Dim i As Long

For i = 5 To 1 Step -1
Me.Print String(i, "*") & String((5 - i) * 2, " ") & String(i, "*")
Next
End Sub

[lsl7909]

直接用C就可以实现

[Dublue]

楼上正解
咦？我的时钟才15:29???

[tommerxx]

高人！解决了咯.
我买单！

[feng1net]

在VB中可以调用C马???
:)

[chenlishu413]

Option Explicit

Private Sub Command1_Click()
Dim S As String
Dim I As Long
Dim k As Long
Dim result As String
Dim a As Long
Dim b As Long
I = 0
S = "*"

Do While I <= 4
result = ""
If I = 0 Then
For k = 1 To (10 - 2 * I)
result = result & S
Next k
Print result
Else
For k = 1 To (10 - 2 * I) / 2
result = result & S
Next k
For a = 1 To 2 * I
result = result & " "
Next a
For b = 1 To (10 - 2 * I) / 2
result = result & S
Next b
Print result
End If

I = I + 1

Loop

End Sub