资源描述：
《大学计算机vf部分上机大题题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、１、计算1+2+3+……+68的值,将结果保存在变量s中，用?输出s。(循环变量用i来表示,程序运行结果用整数表示,如:123,12369) 运行结果为：2346 set talk off s=0 for i=1 to 68s=s+i endfor ?s2、计算2+4+6+……+100的值,将结果保存在变量s中，用?输出s。(用for循环结构实现,循环变量用i表示) 运行结果：2550 set talk offs=0for i=2 to 100 step 2s=s+iendfor?sset talk on２、
2、计算1+3+5+……+99的值,将结果存在变量s中，用?输出s.(用循环语句实现，循环变量用i表示) 运行结果：2500set talk offs=0for i=1 to 99 step 2s=s+iendfor?sset talk on3、求78以内(含78)所有偶数的和,结果存放在变量sum中，并用?输出sum的值.(用循环语句实现，循环变量用i表示,程序运行结果用整数表示)。 运行结果：1560set talk offsum=0for i=2 to 78 step 2sum=sum+iendfor?su
3、mset talk on4 、求170以内所有奇数的和,结果存放在变量sum中，并用?输出sum的值。（用for循环结构实现,循环变量用i表示） 运行结果：7225set talk offsum=0for i=1 to 170 step 2sum=sum+iendfor?sumSet talk on5、求100到200之间所有能被3或5整除的数的个数,结果存放在num中，并用?输出num的值。（循环变量用i表示） 运行结果：47 Set talk offnum=0for i=100 to 200if mod(
4、i,3)=0.or.mod(i,5)=0num=num+1endifendfor?numSet talk on6、计算1×2×3×……×11的值,将结果存在变量jC中,用?输出jC.(用循环语句实现，循环变量用i表示,程序运行结果用整数表示) 运行结果39916800set talk offjc=1for i=1 to 11jc=jc*iendfor?jcSet talk on7、求500到1000之间所有能同时被3和7整除的数的个数，结果存放在变量num中，并用?输出num的值。（循环变量用i表示） 运行结
5、果：24 24set talk offnum=0for i=500 to 1000if mod(i,3)=0 .and. mod(i,7)=0num=num+iendifendfor?numset talk on8、求20到40之间所有5的倍数的积,结果存放在pro中，并用?输出pro的值。（循环变量用i表示） 运行结果：21000000set talk offpro=1for i=20 to 40if mod(i,5)=0pro=pro*iendifendfor?proSet talk on9、求150以内
6、所有能被7整除的自然数的个数,将结果存在变量num中，并用?输出num的值。（循环变量用i表示） 运行结果：21set talk offnum=0for i=1 to 150 if mod(i,7)=0num=num+1endifendfor?numset talk on10、求500到800之间能被11或13整除的数的和,将结果存在变量sum中，并用?输出sum的值。（循环变量用i表示） 运行结果：31186set talk offsum=0for i=500 to 800if mod(i,13)=0 .o
7、r. mod(i,11)=0sum=sum+iendifendfor?sumset talk on11、求200到300之间能被11或13整除的数的个数，结果存放在num中，并用?输出num的值。（循环变量用i表示） 运行结果：16num=0 num=0i=200 for i=200 to 300do while i<=300 if mod(i,11)=0 .or. mod(i,13)=0if mod(i,11)=0 .or. mod(i,13)=0 num=num+1num=num+1 endifendif
8、 endfori=i+1 ?numenddo set talk on?numSet talk onfor;if;mod(i,11)=0.or.mod(i,13)=0;num=num+1;endi;end12、求500以内能被5整除且能被7整除的数的个数,将结果存在变量num中，并用?输出num的值。（循环变量用i表示） 运行结果：14set talk offnum=0for i=1 to 500if
