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

Question

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

Answer 1

<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>
再修改一下就行了

Answer 2

<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>
又向成功迈了一步

Answer 3

<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>
成功了

Answer 4

<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后的代码