用vb编程“求整数1到100的和”应该如何做？

Answer 1

完全没有必要用递归，效率不高，直接求即可
function
NAdd(dim
a
as
int)
dim
result
as
integer
result
=
0
for
i
=
1
to
100
result
=
result
+
i
next
i
end
function

Answer 2

上面的为什么全部都是0到100历遍呢??效率好低!!螺柱看看我的吧:
Private
Sub
command1_click()
Dim
a
As
Integer
Dim
b
As
Integer
Dim
c
As
Integer
a
=
Val(Text1.Text)
b
=
Val(Text2.Text)
If
(b
-
a
+
1)
Mod
2
<>
0
Then
c
=
(a
+
b)
*
Int((b
-
a
+
1)
/
2)
+
(a
+
Int((b
-
a
+
1)
/
2))
Else
c
=
(a
+
b)
*
Int((b
-
a
+
1)
/
2)
End
If
MsgBox
c
End
Sub
text1.text里填入起始数,这里是1,text2.text填入结束数,这里是2.
这是一个算法技巧,不用历遍所有数这么麻烦.楼主不妨试试..

Answer 3

在代码框添加这个代码，测试过
能用的。
输入a，输入b
求a-b所有数字的和
Private
Sub
Command1_Click()
Dim
a
As
Long
Dim
b
As
Long
a
=
InputBox("输入整数a")
b
=
InputBox("输入整数b")
Me.Print
Str(Sum(a,
b))
End
Sub
Private
Function
Sum(a
As
Long,
b
As
Long)
'定义函数，a
是较小的那个数字，b是较大的那个数字
Dim
small
As
Long
Dim
big
As
Long
Dim
sumed
As
Long
If
a
<
b
Then
'
检查a是否小于b
small
=
a
big
=
b
Else
MsgBox
"a必须小于B"
End
If
sumed
=
0
'累加
Dim
i
As
Long
For
i
=
small
To
big
sumed
=
sumed
+
i
Next
i
Sum
=
sumed
End
Function