BB平台(VB日常测试)过程与函数.docxVIP

?问题1

得2.22分，总分值20分?

编写一子过程，将数组a〔n,n〕转置。?

正确答案

所选答案

1.

PublicSubff(a()AsSingle,nAsInteger)

1.

PublicSubff(a()AsSingle,nAsInteger)

2.

DimiAsInteger,jAsInteger,tAsSingle

-

[未给定]

3.

Fori=2Ton

Forj=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()函数输入，且同为正整数，mn。通过函数过程实现求阶乘的功能。?

PrivateSubForm_Click()?

??DimmAsInteger,nAsInteger

??Do

?m=InputBox(m=,m0，m必须大于n)

n=InputBox(n=,n0)

??LoopWhilem=nOrm0Orn0

??Printfact(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)AsSingle

Fori=1To6

??b(i)=InputBox(“b(”+Str(i)+“)=”)

??Printb(i),

NextI

Print

Callrev(b(),6)

??Fori=1To6

?Printb(i),

??Nexti

EndSub

正确答案

所选答案

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)assingle

??DimiAsInteger

??Fori=1Ton

?f=f+x(i)

??Nexti

??f=f/n

EndFunction

正确答案

所选答案

1.

PrivateSubCommand1_Click()

-

[未给定]

2.

Dima()AsSingle,nAsInteger,sAsSingle

DimvAsSingle,iAsInteger

-

[未给定]

3.

n=InputBox(请输入n的值)

ReDima(n)

-

[未给定]

4.

Fori=1Ton

-

[未给定]

5.

a(i)=InputBox()

-

[未给定]

6.

N