资源描述：
《vb程序设计 习题及答案第7章 过程》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、第7章过程 7．1编写程序,利用Sub过程计算下式的值:s=a!+b!+c!a,b,c的值由键盘输入【参考答案】程序代码设计PrivateSubForm_Click()DimsAsInteger,nAsIntegerFori=1To3n=InputBox("n=")Callfact(n,f)s=s+fNextiPrint"s=";sEndSub PrivateSubfact(n,f)f=1Fori=1Tonf=f*iNexti图7-1程序运行结果EndSub运行结果：如a、b、c的值分别输入为4、5、6则程序运行结果如图7-1所示： 7．2编写程
2、序,打印100～200之间的所有素数。要求:(1)每行输出5个素数。(2)利用Function过程判断每个数是否为素数,是返回1,否则返回0。【参考答案】程序代码设计PrivateSubForm_Click()Print2;k=1Fori=3To100f=prime(i)Iff=1Thenk=k+1IfkMod5=0ThenPrintiElsePrinti;EndIfNextiEndSub PrivateFunctionprime(n)prime=1图7-2程序运行结果Fori=2Ton-1IfnModi=0Thenprime=0:ExitFor
3、NextiEndFunction程序运行结果如图7-2所示： 7．3编写程序,利用Function过程计算下式的值:(1+2+3+…+m)+(1+2+3+…+n)y=───────────────(1+2+3+…+p)【参考答案】程序代码设计PrivateSubForm_Click()m=Val(InputBox("输入m:"))n=Val(InputBox("输入n:"))p=Val(InputBox("输入p:"))y=(sum(m)+sum(n))/sum(p)Print"sum=";yEndSub PrivateFunctionsum(n
4、)s=0Fori=1Tons=s+iNextisum=sEndFunction运行结果：如输入m值为：20，n值为：15，p值为：10图7-3程序运行结果则程序运行结果如图7-3所示： 7．4编写Function过程计算n!,调用该函数过程计算下式的值:S=1+1/(1+4!)+1/(1+4!+7!)+…+1/(1+4!+…+19!)【参考答案】程序代码设计PrivateSubForm_Click()s=0t=0Fori=1To19Step3t=t+fact(i)s=s+1/tNextiPrint"s=";sEndSub PrivateFunct
5、ionfact(n)f=1Fori=1Tonf=f*iNextifact=fEndFunction图7-4程序运行结果程序运行结果如图7-4所示。 xx2x3xn7-5计算ex=1+─+─+─+…+─1!2!3!n!xn设x=1，2，3，4，5，6时，分别打印ex的值,要求精度─<0.0001n!用Function过程计算n!,调用该过程,计算上式的值。【参考答案】程序代码设计PrivateSubForm_Click()Forx=1To6Sum=1t=1n=0Don=n+1t=t*xterm=t/fact(n)Sum=Sum+termLoopU
6、ntilterm<0.0001Print"e^";x;"=";SumNextxEndSub PrivateFunctionfact(n)f=1Fori=1Tonf=f*iNextifact=fEndFunction程序运行结果如图7-5所示：图7-5程序运行结果 7．6编写两个Function过程,分别计算40，16，34，26，52的最大公约数和最小公倍数。【参考答案】程序代码设计PrivateSubForm_Click()Dima(1To5)AsIntegera(1)=40a(2)=16a(3)=34a(4)=26a(5)=52a1=a(1)
7、a2=a(2)b=gcd(a1,a2)d=bc=a(1)*a(2)/bFori=3To5a1=ca2=a(i)b=gcd(a1,a2)c=c*a(i)/bNextiPrint"最小公倍数为：";cFori=3To5d=gcd(d,a(i))NextiPrint"最大公约数为：";dEndSub PrivateFunctiongcd(x,y)Ifx0x=yy=rr=xModyLoopgcd=yEndFunction图7-6程序运行结果程序运行结果如图7-6所示：7．7利用Fu
8、nction过程计算下式的值:cos2x(0>x)f(x)=int(6x2-5x+1)(0≤x≤3)e3-x(3
