定义父类用子类初始化的问题

[qq_39900828]

填空题(TiTk)和选择题(TiXz)继承自Ti，程序中需要对两种题进行统一处理，定义ThisTi 为Ti
分别new为选择题和填空题，但选择题子类的属性却提示错误。
我记得可以定义为父类，然后用子类初始化，然后通过父类直接调用的。

[qq_39900828]

        Dim ThisTi As Ti
        If TiType = "填空题" Then
            ThisTi = New TiTk
            ThisTi = MyPaper.TianKongTi.Item(MyPaper.TianKongTi.NO)
        Else
            ThisTi = New TiXz
            ThisTi = MyPaper.XuanZeTi.Item(MyPaper.XuanZeTi.NO)
            If ThisTi.SelectA Then ThisTi.TimesA = ThisTi.TimesA + 1
            If ThisTi.SelectB Then ThisTi.TimesB = ThisTi.TimesB + 1
            If ThisTi.SelectC Then ThisTi.TimesC = ThisTi.TimesC + 1
            If ThisTi.SelectD Then ThisTi.TimesD = ThisTi.TimesD + 1
        End If