题目内容:
有如下函数过程:Function f1(x As Integer)As Long
Dim S As Long
Dim i As Integer
S=0
For i=1
To X
S=S+i
Nexti
f1=S
End Function
在窗体上添加一个命令按钮,名为Command1,并编写事件过程调用该函数,输出结果为( )。
Private Sub Command1_Click()
DimiAs Integer
Dim sumAs Long
For i=1 T0 5
sum=sum+fl(i)
Nexti
Print sum
End Sub A.25
B.35
C.45
D.55
参考答案:
答案解析: