资源描述：
《输入圆的半径.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1.输入圆的半径，计算圆的周长，并输出2.输入两个整数m.n，编写程序使得m>=n，并输出m.n的值3.计算sum=1/1!+1/2!+…+1/10!4.定义一个下标上届为10整形数组，并用随机函数尾气赋值（值处于[0，100]之间）计算所有数组中偶数的和5.编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4!+...+(-1)^(n-1)*1/n!+…求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和）。计算并输出所求的和s，要求结果保留6位小数。（其中^表示幂运算）6.随机输出一位于[0,100]的整数7.如果一个三
2、位整数等于其个位数字的立方和，则称该数为水仙花数。请输入一个三位整数，并判断其是否为水仙花数。若是，用Msgbox输出“Yes”,否则输出“No”.8.编写程序，计算下面级数中偶数项的和ES，在求和过程中，当某偶数项（注意，该项参与求和）的值小于0.001时求和终止并输出ES，结果取6位，1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+…9.输入一个四位数，分别输出它的个位数字，十位数字，百位数字和千位数字10.计算sum=2!+4!+6!+…+10!11.用Iputbox输入一个年份，判断该年份是否是闰年，若是，则输出“Yes
3、”,若不是，则输出”No”12.编写程序，计算并输出级数前n项（m=20）中奇数项的和，1*2*3-2*3*4+3*4*5-4*5*6+…+(-1)^(n-1)*n*(n+1)*(n+2)+…13.某分段函数如下描述：（1）当X为偶数时，Y的值为X的二分之一（2）当X为奇数时，Y的值为X的二倍14.输入三个数a,b,c,,判断是否能构成三角形，若能，计算器面积，并用Msgbox输出，否则用Msgbox输出“不能构成三角形”15.计算sum=1*3*5…*916.–随即输出一个小写字母17.编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。n=1*
4、2+2*3+3*4+4*5+…..+n*(n+1)+….18.输入长方形的长和宽，计算长方形的周长，并输出19.斐波纳数列是由计算某动物繁殖增长量而提出的，数列的前两项是1，1，以后的每一项都是其相邻前两项之和。编写程序求：数列前30项和FS20.输入三个数a,b,c，编写程序使得a<=b<=c，并输出a,b,c的值21.编写程序，设n=20,x=3.4,编写程序。计算并输出S(n)的值，要求结果保留5位小数，S（n）=lnx/x+ln2x/x^2+ln3x/x^3+…+ln(n*x)/x^n+…22.输入两个数，交换他们的值，并输出23.编写程序，计算下
5、面级数前 n 项的和 S ，在求和过程中，当某一项（注意，该项参与求和）的绝对值小于 0.0001 时，求和终止并输出结果 S 。结果取 6 位小数。 1/(1*2*3)-1/(2*3*4)+1/(3*4*5)- … +(-1)^(n-1)*1/(n*(n+1)*(n+2))+ … （其中， ^ 表示幂运算）24.编写程序，建立并输出一个7*7的矩阵，该矩阵主对角线元素为1，其余元素为0。答案：1.DimmAsDoubleConstPI=3.m=val(inputbox(“请输入圆的半径”))print”圆的周长为:”,2*PI*m2.dimm
6、asinteger,nasinteger,aasintegerm=val(inputbox(“请输入m:”,输入,”m”))n=val(inputbox(“请输入n:”,输入,”n”))ifn>mthena-mm=nn=aendifprint”m=”,mprint”n=”,n3。Dimmasinteger,naslong,sasdoublen=1s=0form=1to10n=n*ms=s+1/nnextprints4.randomizedima%(10)dimi%,s%fori=0to10a(i)=101rndnextfori=0to10ifa(i)mod
7、2=0thens=s+aendifnextprint”所有偶数的和为:”,s5.dimmasdouble,naslong,sasdouble,fasintegers=0:n=-1:f=1dowhile1/m>=0.0001m=m*ff=f+1n=-ns=s+n/mloops=format(s,”0.”)prints6.randomizedims%s=int(101*rnd)prints7.dima%,i%,j%,k%a=inputbox(“请输入一个三位数!”)i=a100j=a10mod10k=amod10ifa=i^3+j^3+k^3thenmsg
8、box(“Yes”)elsemsgbox(“No”)endif8d
