单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为

A．4 6
B．6 6
C．8 8
D．10 12

单项选择题

执行下列程序后，鼠标单击窗体，输出结果为。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print“Up” End Sub

A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownClick

相关试题