为何显示的unicode字符有一半都不能正确显示？？？

Question

代码如下：        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>")

Answer 1

长度哪里不够？？不是长度的问题。