以下程序用于求S=1+3+3²+3³+…+3¹⁰的值。
Private Sub Commandl_Click()
S=1
T=1
ForI=1 To 10
T=______
S=S+T
NextI
Print"S="；S
End Sub

下列应税项目中，以一个月为一次确定应纳税所得额的有（）。

A、劳务报酬所得

B、特许权使用费所得

C、财产租赁所得

D、财产转让所得