VB求和S=a aa aaa ... aa...aaaa(n个a)-搜答案-搜搜做题作业网

1.阶乘函数：FunctionFactorial(nAsLong)AsLongIfn=1ThenFactorial=1ElseFactorial=n*Factorial(n-1)EndFunction

1

stringgeta(intn){stringres="";for(inti=0;i

求不了,只能求S=1×1!+2×2!+3×3!+……+n×n!=(2-1)x1!+2x2!+3x3!+4x4!+.+nxn!=2!-1+2x2!+3x3!+4x4!+.+nxn!=(1+2)x2!-1

输入的是两个变量,vi和vj（要注意的是vi和vj中的i与j只是字母,是不变的vi是一个整体就相当于v,vj也是一个整体相当于w.不要和变量i搞混掉.）输出的是循环结束后的i和sumi.具体如下：输入

求和：S

因为Sn＝12+34+58+716+…+2n−12n，所以12Sn＝14+38+516+…+2n−32n+2n−12n+1，两式相减得：12Sn＝12+24+28+216+…+22n−2n−12n+1

令S=1-2+3-4+…+（-1）n+1n=（1-2）+（3-4）+…+（-1）n（n-1）+（-1）n+1n，当n为偶数时，令S=（1-2）+（3-4）+…+[（n-1）-n]=-1×n2，即sn=

斐波那契数列的发明者,是意大利数学家列昂纳多·斐波那契.斐波那契数列指的是这样一个数列：1、1、2、3、5、8、13、21、……下面是前1000项斐波那契数列的和的VB代码:PrivateSubCom

首先通过一项,比如aaaaa=a*(11111)=a*(1+10+100+1000+10000)=a*(10^0+10^1+10^2+10^3+10^4)来确定数列的通项an=a*(10^0+10^1

PrivateSubForm_Click()Dimx%,s!,i%,q%x=Val(InputBox("请输入X的值"))DoWhilet>=10^(-5)'问题出在这里,因为t的初值是0,所以t再问

上面的回答真逗,这个题就不是让你算的.我是数学老师,这个题根本就不用算,它一定是有理数,也就不是无限不循环小数.同学,有理数除以有理数一定还是有理数（分母不为零）.有理数包括：有限小数和无限循环小数.

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

=(3/4)^0+(3/4)^1+……+(3/4)^(n-1)+……=lim(n→∞)(3/4)^0*[1-(3/4)^n]/(1-3/4)=lim(n→∞)4[1-(3/4)^n]0

S=1+a+a^2+.a^n-1当a=1时,s=n；（1）当a=0时,s=0；（2）当a≠0且a≠1时,s=（1-a^（n+1）/（1-a）-1；（3）因为（2）满足（3）；综上：当a=1时,s=n；

DimsumAsLongDimiAsIntegerDimnAsLongn=InputBox("n=","输入")Fori=1Tonsum=sum+i^2NextiDebug.Printsum

搞定

mid从指定位置截取指定长度的容.mid(string,start,len)

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

#include"stdio.h"longf1(longa,longn){if(n==1)returna;elsereturn(10*f1(a,n-1)+a);}longf2(intn){longr=

万古长青,坚韧不屈