[求助]菱形如何搞？

天泪离星

<%
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
%>

缘分天空

<%
Rem 定义Sub子过程 参数n要为奇数
Sub Pic(n)
If n="" Or Not IsNumeric(n) Then Exit Sub '判断n的合法性
Dim i,j,x '声明变量
If n Mod 2 = 0 Then n=n+1 '如果n为偶数则加1使之为奇数
x=n '把n的值赋给x
For i=1 To x '循环行
For j=1 To x '循环列
If i<x\2+1 Then '判断是上边的
If j>x\2+1+i-1 Or j<x\2+1-i+1 Then Response.Write("&nbsp;") Else Response.Write("*")
'这里有一些算法 来做判断
ElseIf i>x\2+1 Then '判断是下边的
If j>x-(i-x\2)+1 Or j<(i-x\2) Then Response.Write("&nbsp;") Else Response.Write("*")
'这里也一样
Else '判断是中间的
Response.Write("*")
End If
Next
Response.Write("<br>") '换行
Next
End Sub
Call Pic(13) '调用Sub
%>

liu

可以了吧! 呵..

蓝血腥人

图片显示不出来

晒月亮的蜻蜓

以下是引用system32在2007-3-29 16:30:57的发言：
能不能搞个空心的五角星看看..
你还真有想象力

好歹给我个图片参考一下啊

随chu风liu

兄弟.凑活下吧! 找不到! 哈!!