资源描述：
《bb平台(vb日常测试)过程与函数》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、问题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.EndFunc
2、tion-[未给定] 问题2得0分，满分20分 求下面表达式的值，并在窗体上输出。要求m与n的值在窗体单击事件中用Inputbox()函数输入，且同为正整数，m>n。通过函数过程实现求阶乘的功能。 PrivateSubForm_Click() DimmAsInteger,nAsInteger Do m=InputBox("m=","m>0，m必须大于n")n=InputBox("n=","n>0") LoopWhilem<=nOrm<0Orn<0 Printfact(m)/fact(n)/fact(m-n)EndSub正确答案所选答案
3、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=1To6 b(i)=InputBox(“b(”+Str(i
4、)+“)=”) Printb(i),NextIPrintCallrev(b(),6) Fori=1To6 Printb(i), NextiEndSub正确答案所选答案1.PublicSubrev(x()AsDouble,nAsInteger)-[未给定]2.DimiAsInteger,tAsDouble-[未给定]3.Fori=1Ton2-[未给定]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，a
5、2，...，an，按照下列公式计算s的值并显示。 编写事件过程Command1_Click()，计算s值，其中v值要求调用函数过程f来完成。已知求v值的函数过程f程序如下。PrivateFunctionf(x()AsSingle,nAsInteger)assingle DimiAsInteger Fori=1Ton f=f+x(i) Nexti f=f/nEndFunction正确答案所选答案1.PrivateSubCommand1_Click()-[未给定]2.Dima()AsSingle,nAsInteger,sAsSingleDim
6、vAsSingle,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过程求一元二次方程的实数解，并通过事件过程调用它。 Pri
7、vateSubCommand1_Click() DimaAsDouble,bAsDouble,cAsDouble,y1AsDouble,y2AsDouble a=3:b=1:c=5 Ifroot(a,b,c,y1,y2)Then Printy1,y2 Else Print"方程无实数解！" EndIfEndSub正确答案所选答案1.PrivateFunctionroot(ByValaAsDouble,ByValbAsDouble,ByValcAsDouble,x1AsDouble,x2AsDouble)AsBoolean-[未给定]2.
8、DimdAsDouble-[未给定]3.d=b*b-4*a*c-[未给定]4.Ifd<0Then-[未给定]5.root=False-[
