For i = 0 To 16

            LitOrder.Text += ("<TABLE WIDTH='80%'BORDER='1'>")
            LitOrder.Text += ("<tr>")
            LitOrder.Text += ("<td>")
            LitOrder.Text += ("内容" & i)
            LitOrder.Text += ("</td>")
            If i Mod 5 = 0 Then

                LitOrder.Text += ("</td></tr>")
            End If


        Next

        LitOrder.Text += ("</table>")

希望产生一行里面有5列的表单，但是现在效果很不理想，顺着一列就下来了~请帮忙修改一下！~