如图所示，竖直悬挂一根长15m的直杆，，在杆的正下方距杆下端5m处有一观察点A，当杆自由下落时，求杆全部通过A点所需的时间。（g取10m/s²）

下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是（ ）。Private Sub Text1_Change ( )　　Text2．Text=Str(6．28* Val(Text1．Text))　　End Sub

A．{^2004/03/09}+15

B．{^2004/02/25}+date()

C．{^2004/03/09}-15

D．{004/02/25^}-date()