重庆计算机vf实验题答案代码.docVIP

1@ 计算1+2+3+4.。，，，+100的和。 Click S 0 For i 1 to 100 S s+i Endfor Thieform.labe12.caption thisform.label2.caption+str s Thisform.refresh 2.@ 计算10！ T 1 For i 1 to 100 T t*i Endfor Thieform.labe12.caption thisform.label2.caption+str t Thisform.release 3@。球N! Command的click n thisform.text1.value t 1 for i 1 to n t t*i endfor thisform.label2.caption str n +”!” 或者+” ” thisform,text2.value t thisform.release 4 .已知三角形三边求三角形面积。 A thisform.text1.value B thisform.text2.value C thisform.text3.value L a+b+c /2 Area sqrt L* L-a * L-b * L-c Thisform.text4.value round area,1 5输入任意三位数判断是不是水仙花数 clear input 输入任意一个三位数： to x a int x/100 b int x-a*100 /10 c mod x,10 if a^3+b^3+c^3 x 该数是水仙花数 else 该数不是水仙花数 endif return”结果为：”+str y,3 7. 判断月份值的春夏秋冬。 yf val thisform.text1.value do case case yf 3 or yf 4 0r yf 5 jj ”春季” case yf 6 or yf 7 or yf 8 jj ”夏季” case yf 9 or yf 10 yf 11 jj ”秋季” case yf 12 or yf 1 or yf 2 jj ”冬季” endcase thisform.release 输入一个数,判断是否为素数。 input输入数值判断是否为素数，请输入数字： to m m1 .T. for aa 2 to m-1 if mod m,aa 0 m1 .F. exit endif endfor if m1 该数【,m,】是素数. else 该数【,m,】不是素数，他能被【,aa,】整除. endifinput x s 0 for i 1 to 100 if mod i,x 0 s s+i endif endfor ?s .10. 编程求1-3+5-7……101 for i 1 to 101 step 2 if i mod 2 0 then sum1+ i end else sum2+ i end next sum sum2-sum1 11. 编程求S 1-1/2+1/3-1/4+1/5-…-1/100。 clearset talk offs 0for i 1 to 100s s+ -1 ^ i+1 * 1/i endfor?1-1/2+1/3-1/4+...+1/100 ,sset talk on 或者 set talk off clears 0for i 1 to 100s s+ -1 ^ i+1 * 1/i endfor?1-1/2+1/3-1/4+...+1/100 ,sset talk on 12，编程求e 1+1/1!+1/2!+1/3!+…+1/N! 1/N! 0.000001 。 set talk off clear s 1 n 1 do while 1/f n 1E-6 s s+1/f n n n+1 enddo ?s ??s func f para x i 1 k 1 do while i x k k*i i i+1 enddo retu k endfunc set talk on 4.有一数列，前两个数是1、1，第三个数是前两个数的和，以后的每个数都是前两个数之和。编程：要求输出这个数列的前30个数。 CLEAR DIMENSION lie 30 定义数组 lie 1 1 为第一个和第二个数赋值 lie 2 1 FOR i 3 TO 30 为第三到第三十个数赋值 lie i lie i-1 +lie i-2 ENDFOR