单选题
有如下函数过程:Function f1(x As Integer)As LongDim s As Long,i As Integers=0For i=1To xs=s+iNext if1=sEnd Function在窗体上添加一个命令按钮,名为Command1,并编写事件过程调用该函数,则输出结果为( )。Private Sub Command1_Click()Dim i As Integer,sum As LongFor i=1To5sum=sum+f1(i)Next iPrint sumEnd Sub