单击一次命令按钮后,下列程序的执行结果为( )。 Private Sub Command1_Click() Dim m As Integer,I As Integer,x(10) As Integer For I=0 To 4:x(I)=I+1:Next I For I=1 TO 2:Call Prioc(x):Next I For I=0 TO 3:Print x(I);:Next I End Sub Private Sub Prioc(a()As Integer) Static I As Integer Do a(I)=a(I)+a(I+1) I=I+1 Loop While I<2 End Sub
单选题
单击一次命令按钮后,下列程序的执行结果为( )。 Private Sub Command1_Click() Dim m As Integer,I As Integer,x(10) As Integer For I=0 To 4:x(I)=I+1:Next I For I=1 TO 2:Call Prioc(x):Next I For I=0 TO 3:Print x(I);:Next I End Sub Private Sub Prioc(a()As Integer) Static I As Integer Do a(I)=a(I)+a(I+1) I=I+1 Loop While I<2 End Sub