Asp九九乘法表

<%
Response.Write("<table width='450' class='table' cellspacing='1' border='1' bordercolor='#000000'><TR><TD colspan='9' align='center'><strong>九　九　乘　法　表</strong></TD></TR>")
Dim X,Y,B
X = 1
Y = 1
Do While X <= 9
Response.Write("<TR>")
Do While Y > 0 And X >= Y
Z = X * Y
A = Y & "*" & X & "=" & Z & "&nbsp;"
Response.Write ("<TD height=18>&nbsp;"&A&"</TD>")
Y = Y + 1

Loop
B = 9 - Y + 2
Do While B > 1
Response.Write("<TD>&nbsp;</TD>")
B = B - 1
Loop

Y = 1
X = X + 1
Response.Write("</TR>")
Loop
Response.Write("</TABLE></BODY><HMTL>")
''''转载请注明：www.132c.com 并保存程序的完整性！
%>