问题详情

下面程序的输出结果为()

PrivateSubCommand1_Click()

Dima%(1To5),b%(2To10),i%,t1#,t2#

Fori=1To5

a(i)=i

Nexti

t1=tim(a())

Print"t1=";t1

EndSub

Functiontim(a()AsInteger)

Dimt#,i%

t=1

Fori=LBound()ToUBound()

t=t*a(i)

Nexti

tim=t

EndFunction

A.t1=10

B.t1=12

C.t1=120

D.120