vbscript中用for next加文本符号划倒金字塔 dim a for i=1 to 7 a=a+"■" response.

vbscript中用for next加文本符号划倒金字塔dim afor i=1 to 7a=a+"■"response.Write(a)response.Write("")next正的是这样写,倒的代码怎么写？

Dim a

For i=1 To 7
        a= String(8-i, "■")
        Response.Write(a & vbCrLf)
Next