大学计算机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、计算12311的值,将结果存在变量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=200to300dowhilei500.And.基本工资=1970/01/01.And.出生日期n)n=iendifendfor?nSettalkon8、有一分数序列:2/1,3/2,5/3,8/5,13/8,21/13,试求出这个数列的前30项之和,结果放在变量s中，并用?输出s.(程序运行结果保留4位小数)运行结果：48.8406SettalkoffS=0x=1y=1Fori=1to30x=x+yy=x-ys=s+(x/y)endfor?ssettalkon9、统计3至100之间的质数的个数,结果放在变量n中，并用?输出n.运行结果：24Settalkoffn=0form=3to100step2k=int(sqrt(m)fori=3tokifmod(m,i)=0exitendifendforifikn=n+1endifendfor?nSettalkon10、找出500至1000之间最大的质数,结果放在x中,并用?输出.运行结果：997Settalkoffmax=0fori=500to1000flag=0forj=2toi-1ifi%j=0flag=1exitendifendforifflag=0ifimaxmax=iendifendifendfor?maxSettalkon13统计200至300之间质数的个数,结果放在n中，并用?输出n.运行结果：16Settalkoffn=0fori=200to300flag=0forj=2toi-1ifi%j=0flag=1exitendifendforifflag=0n=n+1endifendfor?nSettalkon15、求斐波那契数列的第20项的值。斐波那契数列的第一、二项均为1，从第三项开始,每一项都是前面两项之和。即1，1，2，3，5，8，13，21，34，55。（程序中，第1、2项分别用A和B表示，结果放在C中）运行结果：6765Settalkoffa=1b=1c=0Fori=3to20c=a+ba=bb=cEndfor?cSettalkon16求斐波那契数列的前20项的和,结果放在s中。斐波那契数列的第一、二项均为1，从第三项开始,每一项都是前面两项之和。即1，1，2，3，5，8，13，21，34，55。（程序中，第1、2项分别用A和B表示）运行结果：17710Settalkoffs=0a=1b=1fori=1to10s=s+a+ba=a+bb=b+aendfor?sSettalkon17统计300到800之间，符合下面条件的数的个数，结果存放在num中，并用?输出num的值。条件是：个位数字与十位数字之和被10除，所得余数恰好是百位上的数字。（不允许使用字符转换函数）。运行结果：50Settalkoffnum=0Fori=300to800a=int(i/100)b=int(i/10)%10c=i%10if(a=(b+c)%10)num=num+1EndifEndfor?numSettalkon18求100到999之间,符合下面条件的所有数字的和,结果存在变量sum中，并用?输出sum的值。条件是：个位数字与十位数字之和被10除，所得余数恰好是百位上的数字。循环变量用i表示。（例如：293就是符合该条件的数，不允许使用字符转换函数）。运行结果：49455Settalkoffnum=0Fori=100to999a=int(i/100)b=int(i/10)%10c=i%10if(a=(b+c)%10)num=num+iEndifEndfor?numSettalkon19求出100到999之间,符合下面条件的数中的最大数，结果存放在变量max中，并用?输出mAx的值。条件是：个位数字与十位数字之和被10除，所得余数恰好是百位上的数字。（例如：293就是符合该条件的数，不允许使用字符转换函数）。运行结果：990Settalkoffnum=0max=0Fori=100to999a=int(i/100)b=int(i/10)%10c=i%10if(a=(b+c)%10)ifmaximax=iEndifendifEnd