各位计算机大神，帮帮忙呀。。。用vf编写程序，从1加到100的累加程序，并求出奇数和或者偶数和

Question

如题所述

Answer 1

store 0 to s1,s2
for n=1 to 100
if n%2=1
s1=s1+n
else
s2=s2+n
endif
endfor
?"1~100之间奇数和是：",s1
?"1~100之间偶数和是：",s2追问

拜托这个可以不？？？编写程序，求1*3*5*……*19，并输出结果

追答

t=1
for n=1 to 19 step 2
t=t*n
endfor
?"1*3*5*……*19=",t

追问

第二题显示那里怎么写代码呀？？

谢谢大神！

只有你能帮我了

追答

这是个空洞，永远都没有结尾！

追问

我们建了学生表的，

所以环境那里限制了，就有

追答

我是说你这些问题，永远也问不完，会一题接着一题永远地问下去的。
双击那个“显示”按钮，在其click事件中写入代码。

追问

额额，就是显示那个代码不会

追答

locate for 姓名=allt(thisform.text1.value)
disp

本回答被网友采纳

Answer 2

1+99+2+98+...49+51+50+100#4050追答

1+99+2+98+3+97+....+49+51+50+100等于5050

奇数和2500.偶数和2550

追问

编程序

Answer 3

store 0 to S,S1
FOR i = 1 to 100
S=S + i
if i%2=1
s1=S1+ i
endif
endfor
S2 =S-S1
? "和", S, "奇数和", S1, "偶数和", S2