UC知道VB2级模拟题求解
来源：百度知道 编辑：UC知道 时间：2024/05/28 10:29:13
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
谁能给出详细的算法么，在下谢谢各位了！
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
谁能给出详细的算法么，在下谢谢各位了！
这个根据循环一个个来就行了;从i=0开始,由第一个循环:x(0)=1,x(1)=2;x(2)=3;x(3)=4;x(4)=5.
然后进入第二个循环:当x=1时,根据sub函数,得:x(1)=5,此时输出的i已经是2,到达出循环的要求.结束函数.进入第三个循环,输出应该是1,5,3,4,5.
如果我的VB知识还是正确的话