BB平台(VB日常测试)过程与函数VIP免费

问题1得2.22分，满分20分编写一子过程，将数组a（n,n）转置。正确答案所选答案1.PublicSubff(a()AsSingle,nAsInteger)1.PublicSubff(a()AsSingle,nAsInteger)2.DimiAsInteger,jAsInteger,tAsSingle-[未给定]3.Fori=2TonForj=1Toi-1-[未给定]4.t=a(i,j)-[未给定]5.a(i,j)=a(j,i)-[未给定]6.a(j,i)=t-[未给定]7.Nextj-[未给定]8.Nexti-[未给定]9.EndFunction-[未给定]问题2得0分，满分20分求下面表达式的值，并在窗体上输出。要求m与n的值在窗体单击事件中用Inputbox()函数输入，且同为正整数，m>n。通过函数过程实现求阶乘的功能。PrivateSubForm_Click()DimmAsInteger,nAsIntegerDom=InputBox("m=","m>0，m必须大于n")n=InputBox("n=","n>0")LoopWhilem<=nOrm<0Orn<0Printfact(m)/fact(n)/fact(m-n)EndSub正确答案所选答案1.PrivateFunctionfact(ByValkAsInteger)AsLong-[未给定]2.DimiAsInteger-[未给定]3.fact=1-[未给定]4.Fori=2Tok-[未给定]5.fact=fact*i-[未给定]6.Nexti-[未给定]7.EndFunction-[未给定]问题3得0分，满分20分编写一个将一维数组倒置存放的子过程，并编写简单事件验证子过程的正确性。PrivateSubForm_Click()Dimb(6)AsSingleFori=1To6b(i)=InputBox(“b(”+Str(i)+“)=”)Printb(i),NextIPrintCallrev(b(),6)Fori=1To6Printb(i),NextiEndSub正确答案所选答案1.PublicSubrev(x()AsDouble,nAsInteger)-[未给定]2.DimiAsInteger,tAsDouble-[未给定]3.Fori=1Ton\2-[未给定]4.t=a(i):a(i)=a(n-i+1):a(n-i+1)=t-[未给定]5.Nexti-[未给定]6.EndSub-[未给定]问题4得0分，满分20分输入n后，再输入n个数a1，a2，...，an，按照下列公式计算s的值并显示。编写事件过程Command1_Click()，计算s值，其中v值要求调用函数过程f来完成。已知求v值的函数过程f程序如下。PrivateFunctionf(x()AsSingle,nAsInteger)assingleDimiAsIntegerFori=1Tonf=f+x(i)Nextif=f/nEndFunction正确答案所选答案1.PrivateSubCommand1_Click()-[未给定]2.Dima()AsSingle,nAsInteger,sAsSingleDimvAsSingle,iAsInteger-[未给定]3.n=InputBox("请输入n的值")ReDima(n)-[未给定]4.Fori=1Ton-[未给定]5.a(i)=InputBox("")-[未给定]6.Nextiv=f(a,n)-[未给定]7.Fori=1Ton-[未给定]8.s=s+(a(i)-v)^2-[未给定]9.Nexti[未给-定]10.s=Sqr(s)/n-[未给定]11.Prints-[未给定]12.EndSub-[未给定]问题5得0分，满分20分编写Sub过程求一元二次方程的实数解，并通过事件过程调用它。PrivateSubCommand1_Click()DimaAsDouble,bAsDouble,cAsDouble,y1AsDouble,y2AsDoublea=3:b=1:c=5Ifroot(a,b,c,y1,y2)ThenPrinty1,y2ElsePrint"方程无实数解！"EndIfEndSub正确答案所选答案1.PrivateFunctionroot(ByValaAsDouble,ByValbAsDouble,ByValcAsDouble,x1AsDouble,x2AsDouble)AsBoolean-[未给定]2.DimdAsDouble-[未给定]3d=b*b-4*a*c[未.-给定]4.Ifd<0Then-[未给定]5.root=False-[未给定]6.Else-[未给定]7.root=Truex1=(-b+Sqr(d))/(2*a):x2=(-b-Sqr(d))/(2*a)-[未给定]8.EndIf-[未给定]9.EndFunction-[未给定]问题1得0分，满分20分编写一子过程，将数组a（n,n）转置。正确答案所选答案1.PublicSubff(a()AsSingle,nAsInteger)-[未给定]2.DimiAsInteger,jAsInteger,tAsSingle-[未给定]3.Fori=2TonForj=1Toi-1-[未给定]4t=a(i,j)[未给.-定]5.a(i,j)=a(j,i)-[未给定]6.a(j,i)=t-[未给定]7.Nextj-[未给定]8.Nexti-[未给定]9.EndFunction-[未给定]问题2得0分，满分20分两质数的差为2，称此两质数为质数对，设计一个程序找出100以内的质数对，并在窗体上成对显示结果。要求质数的判断用自定义函数完成。正确答案所选答案1.PrivateFunctionprime(ByValkAsInteger)AsBoolean-[未给定]2.DimiAsIntegerIfk<2Then-[未给定]3.prime=False-[未给定]4.Else-[未给定]5.Fori=2ToSqr(k)-[未给定]6.IfkModi=0ThenExitFor-[未给定]7.NextiIfi>Sqr(k)Thenprime=TrueElseprime=False-[未给定]8.EndIf-[未给定]9.EndFunctionPrivateSubForm_Click()-[未给定]10.DimnAsInteger-[未给定]11.Forn=3To100Step2-[未给定]12.Ifprime(n)Andprime(n+2)ThenPri...