下列程序的输出结果是______。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=1 To 10
arr(i)=i
Next i
For Each i In arr()
arr(i)=arr(i)*2+1
Next i
MsgBox arr(7)
End Sub

刘二是家庭的主要收入来源，妻子收入不高，孩子2岁。为防止刘二发生意外而严重危及家庭生活支出及培养孩子的经济来源，该家庭以刘二为被保险人，购买了一张15年期家庭收入保险单，每月收入保险金为3000元。保单还承诺，如果被保险人在15年内死亡，收入保险金至少给付3年。若丈夫投保16年后死亡，妻子可以获得的保险赔偿金额为( )元。

A．24000
B．72000
C．900000
D．0