甲向乙借款5万元，还款期限6个月，丙作保证人，约定丙承担保证责任直至甲向乙还清本息为止。丙的保证责任期间应如何计算( )

A．主债务履行期届满之日起6个月

B．借款发生之日起2年

C．借款发生之日起6个月

D．主债务履行期届满之日起2年

设有命令按钮Command1的单击事件过程，代码如下：

Private Sub Command1 Click()

Dim a(3,3)As Integer

For i=1 To 3

For j=1 To 3

a(i,j)=i*j+i

Next j

Next i

Sum=0

For i=1 To 3

Sum=Sum+a(i,4-i)

Next i

Print Sum

End Sub

运行程序，单击命令按钮，输出结果是（）。

A．20

B．7

C．16

D．17