设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, a As Double
sum＝0
n＝1
For i=1 To 5
a＝n*i
n＝n+1
sum＝sum+a
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式的值是______
。

甲公司于2016年5月1日购入木材作为原材料，取得的增值税专用发票上注明的价款为100万元，增值税税额为17万元，货款已用银行存款付清，材料已验收入库。5月10日，甲公司将100万元木材加工成产品对外销售，取得不含税销售额为200万元，增值税税额34万元，款项已收，不考虑其他因素，则企业应交纳的增值税金额为（）万元。

A、0

B、17

C、34

D、51