大学计算机VF部分上机大题题.doc

１、计算1+2+3+……+68的值,将结果保存在变量s中，用?输出s。(循环变量用i来表示,程序运行结果用整数表示,如:123,12369)运行结果为：2346settalkoffs=0fori=1to68s=s+iendfor?s2、计算2+4+6+……+100的值,将结果保存在变量s中，用?输出s。(用for循环结构实现,循环变量用i表示)运行结果：2550settalkoffs=0fori=2to100step2s=s+iendfor?ssettalkon２、计算1+3+5+……+99的值,将结果存在变量s中，用?输出s.(用循环语句实现，循环变量用i表示)运行结果：2500settalkoffs=0fori=1to99step2s=s+iendfor?ssettalkon3、求78以内(含78)所有偶数的和,结果存放在变量sum中，并用?输出sum的值.(用循环语句实现，循环变量用i表示,程序运行结果用整数表示)。运行结果：1560settalkoffsum=0fori=2to78step2sum=sum+iendfor?sumsettalkon4、求170以内所有奇数的和,结果存放在变量sum中，并用?输出sum的值。（用for循环结构实现,循环变量用i表示）运行结果：7225settalkoffsum=0fori=1to170step2sum=sum+iendfor?sumSettalkon5、求100到200之间所有能被3或5整除的数的个数,结果存放在num中，并用?输出num的值。（循环变量用i表示）运行结果：47Settalkoffnum=0fori=100to200ifmod(i,3)=0.or.mod(i,5)=0num=num+1endifendfor?numSettalkon6、计算1×2×3×……×11的值,将结果存在变量jC中,用?输出jC.(用循环语句实现，循环变量用i表示,程序运行结果用整数表示)运行结果39916800settalkoffjc=1fori=1to11jc=jc*iendfor?jcSettalkon7、求500到1000之间所有能同时被3和7整除的数的个数，结果存放在变量num中，并用?输出num的值。（循环变量用i表示）运行结果：2424settalkoffnum=0fori=500to1000ifmod(i,3)=0.and.mod(i,7)=0num=num+iendifendfor?numsettalkon8、求20到40之间所有5的倍数的积,结果存放在pro中，并用?输出pro的值。（循环变量用i表示）运行结果：21000000settalkoffpro=1fori=20to40ifmod(i,5)=0pro=pro*iendifendfor?proSettalkon9、求150以内所有能被7整除的自然数的个数,将结果存在变量num中，并用?输出num的值。（循环变量用i表示）运行结果：21settalkoffnum=0fori=1to150ifmod(i,7)=0num=num+1endifendfor?numsettalkon10、求500到800之间能被11或13整除的数的和,将结果存在变量sum中，并用?输出sum的值。（循环变量用i表示）运行结果：31186settalkoffsum=0fori=500to800ifmod(i,13)=0.or.mod(i,11)=0sum=sum+iendifendfor?sumsettalkon11、求200到300之间能被11或13整除的数的个数，结果存放在num中，并用?输出num的值。（循环变量用i表示）运行结果：16num=0num=0i=200fori=200to300dowhilei<=300ifmod(i,11)=0.or.mod(i,13)=0ifmod(i,11)=0.or.mod(i,13)=0num=num+1num=num+1endifendifendfori=i+1?numenddosettalkon?numSettalkonfor;if;mod(i,11)=0.or.mod(i,13)=0;num=num+1;endi;end12、求500以内能被5整除且能被7整除的数的个数,将结果存在变量num中，并用?输出num的值。（循环变量用i表示）运行结果：14settalkoffnum=0fori=1to500ifmod(i,5)=0.and.mod(i,7)=0num=num+1endifendfor?numSettalkon13、求500到1000之间所有11的倍数的和,将结果存在变量sum中，并用?输出sum的值。（循环变量用i表示）运行结果：33660SettalkoffSum=0For