Dim sb As New StringBuilder
sb.appendLine("<!doctype html>")
sb.appendLine("<html>")
sb.appendLine("<head>")
sb.appendLine("</head>")
sb.appendLine("<body>")
Dim nms() As String = {"考试名称","语文_语总","数学_数总","英语_英总","政治_政总","历史_历总","生物_","地理_","物理_物总","化学_化总","总分","总分班序","总分校序","总分区序"}
Dim cps() As String = {"考试名称","语文","数学","英语","政治","历史","生物","地理","物理","化学","总分","班序","校序","区序"}
sb.appendline("<p style='font-size:60px'align='center'>我的成绩</p>")
sb.appendline("<div style='width:100%; overflow-x:auto;'>")
sb.AppendLine("<Table border='1'width='2200px' align='center'>")
'sb.AppendLine("<caption style='font-size:80px' align ='center'>我的成绩<caption></br>")
sb.Append("<tr>")
For Each cp As String In cps
sb.Append("<td style='font-size:60px'>" & cp & "</td>")
Next
sb.AppendLine("</tr>")
For r As Integer=0 To 10
sb.Append("<tr>")
For Each nm As String In nms
sb.Append("<td style='font-size:50px' align ='center'>" & 100 & "</td>")
Next
sb.AppendLine("</tr>")
Next
sb.AppendLine("</Table></br></br>")
sb.AppendLine("</div>")
sb.appendLine("</body>")
sb.appendLine("</html>")
e.WriteString(sb.ToString)
加好友 
发短信
Post By：2018/7/16 21:22:00 [显示全部帖子]
