[求助]菱形如何搞？
<%
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
%>
我已经做出三角形了， 怎么做菱形啊。。高手指点下
<%
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
%>
我已经做出三角形了， 怎么做菱形啊。。高手指点下
2007-03-28 20:21
2007-03-28 20:39
OK 了！我搞定了
<%
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
For x=1 To 10
For b=1 To x
response.Write(" ")
next
For z=-19 To -2*x-1
response.Write("*")
Next
response.Write("<br>")
Next
%>
2007-03-28 20:43
2007-03-29 16:30
[此贴子已经被作者于2007-3-29 17:29:21编辑过]
2007-03-29 17:24
2007-03-29 17:29
我
你太看得起我了吧 我狂汗
这个版块我最看得起的就是你了。 
2007-03-29 18:21
谁能搞不？整个来看看
2007-03-30 18:03
呵呵 是有点难度啊
2007-03-30 22:35