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

12 / 2 页下一页

查看: 199|回复: 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

使用道具举报

ROCKY

11^#

发表于 2010-1-17 13:05:06 | 只看该作者

那个贴子让它沉下去吧！不要啦

回复支持反对

使用道具举报

随chu风liu

10^#

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

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

回复支持反对

使用道具举报

晒月亮的蜻蜓

9^#

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

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

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

回复支持反对

使用道具举报

蓝血腥人

8^#

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

图片显示不出来

回复支持反对

使用道具举报

liu

7^#

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

可以了吧! 呵..

回复支持反对

使用道具举报

缘分天空

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

回复支持反对

使用道具举报

边走¤边爱

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