vb程序编写菱形图案

MARK明天没人回复我告诉你答案今天得睡了
====================================================================
一楼的方法基本正确就是有点小错误，修改后应该为（直接粘到窗体可以运行）
Private Sub Form_Load()

Form1.AutoRedraw = True
Dim i As Long
Dim s As String

For i = 1 To 10 Step 2
s = Space(i)
s = Replace(s, " ", "*")
Print s

Next
For i = 7 To 1 Step -2
s = Space(i)
s = Replace(s, " ", "*")
Print s
Next

End Sub

另外送你一种比较好理解的方法
For i = 1 To 5
For j = 1 To i * 2 - 1 '控制打印个数，数量关系是观察出来的
Print "*";
Next
Print
Next
For i = 4 To 1 Step -1
For j = 1 To i * 2 - 1
Print "*";
Next
Print
Next

sub p()
Dim i As Long
Dim s As String

For i = 1 To 10
s = Space(i)
s = Replace(s, " ", "*")