【单选题】

有如下函数过程:

Function lj(xAs Integer)As Long
Dim sAs Long
Dim iAs Integer
s=0
For i = 1 To x
s=s+ i
Next i
1j= s
End Function
在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数：
Private SubCommand1Click()
Dim iAs Integer
Dim sumAs Long
For i = 1 To 5
sum = sum + 1j(i)
Next i
Print sum
End Sub
A．25
B．35
C．45
D．55