单击一次命令按钮后,下列程序的执行结果为   Private Sub Command1_Click()     Dim m As Integer,I As Integer,x(10) As Integer     For I=0 To 4:x(I)=I+1

admin2013-04-11  27

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

选项 A、3 4 7 5
B、3 5 7 4
C、1 2 3 4
D、1 2 3 5

答案2

解析 数组也可以作为函数或过程的参数,使用方法是直接使用数组名加括号也可以直接使用数组名,例如Proc(x)和Proc(x( ))都正确。
转载请注明原文地址:https://jikaoti.com/ti/W0O0FFFM
0

最新回复(0)