单击命令按钮时，下列程序的运行结果为（ ）。　　Private Sub Command1_Click( )　　　Print MyBM(23，18)　　End Sub　　Public Function MyBM(m As Integer，n As Integer)As Integer　　　Do While m< >n　　　　Do While m ＞ n：m=m - n：Loop　　　　Do While m ＜ n：n=n - m：Loop　　　Loop　　　MyBM=m　　End Function

A．0

B．1

C．3

D．5

如图所示，某人在山上将一质量为m的石块以初速度v₀抛出，抛出时石块距地面的高度为H，到达P点时距地面的高度为h（H>h）。不计空气阻力，重力加速度为g。则石块到达P点时的动能

A.

B.

C.

D.