蛙蛙请教:动态拼接表格问题

[onlytiancai]

蛙蛙请教:动态拼接表格问题
原贴在这里
http://community.csdn.net/Expert/topic/3957/3957176.xml?temp=.0461542
把问题转换一下
用1到某个数之间的数字生成一下表格,用js的document.write方法也行
其实说白了,这是一个算法问题

<table border=1 id=0><tr><td>1</td>
<td>2</td></tr><tr>
<td>3</td>
<td>4</td></tr></table>

<table border=1 id=1><tr><td>5</td>
<td>6</td></tr><tr>
<td>7</td>
<td>8</td></tr></table>

......以下省略,我想大家一定看出规律来了吧,还得考虑如果终止数不能被4整除的情况下还得保证生成的HTML标签的正确性,不能缺半拉,也不能显示不好,必要的时候还得考虑一个表格里上面一行显示2数字,而下面一行显示1个数字的情况,这样下面那个单元格必须跨两个单元格,比如说7的时候

[onlytiancai]

各位可以用自己熟悉的语言来写哦,不必非用JS来写,vbs,js,c,c++,c#都可以最好不要用各种语言特有的类库哦,要不我就看不懂了

[onlytiancai]

<SCRIPT LANGUAGE="JavaScript">
<!--
var j,max;
max = 7
for(var i = 1;i <= max;i++){
with(document){
if(i % 4 == 1) write("<table border=1 id=0><tr><td>" + i + "</td>")
if(i % 4 == 2) write("<td>" + i + "</td></tr><tr>")
if(i % 4 == 3) write("<td>" + i + "</td>")
if(i % 4 == 0) write("<td>" + i + "</td></tr></table>")
}
}
//-->
</SCRIPT>
再修改一下就行了

[qq48762557]

哇，真的粉复杂！

[qq48762557]

肉顶！！！！！！！！！！

[onlytiancai]

<SCRIPT LANGUAGE="JavaScript">
<!--
var j,max,str;
max = 6;
str=""
for(var i = 1;i <= max;i++){
with(document){
if(i % 4 == 1) write("<table border=1 id=0><tr><td>" + i + "</td>");
if(i % 4 == 2) write("<td>" + i + "</td></tr><tr>");
if(i % 4 == 3){
write("<td")
if(i == max) write(" colspan=2")
write(">" + i + "</td>");
}
if(i % 4 == 0) write("<td>" + i + "</td></tr></table>");
}
}
//-->
</SCRIPT>
又向成功迈了一步

[onlytiancai]

<SCRIPT LANGUAGE="JavaScript">
<!--
var j,max,str;
max = 8;
str="";
j=0;
for(var i = 1;i <= max;i++){
if(i % 4 == 1){
str += ("<table border=1 id=" + (j++) + "><tr><td>" + i + "</td>");
if(i == max) str += ("</tr></table>");
}
if(i % 4 == 2){
str += ("<td>" + i + "</td>");
if(i == max){
str += ("</tr></table>");
}else{
str += ("</tr><tr>");
}
}
if(i % 4 == 3){
str +=("<td")
if(i == max) str +=(" colspan=2")
str +=(">" + i + "</td>");
}
if(i % 4 == 0) str +=("<td>" + i + "</td></tr></table>");
}
document.write(str);
alert(str);
//-->
</SCRIPT>
成功了

[onlytiancai]

<SCRIPT LANGUAGE="vbScript">
<!--
dim j,max,str
max=8
j=0
str=""
dim i
for i=0 to max
if (i mod 4 = 1) then
str = str & "<table border=1 id=" & j & "><tr><td>" & i & "</td>"
if (i = max) then str = str & "</tr></table>"
j = j+1
end if
if(i mod 4 = 2) then
str = str & "<td>" & i & "</td>"
if(i = max)then
str = str & "</tr></table>"
else
str = str & "</tr><tr>"
end if
end if
if(i mod 4 = 3) then
str = str & "<td"
if(i = max) then str = str & " colspan=2"
str = str &">" & i &"</td>"
end if
if(i mod 4 = 0 and i<>0) then str = str& "<td>" & i & "</td></tr></table>"
next
document.write(str)
msgbox(str)
//-->
</SCRIPT>
翻译成VBS后的代码