我想问下ASP能写出杨辉三角么？如果能怎样写给点思路！我想了好久都没头绪！

　Dim a(10,10),i,j;
　For i=0 To 9
    j=10
　  Do While j>=i
　　   Response.Write "  " '两个空格
       j=j-1
    Loop
    j=0
　　Do While j<=i
　　    if i=j Or j=0 Then
　　       a(i,j)=1
　　    Else
　　       a(i,j)=a(i-1,j)+a(i-1,j-1)
        End IF  
　　    Response.Write a(i,j)&"&nbsp;"
　　    if i=j Then
　　       Response.Write "<br>"
        End IF  
        j=j+1
　　Loop
　Next


[ 本帖最后由 yms123 于 2010-5-17 19:38 编辑 ]

错误类型：
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/test2.asp, line 12
　Dim a(10,10)i,j;

版主不行也。它提示无效的字符啊！

Dim a(10,10),i,j
　For i=0 To 9
    j=10
　  Do While j>=i
　　   Response.Write "&nbsp;&nbsp;" '两个空格
       j=j-1
    Loop
    j=0
　　Do While j<=i
　　    if i=j Or j=0 Then
　　       a(i,j)=1
　　    Else
　　       a(i,j)=a(i-1,j)+a(i-1,j-1)
        End IF  
　　    Response.Write a(i,j)&"&nbsp;"
　　    if i=j Then
　　       Response.Write "<br>"
        End IF  
        j=j+1
　　Loop
　Next

还是不行呀！

怎么个不行法呀？

它说无效的字符！

版主YMS123的方法是可以的，你认真看看，排个版本，对齐一下，否则ASP会误认为是无效的字符！

<%
dim a(10,10)
dim i
dim j

 for i=0 to 9
    j=10
Do While j>=i
response.write "&nbsp;&nbsp;" ' 两个空格
  j=j-1

 Loop
    j=0
Do While j<=i
if i=j or j=0 then

 a(i,j)=1
Else
a(i,j)=a(i-1,j)+a(i-1,j-1)

 End IF
Response.Write a(i,j)&"&nbsp;"
if i=j then
Response.Write "<br>"
End IF
j=j+1
Loop
next
%>

<%
Dim h,w
Dim a()
ReDim a(99,99)  
For h=1 To 10  
    For w=1 To h  
        If w=1 Or w=h Then  
           a(w,h)=1  
           Response.Write a(w,h)
        Else  
           a(w,h)=a(w-1,h-1)+a(w,h-1)  
           Response.Write a(w,h)
        End If  
    Next
    Response.Write "<br>"
Next   
%>

<%
Dim h,w
Dim a()
ReDim a(99,99)  
For h=1 To 10  
    For w=1 To h  
        If w=1 Or w=h Then  
           a(w,h)=1  
           Response.Write a(w,h)&"&nbsp;"
        Else  
           a(w,h)=a(w-1,h-1)+a(w,h-1)  
           Response.Write a(w,h)&"&nbsp;"
        End If  
    Next
    Response.Write "<br>"
Next   
%>
这种算法更简单，厉害！