我忘记这个算法了.你会直接把公式写出来得了.

好棒A！明天可以交作业了，我会看懂了在写滴``````

随写的.没有测试.

private sub command1_click()
dim n as integer
dim s as double
dim i as integer
n = inputbox("input number 5~10")
s = 1 + n
for i = 2 to n
s = s + getdata(n, i) / getpri(i)
next
msgbox s
end sub

private function getdata(byval n as integer, i as integer) as double
dim j as integer
dim s as double
s = 1
for j = 1 to i
s = s * n
next
getdata = s
end function

private function getpri(byval n as integer) as double
dim i as integer
dim s as double
s = 1

for i = 1 to n
s = s * i
next
getpri = s
end function

private sub command2_click()
text2.text = lcase(text1.text)
end sub

好象什么都没说吧......

竟然在我发code之前说看懂了..
晕菜.

我也纳闷.
你这样写就算不考虑DOUBLE的存储数据库精确度的误差.
还有另外你比如说1/3 除不尽而产生的误差.

那如果要用到PI.你能精确吗?

我不是这个意思.我的意思在上次一个帖中说了
比如1+2+3+....+100 如果是普通程序话就是FOR

而你知道数学中算法是101*50=5050.就直接是一步了.
明白不?

没必要这样去麻烦自己.
只是作业而已.能交就行.

这个太简单了，你直接把e=2.718281828459打印出来就得了



by 雨中飞燕 QQ:78803110 C/C++讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/