来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/27 19:18:50
VB编程用For循环语句
VB:用输入框输入一个数n,若此数是大于0的正整数则求S=1-2/3+4/5-…2n/2n+1,否则重输数据,直到数据合理为止.
dim n,s,i,p
do
n=val(inputbox("大于0的正整数"))
loop until n>0 and n=int(n)
s=1
p=-1
for i=1 to n
s=s+p*2*n/(2*n+1)
p=p*-1
next
灵鹊做题网