有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To xs=s+ i Next i1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click()Dim i As IntegerDim sum As LongFor i = 1 To 5 sum = sum + 1j(i)Next iPrint sum End Sub

A．25

B．35

C．45

D．55