我的代码：



Private Sub Form_Click()
For i = 1 To 9
For j = 1 To 30 - 3 * i
Print " ";
Next j
For k = 1 To i
Print k;
Next k
For k = i - 1 To 1 Step -1

Print k;
Next k
Print
Next i

End Sub

怎么改成图中的要求啊

End Sub

[此贴子已经被作者于2007-6-2 21:13:59编辑过]

Private Sub Form_Click()
OutChar "A"
OutChar "M"
OutChar "*"
End Sub

Private Sub OutChar(Character As String)
For n = 1 To 5
Print Spc(5 - n); String(2 * (n - 1) + 1, Character); Spc(5 - n)
Next
End Sub

原来是这样啊，我弄半天。。。。。谢谢了