在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Priva
问题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim m As Integer,i As Integer,x(3)As Integer
For i=0 To 3 : x(i)=i:Next i
For i=1 To 2:Call subl(x,i):Next i
For i=0 To 3:Print x(i);:Next i
End Sub
Private Sub subl(a( )As Integer,k As Integer)
Dim j As Integer
Do
a(k)=a(k)+a(k+1)
j=j+1
Loop While j<2
End Sub
程序运行后,单击命令按钮,则窗体上显示的内容是______。
A.0 3 7 5
B.0 1 2 3
C.3 2 4 5
D.0 5 8 3