[单项选择题] 有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 T

[单项选择题] 有如下函数过程:

Function lj(x As Integer) As Long

Dim s As Long

Dim i As Integer

s=0

For i = 1 To x

s=s+ i

Next i

1j= s

End Function

在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数：

Private Sub Command1 Click()

Dim i As Integer

Dim sum As Long

For i = 1 To 5

sum = sum + 1j(i)

Next i

Print sum

End Sub

A．25

B．35

C．45

D．55

B