为何显示的unicode字符有一半都不能正确显示？？？
代码如下：
Dim uni1() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
Dim uni2() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
Dim uni3() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
Dim uni4() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
Dim I1 As Int16
Dim I2 As Int16
Dim I3 As Int16
Dim I4 As Int16
Dim um As String
Dim i As Integer = 0
Response.Write("<table border='1'>")
For I1 = 0 To 15
For I2 = 0 To 15
For I3 = 0 To 15
For I4 = 0 To 15
i = i + 1
If i Mod 30 = 1 Then
Response.Write("<tr>")
End If
If i < 21 Then
Response.Write("<td>")
Response.Write("</td>")
Else
um = "&h" & uni1(I1) & uni2(I2) & uni3(I3) & uni4(I4)
Response.Write("<td>")
Response.Write(ChrW(um))
Response.Write("</td>")
End If
If i Mod 30 = 0 Then
Response.Write("</tr>")
End If
Next
Next
Next
Next
If i Mod 30 <> 0 Then
Response.Write("</tr>")
End If
Response.Write("</table>")
问题点数：20、回复次数：7Top
1 楼ljhkim6（）回复于 2006-03-10 20:51:14 得分 0
长度不够啊Top
2 楼xgcom（xg）回复于 2006-03-11 04:54:49 得分 0
长度哪里不够？？
不是长度的问题。Top
3 楼xgcom（xg）回复于 2006-03-11 13:22:30 得分 0
upTop
4 楼xgcom（xg）回复于 2006-03-15 10:31:57 得分 0
请问谁知道原因。Top
5 楼xg2（）回复于 2006-03-17 15:05:29 得分 20
顶Top
6 楼xg2（）回复于 2006-03-22 12:48:26 得分 0
up2Top
7 楼xgcom（xg）回复于 2006-03-23 08:51:51 得分 0
..Top
