一、求3+9+18+36Subjs()Dima,q,n,bAsLongDimsumAsDoublestrName=InputBox("请输入你的名字：")strHello="你好，"&strName&"!下面请做题"MsgBoxstrHellosum=0b=0a=InputBox("请输入首项a")q=InputBox("请输入公比q")n=InputBox("请输入项数n")Forj=1Tonsum=sum+bb=a*qNextjlabel1.Caption=n&"的前n项和是"&sumEndSub二、求1+2+3+…Subjs()Dimx,jAsLongDimsumAsDoublestrName=InputBox("请输入你的名字：")strHello="你好，"&strName&"!下面请做题"MsgBoxstrHellosum=0x=InputBox("请输入x")Forj=1Toxsum=sum+jNextDebug.PrintsumEndSub三、求A！Functionfact(nAsLong)AsDoubleDimiAsLongfact=1Fori=1Tonfact=fact*iNextEndFunctionSubjs()Dimx,jAsLongDimsumAsDoublestrName=InputBox("请输入你的名字：")strHello="你好，"&strName&"!下面请做题"MsgBoxstrHellosum=0x=InputBox("请输入x")Forj=1Toxsum=sum+fact(j)NextDebug.PrintsumEndEndSub课程名称Excel与VBA程序设计实验项目名称实验八子过程与函数学生姓名专业班级学号实验成绩指导老师（签名）日期实验目的和要求1、掌握Function/EndFunction的定义和调用；2、掌握Sub/EndSub的定义和调用。实验内容1、按照实验内容所述要求认真完成各项功能。2、输入精度e，用下列公式求cosx的近似值，精确到最后一项的绝对值小于e。要求定义和调用函数funcos(x,x)求余弦公式的近似值。3、计算1!+2!+3!+…+10！的值，要求定义并调用函数fact(n)计算n!，函数类型是double。4、输入一个整数，统计并输出该数中2的个数。要求定义并调用函数countDigit(number,digit)，它的功能是统计number中数字digit的个数。例如CountDigit(10090,0)的返回值是3。5、输出数字金字塔，要求定义和调用子过程Pyramid(n)，它的功能是输出一个有n行的数字金字塔。例如Pyramid(5)的输出形式如下图。6、填写实验报告，实验报告文件取名为report8.doc。7、上传实验报告文件report8.doc到Ftp服务器上（ftp://10.66.28.222:2007）自己的文件夹下。三.函数的功能说明及算法思路或重要操作步骤（包括每个函数的功能说明，及一些重要函数的算法实现思路）四.实验结果与分析（包括运行结果截图、结果分析等）2.Subcos()DimiAsInteger,jAsIntegerDimsAsSingleDimeAsDouble,xAsDoublee=InputBox("输入e")x=InputBox("输入x")s=funcos(e,x)Debug.PrintsEndSubFunctionfuncos(eAsDouble,xAsDouble)AsDoubleDimjAsInteger,flagAsIntegerDimsumAsDouble,itemAsDoubleflag=1j=0sum=0item=1DoWhileAbs(item)>=eitem=flag*x^j/fact(j)sum=sum+itemflag=-flagj=j+2Loopfuncos=sumEndFunctionFunctionfact(nAsInteger)AsDoubleDimjAsInteger,fAsSinglef=1Forj=1Tonf=f*jNextjfact=fEndFunction3.Functionfact(nAsLong)AsDoubleDimiAsLongfact=1Fori=1Tonfact=fact*iNextEndFunctionSubjs()Dimx,jAsLongDimsumAsDoubles