有流产先兆怎么办:如何用ASP写梯子形的乘法表

来源:百度文库 编辑:高考问答 时间:2024/04/20 06:48:46
我想做一个梯子形的乘法口诀表,但中间却多了空行,应该怎样改代码,才能像最后两行那样排列?<br>
<%
for i=1 to 9
for j=1 to 9
if i<j then
Response.Write ("<br>")
else
Response.Write (i & " × " &j & " ="& i*j& " " )
end if
next
next
%>
问题补充:
1 × 1 =1
2 × 1 =2 2 × 2 =4
3 × 1 =3 3 × 2 =6 3 × 3 =9
4 × 1 =4 4 × 2 =8 4 × 3 =12 4 × 4 =16
5 × 1 =5 5 × 2 =10 5 × 3 =15 5 × 4 =20 5 × 5 =25
6 × 1 =6 6 × 2 =12 6 × 3 =18 6 × 4 =24 6 × 5 =30 6 × 6 =36
7 × 1 =7 7 × 2 =14 7 × 3 =21 7 × 4 =28 7 × 5 =35 7 × 6 =42 7 × 7 =49
8 × 1 =8 8 × 2 =16 8 × 3 =24 8 × 4 =32 8 × 5 =40 8 × 6 =48 8 × 7 =56 8 × 8 =64
9 × 1 =9 9 × 2 =18 9 × 3 =27 9 × 4 =36 9 × 5 =45 9 × 6 =54 9 × 7 =63 9 × 8 =72 9 × 9 =81
这是我所希望的结果,但我至今却不能完成它的编写

<%
For i = 1 To 9
For j = 1 To i
Response.Write (i & " × " &j & " ="& i*j & " " )
next
Response.Write ("<br>")
next
%>

<%
for i=1 to 9
for j=1 to 9
Response.Write (i & " × " &j & " ="& i*j& " " )
if i=j then
Response.Write ("<br>")
j=10
end if
next
next
%>