下面程序运行后,单击命令按钮,输出的结果是 (6) 。 Private Sub Command1_Click() Dim aYo(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(a) To UBoun
主观题
下面程序运行后,单击命令按钮,输出的结果是 (6) 。 Private Sub Command1_Click() Dim aYo(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(a) To UBoun