有可能导致供给曲线移动的因素有（）

A.工资水平

B.利率

C.地租

D.技术水平

E.税率

下列程序的执行结果是( )。

Function P(N As Integer)

For i=1 To N

Sum=Sum+i

Next i

P=Sum

End Function

Private Sub Command1_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S;

End Sub

A．15

B．16

C．20

D．25