第23-25题为套题：新保险法规定，投保人故意或者因重大过失未履行如实告知义务，足以
题型：单项选择题
问题：
第23-25题为套题：新保险法规定，投保人故意或者因重大过失未履行如实告知义务，足以影响保险人决定是否同意承保或者提高保险费率的，保险人有权解除合同。投保人故意不履行如实告知义务，保险人对于合同解除前发生的保险事故，不承担赔偿或给付保险金的责任，并不退还保费。投保人因重大过失未履行如实告知义务，对保险事故的发生有严重影响的，保险人对于合同解除前发生的保险事故不承担赔偿或给付保险金的责任。某保险公司在评估新保险法对公司的影响时，相关人员围绕如实告知的规定展开了讨论。请回答下列问题。
在投保人过失未履行如实告知义务时，对于合同解除前保险人赔偿或给付保险金的义务，下列评估意见不正确的是（ ）。
A．如属一般过失，根据新保险法保险人应承担给付保险金责任
B．如属一般过失，根据现行保险法保险人应承担给付保险金责任
C．如属重大过失，根据新保险法保险人有可能要承担给付保险金责任
D．如属重大过失，根据现行保险法保险人有可能要承担给付保险金责任
在开发过程中，设选择起点和终点站名的组合框（ComboBox）名分别为ST 和SP，显示票价的文本框(TextBox)名为Price，“查询”按钮(CommandButton)名为Query；设ST 与SP 中的诸列表项完全相同，且都是从甲地开始依次排列，从第i 站到第j 站的票价存放在二维对称矩阵P 的元素P(i,j)中。假设从甲地到第i 站行驶的距离存放在d(i)中，火车票价等于其行驶距离乘以C（常数）。[Visual Basic 代码]Dim p(30, 30) As Single ’ 通用声明Const C=0.2Private Sub Form_Load()Dim d(30) As Single(1) = "甲地" ’ 在ST 组合框中设置首个列表项…… ’ 在ST 和SP 中设置其他列表项（若干行语句）…… ’ 对数组d(i)赋值（若干行语句）For i=0 to ST. (2) -1 ’ 对ST 中各列表项循环For j=0 to SP. (2) -1 ’ 对SP 中各列表项循环（这两处填写内容相同）P(i,j)= (3)Next jNext iEnd SubPrivate Sub query_Click()i = (4) ’ 组合框ST 中选择的当前项编号j = …… ’ 组合框SP 中选择的当前项编号（语句略）(5) =str$(p(i,j))End Sub