考试系统之填空题

    做一个考试系统，客户要求要有填空题，实现的过程中可谓费尽周折，在这里说一说实现的过程。
    1、出题的时候，将需要填空的部分用固定长度的下划线表示，保存到数据库中，字段名字为stnr
    2、取出stnr，用分割函数以固定长度的下划线为分隔符，将除填空部分以外的字符串搞到一个数组里，然后循环取出这个数组里每一个值并上<input type='text' id=''>赋给字符串str，再用table.innerHtml=str，这样就将考题输出到表格里了，填空的部分被替换成文本框
---------------------xx.aspx.vb-----------------
Private Sub Create()
            Dim str As String
            str = dv.Item(0).Item("stnr").ToString.Trim
            Dim a() As String
            a = Split(str, "_____", -1, CompareMethod.Text)
            Dim i As Int16
            Dim str1 As String
            For i = 0 To a.Length - 2
                If dvDab.Count > 0 Then
                    Dim strDab As String
                    strDab = dvDab.Item(0).Item("da").ToString.Trim