1楼：匿名用户
private sub form_click()dim i as long, p as double, s as double, t as integer
t = 1
p = 1
dim n as integer
n = inputbox("请输来入
源一个整数:")
for i = 1 to n
p = p * i
s = s + t / p
t = -t
next
print format(s, "0.0000000")end sub
2楼：匿名用户
private sub ***mand1_click()dim s as single
dim n as integer
n = val(text1)
for i = 1 to n
s = s + (-1) ^ (n - 1) * 1 / nnext
print "s = "; s
end sub
vb编程计算1+1/2!+1/3!+1/4!+1/5!的值
3楼：哪呢
private sub ***mand1_clickdim s as integer, i as integer, c as integer
s=0c=1
for i =1 to 5
c=c*i
s=s+i/c
next i
4楼：会飞滴包子
private sub ***mand1_click()n=inputbox("请输
入n：")
dim a as integer
a = 1
dim sum as double
for i = 1 to n
for j = 1 to i
a = a * j
next
sum = sum + 1 / a
a = 1
next
print sum
end sub
这是计算pi的程序2 1+1 3+1
1楼 匿名用户 得出结果是错的还是就根本退不出循环？ 2楼 是除号 的问题 第四行赋值的时候1 3 0化为double型为0 0 所以t值为0 无论m是什么都不循环 要写成1 0 3 这是计算pi的程序 pi 2 1 1 3 1 2 3 5 1 2 n 3 5 7 2 n 1 ，错误，为什么？ 3楼...
C++编写程序，计算s 1+(1+21+
1楼 再见理想者 include using namespace std int main cout return 0 2楼 董俊锟 include void main printf sum d n sum 用c语言编写程序，计算s 1 1 2 1 2 3 1 2 3 n 3楼 会飞的小兔子 inc...
编程计算1-2+3-4+5-6n的值
1楼 负摄零度 dim i return for i 1 to n if i mod 2 0 return return i else return return i end if next return就是你想要的值了 2楼 匿名用户 dim sum as integer for i 1 to 1...