如何用VBScript编写一个用“*”围城的等腰三角形？

来源：百度知道 编辑：UC知道 时间：2024/05/14 18:24:13
第1行1个*
第2行3个***
第3行5个*****
第4行7个*******
第5行9个*********

<%
Dim i,j,h
h=CInt(Request("Height"))
If h<2 Then h=10
For j=1 to h-1
Response.Write " "
Next
Response.Write "*<br>"
For i=2 To h-1
For j=1 to h-i
Response.Write " "
Next
Response.Write "*"
For j=1 To i*2-3
response.Write " "
Next
Response.Write "*<br>"
Next
For i=1 To 2*h-1
Response.Write "*"
Next
%>

==============================================
如果是实心的三角形，那还要简单一点：
<%
Dim i,j,h
h=CInt(Request("Height"))
If h<2 Then h=10
For j=1 to h-1
Response.Write " "
Next
Response.Write "*<br>"
For i=2 To h
For j=1 to h-i
Response.Write " "
Next
For j=1 To i*2-1
response.Write "*"
Next
Respo