下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。 Private Sub Form_Click（)Dim n as inte

A.return s;

B.return s+=i;

C.s=s+i;return s;

D.s=s+n;return s;

A.return s;

B.return s+=i;

C.s=s+i;return s;

D.s=s+n;return s;

A.return s;

B.return s+=i;

C.s=s+i;return s;

D.s=s+n;return s;

下面的程序要计算1+2+…+10,请补充完整。其中s是单精度类型的变量。

Dim x as Integer, s as Single

s=0

For x=1 to 10

s=【 】

Next x

将下面的程序填写完整，如要计算1+2+…+10，请完成下面的程序，其中，s是单精度类型的变量。

Dim x as Integer，s as Single

s=0

For x=1 to 10

s=【 】

Next x

【题目描述】

A．25

A. 35

B. 45

C. 55

B) 【解析】本题考查函数过程的功能分析。函数f1 的主要功能是计算1到X的累加和，也就是计算1+2+…+x。在命令按钮的单击事件中循环程序调用了5次f1函数，sum计算为：1+1+2+1+2+3+1+2+3+4+1+2+3+4+5，因此结果为35。

哪里看得出循环累加？

以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和，请补充完该程序。

Dim n As Integer

Dim i As Integer

Dim j As Long

Dim s As Long

n=100

j=0

s=0

For i=1 To【 】

J=【 】

s=【 】

Next i

Print s

递归函数f(n)的功能是计算1+2+…+n，且n≥1，则f(n)的代码段是(49)。

A．if n＞1 then return 1 else return n+f(n-1)

B．if n＞1 then return 1 else return n+f(n+1)

C．if n＞1 then return 0 else return n+f(n+1)

D．if n＜1 then return 0 else return n+f(n-1)