下面运行程序后,单击命令按钮,输出出的结果是【 】。 Private Sub Command1_Click( ) Dim a% (1 To 5) ,i%, s# For i = 1 To 5

admin2010-03-30  30

问题 下面运行程序后,单击命令按钮,输出出的结果是【  】。
     Private Sub Command1_Click( )
     Dim a% (1 To 5) ,i%, s#
         For i = 1 To 5
            a(i) =i
         Next
         s = Fun(a)
         Print"s="; s;
     End Sub
     Function Fun(a() As Integer)
     Dim t#, i%
          t=1
         For i = LBound(A0To UBound(a)
            t=t * a(i)
         Next
         Fun =t
     End Function

选项

答案s1=24 s2=360

解析 程序首先调用循环语句为数组a、b赋值,其中a(i)=i;b(i)=i,且数组。的上下界分别为1和5,接着将数组。作为参数调用Fun过程,在Fun过程中,定义了两个变量t及i,i作为循环语句For的变量,它的初始值和终值分别为数组的上下界,循环体为t =t*a(i),即将a(i)的值乘以t,然后再赋给t,当循环结束后,程序返回的就是数组。中的各元素的积,输出结果为:s=120。注意:函数调用和参数传递。
转载请注明原文地址:https://jikaoti.com/ti/Fsq0FFFM
0

随机试题
最新回复(0)