最标准，简单代码
Dim
a
As
integer,
b
As
Long，s
As
Double
b
=
0
a
=
1
s
=
0
For
a
=
1
To
100
b
=
b
+
a
s
=
s
+
1
/
b
a
=
a
+
1
Next
a
Print
s
~~·
说明下把
先定义
a
是整型，再定义一个b
是长整型，让s
是双精度类型,因为1/长整数
得到的必定超过了单精度
然后给
a,b,s
分别赋值为
1
,0
,0
程序运行后，让b作为1+2+3+...100
让a
每次增加1
S=s+1/b
这里用到的是for
，汗，说明完，反而成最后一个了。
'
下面是算法，可手动输入次数
a
=
inputbox("请输入一个大于1的正整数，例如：100","输入框",100)
for
i
=1
to
a
t
=
i
*
(a
+
1
-
i)
s
=
s
+
t
next
msgbox
"从1到"
&
a
&
"的和值为
:
"
&
s
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024