输入圆的半径.doc

输入圆的半径，计算圆的周长，并输出
输入两个整数m.n，编写程序使得m>=n，并输出m.n的值
计算sum=1/1!+1/2!+…+1/10!
定义一个下标上届为10整形数组，并用随机函数尾气赋值（值处于[0，100]之间）计算所有数组中偶数的和
编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4!+...+(-1)^(n-1)*1/n!+…求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和）。计算并输出所求的和s，要求结果保留6位小数。（其中^表示幂运算）
随机输出一位于[0,100]的整数
如果一个三位整数等于其个位数字的立方和，则称该数为水仙花数。请输入一个三位整数，并判断其是否为水仙花数。若是，用Msgbox输出“Yes”,否则输出“No”.
编写程序，计算下面级数中偶数项的和ES，在求和过程中，当某偶数项（注意，该项参与求和）的值小于0.001时求和终止并输出ES，结果取6位，1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+…
输入一个四位数，分别输出它的个位数字，十位数字，百位数字和千位数字
计算sum=2!+4!+6!+…+10!
用Iputbox输入一个年份，判断该年份是否是闰年，若是，则输出“Yes”,若不是，则输出”No”
编写程序，计算并输出级数前n项（m=20）中奇数项的和，1*2*3-2*3*4+3*4*5-4*5*6+…+(-1)^(n-1)*n*(n+1)*(n+2)+…
某分段函数如下描述：（1）当X为偶数时，Y的值为X的二分之一（2）当X为奇数时，Y的值为X的二倍
输入三个数a,b,c,,判断是否能构成三角形，若能，计算器面积，并用Msgbox输出，否则用Msgbox输出“不能构成三角形”
计算sum=1*3*5…*9
–随即输出一个小写字母
编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。n=1*2+2*3+3*4+4*5+…..+n*(n+1)+….
输入长方形的长和宽，计算长方形的周长，并输出
斐波纳数列是由计算某动物繁殖增长量而提出的，数列的前两项是1，1，以后的每一项都是其相邻前两项之和。编写程序求：数列前30项和FS
输入三个数a,b,c，编写程序使得a<=b<=c，并输出a,b,c的值
编写程序，设n=20,x=3.4,编写程序。计算并输出S(n)的值，要求结果保留5位小数，S（n）=lnx/x+ln2x/x^2+ln3x/x^3+…+ln(n*x)/x^n+…
输入两个数，交换他们的值，并输出
23.编写程序，计算下面级数前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.1415926m=val(inputbox(“请输入圆的半径”))print”圆的周长为:”,2*PI*m2.dimmasinteger,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)mod2=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.000000”)prints6.randomizedims%s=int(101*rnd)prints7.dima%,i%,j%,k%a=inputbox(“请输入一个三位数!”)i=a\100j=a\10mod10k=amod10ifa=i^3+j^3+k^3thenmsgbox(“Yes”)elsemsgbox(“No”)endif8dima#,i%,es#i=1doa=i*(i+1)i=i+1ifImod2=0thene