新微赢技术网»论坛 › 学习网知识堂 › WEB开发 › ASP › [求助]菱形如何搞？

12 / 2 页下一页

查看: 198|回复: 11

[求助]菱形如何搞？

[复制链接]

天泪离星

电梯直达

1^#

发表于 2010-1-7 01:49:22 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
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
%>
我已经做出三角形了，怎么做菱形啊。。高手指点下

收藏0

使用道具举报

■．王锋◇

2^#

发表于 2010-1-7 01:49:25 | 只看该作者

下面怎么弄啊？

回复支持反对

使用道具举报

十六夜的月

3^#

发表于 2010-1-7 01:49:30 | 只看该作者

能不能搞个空心的五角星看看..

回复支持反对

使用道具举报

大师傅

4^#

发表于 2010-1-7 01:49:33 | 只看该作者

我
你太看得起我了吧我狂汗

回复支持反对

使用道具举报

边走¤边爱

5^#

发表于 2010-1-7 01:49:36 | 只看该作者

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

回复支持反对

使用道具举报

缘分天空

6^#

发表于 2010-1-7 01:49:39 | 只看该作者

<%
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(" ") Else Response.Write("*")
'这里有一些算法来做判断
ElseIf i>x\2+1 Then '判断是下边的
If j>x-(i-x\2)+1 Or j<(i-x\2) Then Response.Write(" ") Else Response.Write("*")
'这里也一样
Else '判断是中间的
Response.Write("*")
End If
Next
Response.Write("<br>") '换行
Next
End Sub
Call Pic(13) '调用Sub
%>