设刚体的动量为K，其质心的速度为v_C，质量

设窗体上有一个标签Label 1和一个计时器Timer1，Timer1的Interval属性被设置为1000， Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是( )。

A． Private Sub Timer1_Timer() Labell.Caption=True End Sub

B．Private Sub Timer1_Timer() Labell.Caption=Time$ End Sub

C．Private Sub Timer1_Timer() Labell.Interval=1 End Sub

D．Private Sub Timer1_Timer() For k=1 To Timerl.Interval Label1.Caption=Timer Next K End Sub

为某个窗体编写如下事件，单击窗体，消息框显示的结果为【 】。

Private Sub Form_Click( )

Dim k As Integer ,n As Integer ,m As Integer

n=10:m=1:k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

阅读下列程序。

Option Base 1

Private Sub Form. Click()

Dim x(3,3)

For j=l to 3

For k=l to 3

If j=k then x(j,k)=l

If j＜＞k then x(j,k)=k

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(x() )

For j=1 to 3

For k=1 to 3

Print x(j,k);

Next k

Next j

End Sub

运行程序时，输出结果为【 】

阅读以下程序：

Prlvate Sub Form_Click()

Dim k，n，m As Integer

n=10

m=1

k=1

Do While k＜=n

m=m*2

k＝k+1

Loop

Print m

End Sub程序运行后，单击窗体，输出结果为【 】。

下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

以下程序的输出结果是【 】。

main()

{ int x=0；

sub(&x，8，1)；

printf(“%d\n”，x)；

}

sub(int *a，int n，int k)

{ if(k＜＝n)sub(a，n/2，2*k)；

*a+=k；

}