16,554
社区成员
发帖
与我相关
我的任务
分享
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