<%
Dim x,z,b

For x=1 To 10
For b=1 To 10-x
response.Write("&nbsp;")
next
For z=1 To 2*x-1
response.Write("*")
Next
response.Write("<br>")
Next
%>
我已经做出三角形了， 怎么做菱形啊。。高手指点下

下面怎么弄啊？

OK 了！我搞定了

<%
Dim x,z,b

For x=1 To 10
For b=1 To 10-x
response.Write("&nbsp;")
next
For z=1 To 2*x-1
response.Write("*")
Next
response.Write("<br>")
Next

For x=1 To 10

For b=1 To x
response.Write("&nbsp;")
next
For z=-19 To -2*x-1
response.Write("*")
Next

response.Write("<br>")
Next

%>

[此贴子已经被作者于2007-3-29 17:29:21编辑过]

这个版块我最看得起的就是你了。

谁能搞不？整个来看看

呵呵 是有点难度啊