输入圆的半径.docVIP

输入圆的半径，计算圆的周长，并输出 输入两个整数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. Dim m As Double ConstPI=3.1415926 m=val(inputbox(“请输入圆的半径”)) print”圆的周长为:”,2*PI*m 2. dim m as integer,n as integer,a as integer m=val(inputbox(“请输入m:”,输入,”m”)) n=val(inputbox(“请输入n:”,输入,”n”)) if nm then a-m m=n n=a end if print”m=”,m print”n=”,n 3 。Dim m as integer,n as long,s as double n=1 s=0 for m=1 to 10 n=n*m s=s+1/n next print s 4 .randomize dim a%(10) dim i%,s% for i=0 to 10 a(i)=101rnd next for i=0 to 10 if a(i) mod 2 =0 then s=s+a end if next print”所有偶数的和为:”,s 5. dim m as double,n as long,s as double,f as integer s=0:n=-1:f=1 do while 1/m=0.0001 m=m*f f=f+1