Private Sub Form_Click()
Dim last_one As Long
Dim last_two As Long
Dim this_one As Long
Dim i As Integer
last_one = 1 '数列的第二个数
last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起
Do
this_one = last_one + last_two
last_one = last_two
last_two = ------1-------
If i = 17 Then
Form1.Print "No:17="; this_one
End If
------2------
Loop While this_one <= 100000000#
Form1.Print "No:";------3------; "is > 1E+8"
End Sub
(1)求他们抓住细杆前后相对于其中点的角动量;
(2)他们每人都用力往自己一边收细杆,当他们之间距离为5.0m时,各自的速率是多少?
(3)求此时细杆中的张力;
(4)计算每个运动员在减少他们之间距离的过程中所作的功,并证明这功恰好等于他们动能的变化。