下列过程的功能是：用来计算并输出S = 1+1/2+1/3+…+1/100的值。请完善程序。
Function SumF(n As Integer)As Single
　　s = 0
　　For i = 1 To n
　　　　s = ______
　　Next i
　　SumF = s
End Function
Private Sub Form_Click( )
　　Sum1 = SumF(100)
　　Print
　　Print "sum1 = "; sum1
End Sub

某市区一居民企业，专门从事房地产开发业务，2009年有关经营情况如下：
(1)2月1日与当地建设银行签订借款合同一份，合同记载借款金额2000万元，借款期限10个月，还款到期日11月30日；
(2)2月中旬用借款2000万元和自有资金800万元，购得非耕地40000平方米的使用权用于开发写字楼和商品房，合同记载土地使用权为60年，2月末办完相关权属证件；
(3)第一期工程(“三通一平”和第一栋写字楼开发)于11月30日竣工，按合同约定支付建筑承包商全部土地的“三通一平”费用400万元和写字楼开发成本7200万元。写字楼占地面积12000平方米，建筑面积60000平方米；
(4)到12月31日为止对外销售写字楼50000平方米，全部签了售房合同，每平方米售价 0.32万元，共计收入16000万元，按售房合同规定全部款项于12月31日均可收回，有关土地权证和房产证次年为客户办理；
(5)在售房过程中发生销售费用1500万元；发生管理费用(不含印花税)900万元。
(说明：计算土地增值税开发费用的扣除比例为9%)
根据以上资料和税法有关规定，回答下列问题：

2009年应缴纳的土地增值税为( )万元。

A．2056.6

B．1965.5

C．2019.6

D．2078.5