Question

程序设计 VB 计算机二级

单击一次命令按钮后，下列程序的执行结果为
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

Answer 1

在单击一次命令按钮后，执行的结果是:3 5 7 4

Answer 2

3 5 7 4

Answer 3

1 5 7 4

Answer 4

3 5 7 4