下列程序的输出结果是( )。
Option Base 1
Private Sub Commandl_
分类: 19信息竞赛自组题02发布时间: 2023-12-01 12:13浏览量: 0
下列程序的输出结果是( )。
Option Base 1
Private Sub Commandl_Click()
Dim Arr1(12),Arr2(4)AsInteger
For i=1 To 12
Arr1(i)=I
Next i
For j=1 T0 4
Arr2(j)=Arr1(3*j)
Next j
For k=1 To 4
s=s+Arr2(k)
Next k
Print s
End Sub