单项选择题

有如下函数过程：
Function 1j(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 Fundion
在窗体上添加一个命令按钮，名为Command1，编写事件过程调用该函数，输出结果为( )。
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 5
sum=sum+1j(i)
Next i
Print sum
End Sub