[求助]菱形如何搞?
<%
Dim x,z,b
For x=1 To 10
For b=1 To 10-x
response.Write(" ")
next
For z=1 To 2*x-1
response.Write("*")
Next
response.Write("<br>")
Next
%>
我已经做出三角形了, 怎么做菱形啊。。高手指点下

[glow=200,blue,1]世界上妞是无限的,而我们的精力是有限的,用有限去搞无限,死定了。要用有限的精力去泡一个有钱妞,要发达,吃软饭![/glow]